Flavia laid this down on his screen :
Può darsi che non abbia capito bene, ma credo proprio
che quello che vuoi fare non si possa fare.
Comunque se una query che porta un criterium dà un
risultato nullo (il criterium non è valido ovvero non
è dato) e si vuole ottenere qualcosa tipo un messaggio
come "No Current Record" si può fare così:
=======================================
Private Sub Command0_Click()
Dim RS As Recordset, SQL As String, S As String
S = "" ' ovvero un parametro non valido,
' che quindi non produce alcun record
SQL = "SELECT ID_Ditta, DenDitta "
SQL = SQL & "FROM t_Ditta "
SQL = SQL & "WHERE ID_Ditta='" & S & "';"
Set RS = CurrentDb.OpenRecordset(SQL, dbOpenDynaset)
If RS.RecordCount = 0 Then MsgBox "No Current Record"
End Sub
======================================
Da attivarsi da quella procedura che invia
il codice S che può essere nullo o non valido.
Bruno