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 »

Kako spriječiti obrazac otvoren, ako nema nikakvih zapisa za prikaz?

Ponekad je potrebno kako bi se spriječilo obrazac otvoren, ako postoje zapisi koji pokazuju, na primjer kada se radi upita i bez registracija nije potrebna, ne trebamo biti otvoreni oblik jer nemamo podataka za prikaz. Dakle, ono što moramo provjeriti da li postoje zapisi pokazati i ako ne postoji prikazati poruku i spriječiti oblik otvoren. Kako?

To je lako samo staviti kod ispod u obliku svojstava u slučaju 'otvoriti':

= 0 Zatim Ako Form.RecordsetClone.RecordCount
MsgBox "Podaci nisu pronađeni.", VbExclamation "Greška!"
DoCmd.Close acForm ", naći podatke"
Exit Sub
Kraj Ako je

Da biste vidjeli primjer download: Spriječiti Obrazac Otvoreno

Objavljeno u Primjeri i Obrasci i modula | priključi 2 Komentari »