Příklady přístupů

Nedošlo k jejich otevření zprávu, pokud žádné údaje, které ukazují,

Můžeme zabránit zprávu otevřenou, pokud nebudou údaje, které ukazují, ak tomu používají dva způsoby v závislosti na verzi Access:

1 - Všechny verze aplikace Access
Umístěte níže uvedený kód ve vlastnostech zprávy z akce čímž se umožní států

Pomocí událostí Povolení (Aktivovat) Zpráva:

Private Sub Report_Activate ()

Pokud DPOČET ("*", Me.RecordSource) = 0 Then

MsgBox "Žádné záznamy k zobrazení" vbDefaultButton1, "Chyba!"

AcReport DoCmd.Close, "Zpráva o jméno"

End If

End Sub

2 - Od verze 7 odst. Access 95) byla přidána akce ", pokud No Data ', pak můžeme urilizar následující kód:

Private Sub Report_NoData (Cancel As Integer)

MsgBox "Žádné údaje ve zprávě.", VbInformation, "Chyba!"

Storno = True

End Sub

Chcete-li vidět běžící stáhnout příklad: Zabránit úvodní zprávu

Publikováno v Nezařazené | Uživatelské 13 Komentáře »

Jak zabránit formulář otevřený, pokud žádné záznamy ukázat?

Někdy je nutné, aby se zabránilo formátu otevře, pokud tam jsou záznamy, které ukazují, například při provádění dotazu a bez registrace není nutná, nepotřebujeme být otevřeny, protože nemáme žádná data k zobrazení. Takže to, co musíme ověřit, zda existují záznamy, které ukazují, a není-li zobrazit zprávu a bránit formou otevřené. Jak?

Je to jednoduché stačí dát kód níže ve formě nemovitostí v případě "otevřít":

= 0 Then Pokud Form.RecordsetClone.RecordCount
MsgBox "Nenalezeny žádné záznamy.", VbExclamation, "Chyba!"
DoCmd.Close acForm, "najít data"
Exit Sub
End If

Chcete-li vidět příklad stažení: Zabránit formulář Otevřít

Publikováno v příkladech a formy a Modules | Uživatelské 2 Komentáře »