Grazie a quanti vorranno rispondere.
Muovo i primi passi in VBA.
Ho creato una maschera per visualizzare risultati da una query. Nella maschera ho inserito una casella di testo per l'input di ricerca e un tasto per innescare la ricerca (nome query: ElencoTelefonico, nome maschera: Cerca).
questo il codice:
Private Sub Comando9_Click()
Dim FieldCerca As String
FieldCerca = "SELECT ElencoTelefonico.Nome, ElencoTelefonico.Cognome, ElencoTelefonico.Telefono, ElencoTelefonico.struttura, ElencoTelefonico.Sede FROM ElencoTelefonico WHERE (ElencoTelefonico.Nome LIKE '*" & CampoCerca.Value & "*' OR ElencoTelefonico.Cognome LIKE '*" & CampoCerca.Value & "*');"
Form_Cerca.RecordSource = FieldCerca
Form_Cerca.Requery
CampoCerca = ""
End Sub
Funziona come dovrebbe, salvo che se inserico un numero (ad esempio "123") oppure una stringa che non ha comunque corrispondenza (ad esempio "wyx") la query restituisce 0 risultati e la maschera scompare.
Come posso dunque controllare l'input per evitare che ciò accada?
PS: penso a una possibile soluzione con
If DCount("*","ElencoTelefonico") Then fai qualcosa
ma, ammesso la soluzione passi da qui, non so come e dove implementarla
Grazie.