Esempi di Access

Impedire l'apertura di un rapporto se non per mostrare i dati

Mercoledì, 20 maggio 2009

Siamo in grado di impedire che un rapporto aperto, se sono dati da mostrare, e per questo usiamo due forme a seconda della versione di Access:

1 - Tutte le versioni di Access
Inserire il codice qui sotto nelle proprietà del report, 'Abilitare «Il fatto

Utilizzare l'Abilitazione evento (Activate) Relazione:

Private Sub Report_Activate ()

Se DCount ("*", Me.RecordSource) = 0 Then

MsgBox "Nessun record da visualizzare" vbDefaultButton1, "Errore!"

AcReport DoCmd.Close, "nome report"

End If

End Sub

2 - A partire dalla versione 7 (Access 95) è stato aggiunto l'evento 'in assenza di dati', allora possiamo urilizar il seguente codice:

Private Sub Report_NoData (Cancel As Integer)

MsgBox "Errore!" "Non ci sono dati nel report.", VbInformation, le

Annulla = True

End Sub

Per vedere l'esecuzione scaricare l'esempio: Prevenire relazione di apertura

Pubblicato in Uncategorized | 13 Comments »

Come prevenire una forma aperta se nessun record per mostrare?

Sabato 2 maggio, 2009

A volte è necessario per evitare una forma aperta se ci sono record per mostrare, ad esempio quando si esegue una query e nessuna registrazione non è necessaria, non abbiamo bisogno di essere forma aperta dal momento che non abbiamo i dati da visualizzare. Quindi quello che dobbiamo verificare è se ci sono record da mostrare e se non vi è mostrare un messaggio e impedire la forma aperta. Come?

E 'facile mettere solo il codice qui sotto nelle proprietà del modulo nel caso in cui il' aprire ':

= 0 Then Se Form.RecordsetClone.RecordCount
MsgBox "Nessun record trovato.", VbExclamation "Errore!"
DoCmd.Close acForm, "trovare i dati"
Exit Sub
End If

Per vedere un esempio scaricare: Prevenire Open Form

Posted in Esempi , i moduli , i Moduli | 2 Commenti »