stavo provando a riprodurre l'agenda telefonica del tutorial di Html (sto alle prime armi e si vede)
ma facendo copia incolla del codice del pulsante trova:
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
dopo che mi appare l'imputbox e spingo ok dopo aver immesso un un nome mi da quest'errore
error run-time 3251
con debug sulla riga aranzione
dove sbaglio???
la casella text l'ho chiamta nome e anche il campo di datafield ha NOME
???
aiuto pls
Rispondi quotando
