Il codice lo trovato sul web e poi l'ho adattato.
Private Sub Comando21_Click()
Dim z As String
z = " select CognomeENomeORagioneSociale,TipoDiUtenza,IndirizzoDiFornitura,Comune,PODoPDR,Stato,DataRecesso,Agente from SUTENZE where STATO like '*" & Testo19.Value & "*';"
[Form_STATO UTENZE].RecordSource = z
[Form_STATO UTENZE].Requery
Testo19 = ""
End Sub
Private Sub Comando24_Click()
Dim z As String
z = " select CognomeENomeORagioneSociale,TipoDiUtenza,IndirizzoDiFornitura,Comune,PODoPDR,Stato,DataRecesso,Agente from SUTENZE where AGENTE like '*" & Testo22.Value & "*';"
[Form_STATO UTENZE].RecordSource = z
[Form_STATO UTENZE].Requery
Testo22 = ""
End Sub
Ecco il codice.
Allegati: