Discussione: ricerca in vb
Visualizza messaggio singolo
Vecchio 24-07-2001, 11.36.41   #1
pina
Junior Member
 
Registrato: 26-03-2001
Messaggi: 129
pina promette bene
Ho un problemino con il pulsante ricerca:
Ecco il codice :
Private Sub Ricerca_Click()
'ricerca un nome all'interno del database
Dim nomedacercare As String
nomedacercare = InputBox$("immettere il nome da cercare:", "ricerca nel database")
If nomedacercare <> "" Then
'esegue la ricerca solo se è stato immesso un nome.
Database.Recordset.Index = "nome"
Database.Recordset.Seek "=", nomedacercare
If Database.Recordset.NoMatch Then
Database.Recordset.MoveFirst
Database.Refresh
'il nome cercato non è stato trovato
MsgBox "nome non trovato.", vbInformation, Me.Caption
End If
End If
End Sub

Sul pulsante ricerca clikkandoci mi apre la finetra x digitare il nome da cercare e fatto ok
mi da il seguente errore
errore di run-time 3015
'nome' non è un indice di questa tabella. esaminare l'insieme indexes
dell'oggetto tavledef x determinare i nomi di indice validi
e la riga di codice sbagliata è atabase.Recordset.Index = "nome"
Su un database di Microsoft Jet, è stato richiamato il metodo Update o CancelUpdate ma prima
di scrivere dati in un record non è stato utilizzato il metodo AddNew o Edit.

Cosa devo fare?
Grazie
pina non è collegato   Rispondi citando