Access Eksempler

Undgå at åbne en rapport, hvis ingen data at vise

Onsdag, maj 20, 2009

Vi kan forhindre en rapport, åben, hvis ingen data at vise, og til dette bruger vi to former afhængigt af den version af Access:

1 - Alle versioner af Access
Placer koden nedenfor egenskaber rapporten, hvis "Aktivering af forb.

Brug begivenhed Enabling (Aktivér) Rapport:

Private Sub Report_Activate ()

Hvis DCOUNT ("*", Me.RecordSource) = 0 Så

MsgBox "Ingen poster at vise" vbDefaultButton1, "Fejl!"

AcReport DoCmd.Close, "rapport navn"

End If

End Sub

2 - Fra version 7 (Access 95) blev tilføjet event ', hvis ingen data', så kan vi urilizar følgende kode:

Private Sub Report_NoData (Cancel As Integer)

MsgBox "Ingen data i rapporten.", VbInformation, "Fejl!"

Annuller = True

End Sub

Hvis du vil se kører downloade eksempel: Undgå åbning rapport

Posted in Ikke kategoriseret | 13 kommentarer »

Hvordan undgår jeg at en form åben, hvis ingen optegnelser for at vise?

Lørdag 2 maj, 2009

Nogle gange er det nødvendigt at forhindre en form åben, hvis der er logbøger, der dokumenterer, for eksempel når du laver en forespørgsel og ingen registrering er ikke påkrævet, behøver vi ikke at være åben form, da vi har ingen data at vise. Så hvad vi har for at tjekke, om der er logbøger, der dokumenterer, og hvis der ikke viser en besked, og hindre formularen åben. Hvordan?

Det er nemt at bare sætte koden nedenfor i form ejendomme i tilfælde af 'for at åbne':

= 0 Then Hvis Form.RecordsetClone.RecordCount
MsgBox "Ingen poster blev fundet.", VbExclamation, "Fejl!"
DoCmd.Close acForm, "find data"
Exit Sub
End If

Hvis du vil se et eksempel downloade: Undgå Form Open

Posted in Eksempler og Forms og Modules | 2 Comments »