Tillgång Exempel

Förhindra att öppna en rapport om inga data som visar

Onsdag, maj 20, 2009

Vi kan förhindra en rapport öppen om inga data som visar, och för detta använder vi två former beroende på vilken version av Access:

1 - Alla versioner av Access
Placera koden nedan i egenskaperna för rapporten, om "möjligt för"

Använd händelsen Enabling (Aktivera) Betänkande:

Private Sub Report_Activate ()

Om DAntal ("*", Me.RecordSource) = 0 Då

MsgBox "Inga poster att visa" vbDefaultButton1, "Fel!"

AcReport DoCmd.Close, "Rapport namn"

End If

End Sub

2 - Från version 7 (Åtkomst 95) tillsattes händelsen "om inga data ', då kan vi urilizar följande kod:

Private Sub Report_NoData (Avbryt As Integer)

MsgBox "Inga uppgifter i rapporten.", VbInformation, "Fel!"

Avbryt = Sant

End Sub

För att se köra hämta exempel: Förhindra öppning rapport

Postat i Okategoriserade | 13 kommentarer »

Hur kan man förhindra en form öppen om inga poster att visa?

LÖRDAG 2 maj, 2009

Ibland är det nödvändigt att förhindra att ett formulär öppet om det finns register som visar, till exempel när du gör en fråga och ingen registrering krävs inte, behöver vi inte vara öppen form eftersom vi inte har några data att visa. Så vad vi måste kontrollera är om det finns register som visar och om det inte finns någon visar ett meddelande och hindra formuläret öppet. Hur?

Det är lätt att bara sätta koden nedan i Egenskaper för formulär i händelse "för att öppna":

= 0 Om sedan Form.RecordsetClone.RecordCount
MsgBox "Inga poster hittades.", VbExclamation, "Fel!"
DoCmd.Close acForm, "hitta data"
Exit Sub
End If

För att se ett exempel ladda ner: Förhindra Form Open

Posted in Exemplen och Blanketter och moduler | 2 Kommentarer »