[Access] Finestra Messaggio dati non presenti in una query

Question

Ciaooo a tutti....ciao Giorgio e Buon Anno 2010;

...ho una maschera (... la famosa maschera Giorgio... hi..!!) che trae origine da una query di selezione di nominativi. Nell'ipotesi in cui il nominativo ,e quindi i dati non sono presenti nella query, invece di lanciare ed  aprire la maschera vuota, è possibile far comparire un messaggio che avvisa l'utente che i dati ricercati non sono presenti in archivio...?

..Grazie ancora infinite..!!

Francesco Laroccia

Answer 1

Ciaooo Giorgio...!!

..perfetto....!! Tutto gira a meraviglia...!!...al 100%100

...Non finirò mai di ringraziare  te ,ed insieme al contributo degli altri moderatori , sulle cose che sto apprendendo su questo meraviglioso Forum..!!

Grazie ancora Giorgio..!!..a presto..!!!

Francesco Laroccia

Answer 2

Ciaoo Giorgio ..ho provato tutto ok.....il messaggio sull'errore 2501 di Access non mi esce piùù.:! Il tuo codice modificato va bene anche su un report Vuoto..??

Private Sub Report_NoData(Cancel As Integer)

If Me.Recordset.RecordCount = 0 Then MsgBox "Non ci sono dati da stampare!!", vbExclamation

Cancel = True

End If

End Sub

 sull'evento report vuoto del report.?? Grazie Francesco Laroccia

Answer 3

Ciao Francesco,

dipende da come fai ad aprire la maschera.

Da un pulsante posto su un'altra maschera ? Se è così intercetta l'errore 2501

Esempio con pulsante creato da autocomposizione in cui ho inserito il controllo sull'errore 2501

Private Sub Comando0_Click()

On Error GoTo Err_Comando0_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Rientri effettuati"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Comando0_Click: Exit Sub

Err_Comando0_Click: If Err <> 2501 Then '<<<< Controllo 2501 >>>>> MsgBox Err.Description End If Resume Exit_Comando0_Click

End Sub

Ciao

Giorgio Rancati

Answer 4

Ciaoo Giorgio..

...già provato....perfetto..!!!..

.. ma come faccio ad eleminare il messaggio successivo di Access che mi dice : "L'azione OpenForm è stata annullata".. c'è un modo di annullare o nascondere questo ulteriore messaggio.?? ...

...Come  sempre Giorgio..grazie..!!!

Francesco Laroccia

Answer 5

Ciao Franco,

puoi inserire nell'evento "Su Apertura della maschera" un codice che controlli se la maschera ha records, se non ne ha allora mostra il messaggio di avviso e impedisce l'apertura della maschera annullando l'evento.

esempio:

Private Sub Form_Open(Cancel As Integer)

If Me.Recordset.RecordCount = 0 Then
   MsgBox "Non ci sono dati da visualizzare!!", vbExclamation
   Cancel = True
End If

End Sub Ciao

Giorgio Rancati