Ciao a tutti premetto che sono alle prime armi con visual basic
ho questo codice:
Private Sub Form_Load()
Data1.DatabaseName = App.Path & "\Anagrafico.mdb"
End Sub
Private Sub Command1_Click()
'Ricerca un nome all'interno dell'agenda.
Dim NomeDaCercare As String
NomeDaCercare = InputBox$("Immettere il nome da ricercare:", "Ricerca nell'agenda")
If NomeDaCercare <> "" Then
'Esegue la ricerca solo se è stato immesso un nome.
Data1.Recordset.Index = "Nome"
Data1.Recordset.Seek "=", NomeDaCercare
If Data1.Recordset.NoMatch Then
Data1.Recordset.MoveFirst
Data1.Refresh
'Il nome cercato non è stato trovato.
MsgBox "Nome non trovato.", vbInformation, Me.Caption
End If
End If
End Sub
che viene attivato quando premo un tasto sul menu a tendina cosi:
Case "Find"
Command1_Click
adesso vorrei che quando scrivo il nome da cercare se trova il record mi stampi a video tutti i campi del database di quel record
come posso fare??
Rispondi quotando
