Exemple de acces

Împiedica deschiderea unui raport în cazul în care nu există date pentru a arăta

Miercuri 2009-5-douăzeci

Putem preveni un raport deschis în cazul în care nu există date pentru a arăta, şi pentru aceasta vom folosi două forme, în funcţie de versiunea de Access:

1 - Toate versiunile de ACCES
Plasaţi codul de mai jos, în proprietăţile raportului, "de abilitare" eveniment

Utilizaţi eveniment Activarea (Activare) Raport:

Sub Private Report_Activate ()

Dacă DCount ("*", Me.RecordSource) = 0 atunci

MsgBox "Nu există înregistrări pentru a afişa" vbDefaultButton1, "Eroare!"

AcReport DoCmd.Close, "numele de raport"

Final, dacă

End Sub

2 - de la versiunea 7 (Access 95) a fost adaugat evenimentul "în cazul în care nu există date", atunci putem urilizar codul de mai jos:

Private Sub Report_NoData (Anulează ca integer)

MsgBox "Nu există date în raport.", VbInformation, "Eroare!"

Cancel = True

End Sub

Pentru a vedea care rulează descărca de exemplu: prevenirea raport de deschidere

Postat în Uncategorized | 13 Comments »

Cum de a preveni o formă deschisă, dacă nu există înregistrări pentru a arăta?

Sâmbătă doi-05-2009

Uneori este necesar pentru a preveni o formă deschisă, dacă există înregistrări pentru a arăta, de exemplu, atunci când faci o interogare şi nu de înregistrare nu este necesară, nu trebuie să fie sub formă deschisă, deoarece nu avem date pentru a afişa. Deci, ceea ce avem este de a verifica dacă există înregistrări pentru a arăta şi dacă nu există nici o afişa un mesaj şi împiedică formularul de deschis. Cum?

Este uşor de a pune doar codul de mai jos, în proprietăţile de formular, în cazul "pentru a deschide":

= 0, apoi, dacă Form.RecordsetClone.RecordCount
MsgBox "Nu au fost găsite.", VbExclamation, "Eroare!"
DoCmd.Close acForm, "să găsească date"
Exit Sub
Final, dacă

Pentru a vedea un exemplu descarcati: Prevenirea formă deschisă

Posted in exemple , formulare , module | 2 Comentarii »