COntinua a darmi un errore, che riesco a darmi una spiegazione, anche perchè prima andava.
errore: 'tedesco' non è un indice di questa tabella. Esaminare l'insieme Indexes dell'oggetto Tabledef per determinare i nomi di indice validi.
codice:
Private Sub mmRicTedesco_Click()
Dim NomeDaCercare As String
NomeDaCercare = InputBox$("Immettere il nome da ricercare:", "Ricerca Parola in Tedesco")
If NomeDaCercare <> "" Then
'Esegue la ricerca solo se è stato immesso un nome.
Data.Recordset.Index = "Tedesco"
Data.Recordset.Seek "=", NomeDaCercare
If Data.Recordset.NoMatch Then
Data.Recordset.MoveFirst
Data.Refresh
'Il nome cercato non è stato trovato.
MsgBox "Parola non trovata.", vbInformation, Me.Caption
End If
End If
End Sub