Buongiorno a tutti,
Ho creato una sorta di alert in una maschera che mi indica se ci sono delle scadenze nella giornata odierna, il tutto funziona così:
Su una maschera, chiamata "proroghe", si inserisce una data di scadenza, se la data di scadenza corrisponde con la data odierna, verrà visualizzato all'apertura del database un messaggio di alert e verrà aperta una query in cui verranno indicati dei dati utili per quella scadenza (nome azienda etc.). Ora, il problema è uno, avendo molte date diverse da gestire (proprio come tipologie, posso avere data di prima scadenza, di seconda etc.) , vorrei fare in modo che la query venga aperta solo se non è vuota. Che codice dovrei usare? Il codice generale che sto utilizzando è questo:
Private Sub Form_Open(Cancel As Integer)
Dim x,etc etc As Integer
a = DCount("[Scadenza_prima]", "[QueryScadenza]", "[Scadenza_prima]=Date()")
If x > 0 Or y > 0 etc etc Then
If MsgBox("Attenzione ci sono " & x + y + z + a + b + c + d + e + f & " scadenze. Vuoi visualizzarle?", vbYesNo, "AVVISO") = vbYes Then
DoCmd.OpenQuery "QScadenze", acViewNormal
End if
End if
End sub
Il codice funziona, ho tolto molte parti per non allungarlo, ma cosa devo inserire per far in modo di aprire una query solo se ci sono effettivamente dei dati all'interno? Grazie in anticipo