Calculo access mostrar Textbox


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Calculo access mostrar Textbox

Roberto
não registrado

Postada em 09/09/2005 15:35 hs

Como faço para somar uma Tabela access e exibir no Textbox
EX: TABELA.MDB - TABELA1 -
CODIGO ITEM VALOR1 VALOR2
1 1 10 12
2 2 15 18

TOTAL VALOR1 = 25 GERAR NO TEXTBOX1
TOTAL VALOR2 = 30 GERAR NO TEXTBOX2

ArtSoft

SAO PAULO
SP - BRASIL

Postada em 09/09/2005 17:21 hs

Você devera somar primeiro atravez de um Select na tabela !

Ex.: SELECT Sum([VALOR1]) AS Soma1, Sum([VALOR1]) AS Soma1 FROM TABELA

AI COMPANHEIRO É SÓ COLOCAR NOS TEXTBOX's

ALEXANDRE COSTA

ARTSOFTSYSTEMS

Roberto
não registrado

Postada em 09/09/2005 18:10 hs

Ok, mas na realidade minha tabela tem varios registros...

ArtSoft

SAO PAULO
SP - BRASIL

Postada em 09/09/2005 21:03 hs

Companheiro, quando voce da um select Campo, Campo2,....FROM Tabela, o comando entende selecionar todos os registros, portanto o comando acima informado ira somar todos os registros do [Valor1] e [Valor2] ! Abaixo vai uma correção do comando :

SELECT Sum([VALOR1]) AS Soma1, Sum([VALOR2]) AS Soma2 FROM TABELA

ALEXANDRE COSTA

ARTSOFTSYSTEMS

Roberto
não registrado

Postada em 11/09/2005 13:57 hs

Alexandre como sou leigo no assunto base dos meus dados sao como exemplo abaixo, vamos supor que dentro da agenda_eletronica tenha um valor para cada
nome, ou seja, a estrutura da tabela codigo,nome e valor.
Ex:
Codigo Nome   Valor
  1    Souza   10
  2    Silva   07
  3    Mendes  25

Public Agenda As Database
Public Tabela_Agenda As Recordset
Public Pesquisa As Recordset

Private Sub Form_Load()
Set Agenda = OpenDatabase(App.Path & "agenda.mdb", _
                            False)
Set Tabela_Agenda = Agenda.OpenRecordset("Agenda_Eletronica", _
                     dbOpenDynaset)

End Sub

Private Sub Command1_Click()

Dim Dado As String, Busca As String

Dado = InputBox("Informe o Nome Completo", " Nome ")

Busca = " Nome='" & Dado & "'"

Tabela_Agenda.FindMin Busca

If Tabela_Agenda.NoMatch Then
    MsgBox (" O Nome " & Dado & " não existe! ")
Else

    Atualiza_Campos
End If

End Sub

Private Sub Command2_Click()

   OBS: AQUI É QUE PEGA EU NÃO SEI DEFINIR PARA MOSTRAR NO TEXT1.TEXT

    Resultado =   SELECT Sum([valor]) AS Soma1 FROM Agenda

    Text1.text = resultado

End Sub

Pessoal base dos meus dados sao como exemplo abaixo, vamos
supor que dentro da agenda_eletronica tenha um valor para cada
nome, ou seja, a estrutura da tabela codigo,nome e valor.
Ex:
Codigo Nome   Valor
  1    Souza   10
  2    Silva   07
  3    Mendes  25

Public Agenda As Database
Public Tabela_Agenda As Recordset
Public Pesquisa As Recordset

Private Sub Form_Load()
Set Agenda = OpenDatabase(App.Path & "agenda.mdb", _
                            False)
Set Tabela_Agenda = Agenda.OpenRecordset("Agenda_Eletronica", _
                     dbOpenDynaset)

End Sub

Private Sub Command1_Click()

Dim Dado As String, Busca As String

Dado = InputBox("Informe o Nome Completo", " Nome ")

Busca = " Nome='" & Dado & "'"

Tabela_Agenda.FindMin Busca

If Tabela_Agenda.NoMatch Then
    MsgBox (" O Nome " & Dado & " não existe! ")
Else

    Atualiza_Campos
End If

End Sub

Private Sub Command2_Click()

   OBS: AQUI É QUE PEGA EU NÃO SEI DEFINIR PARA MOSTRAR NO TEXT1.TEXT

    Resultado =   SELECT Sum([valor]) AS Soma1 FROM Agenda

    Text1.text = resultado

End Sub

MARCONE

BRASÍLIA
DF - BRASIL

Postada em 11/09/2005 14:38 hs

OBS: AQUI É QUE PEGA EU NÃO SEI DEFINIR PARA MOSTRAR NO TEXT1.TEXT

Resultado = SELECT Sum([valor]) AS Soma1 FROM Agenda

Text1.text = resultado
´----------------------------------------------------

VOCÊ ESTÁ ERRANDO AO PASSAR O PARÂMETRO PARA O TEXT - FAÇA ASSIM:

Resultado = SELECT Sum([valor]) AS Soma1 FROM Agenda

Text1.text = Soma1

Marcone

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR