Beh... usando un po' di VBA è semplice creare un Recordset che riceve il risultato di una query e per controllare se è vuota c'è la proprietà recordCount...
Un po' di codice:
<stringa query>: una stringa con la query che devi lanciare del tipo "SELECT [elencocampi] FROM [tabelle] WHERE [condizioni]"codice:Dim myDB as DAO.Database; Dim myRS as DAO.Recordset; Set myDB = Application.Forms.currentDb(); Set myRS = MyDB.openRecordset(<stringa query>); If (myRS.recordCount = 0) Then 'La query non ha trovato nessun record Else 'Ci sono dei record nel risultato della query End If
Da notare che puoi usare anche la proprietà EOF: If (myRS.EOF) Then... che indica che sei giunto alla fine del recordset.
Per poter usare gli oggetti DAO devi aggiungere i riferimenti alla libreria Microsoft DAO: dal menu Strumenti (se non ricordo male) c'è la voce Riferimenti... quindi nella lista che appare scegli Microsoft DAO.
Ciao.



Rispondi quotando