Postada em 11/09/2005 13:56 hs
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
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
|
