Controllo input in una maschera

di il
6 risposte

Controllo input in una maschera

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.

6 Risposte

Devi accedere o registrarti per scrivere nel forum
6 risposte