Pristupne Primjeri

Spriječiti otvaranje izvješće, ako nema podataka za prikaz

Mi može spriječiti izvješće otvoreno, ako nema podataka za prikaz, a za to ćemo koristiti dva oblika, ovisno o verziji programa Access:

1 - Svi verzije PRISTUPA
Postavite sljedeći kôd u svojstva izvješću, događaj 'Omogućivanje ¡ť

Koristite događaja Omogućavanje (Aktiviraj) izvješće:

Private Sub Report_Activate ()

Ako DCount ("*", Me.RecordSource) = 0 tada

MsgBox "Nema zapisa za prikaz" vbDefaultButton1 "Error!"

AcReport DoCmd.Close ", naziv izvješća"

Kraj Ako je

End Sub

2 - Od verzije 7 (Access 95) bio je dodan događaj 'ako bez podataka', onda možemo urilizar sljedeći kod:

Private Sub Report_NoData (Cancel kao cijeli broj)

MsgBox "Nema podataka u izvješću." I VbInformation "Error!"

Odustani = True

End Sub

Da biste vidjeli trčanje preuzimanje primjer: Spriječiti otvaranja izvješće

Objavljeno u Nekategorizirane | priključi se 13 Comments »