Hallo zusammen,
Leider habe ich im Forum nichts zu meinem Problem gefunden. Deshalb hier meine Frage.
Ich möchte ein Formular mit Parameterübergabe öffnen. Alles kein Problem wenn die übergebene Nr vorhanden ist. Wie kann ich eine Mitteilung ausgeben wenn der Übergebene Wert nicht da ist? Und anschließend soll das Formular auch nicht auf gehen. Soll natürlich nur passieren wenn Parameter übergeben werden.
Für Hilfe wäre ich dankbar.
Hallo,
ZitatAlles kein Problem wenn die übergebene Nr vorhanden ist.
dann zeige mal wie Du das machst.
Hallo,
Der Code:
stDocName = "anderesform"
stLinkCriteria = "Artnr=" & Me.Artnr
DoCmd.OpenForm stDocName, , , stLinkCriteria
Hi,
im Anhang ein Beispiel mit Formularen:
Formular_A: wird aufgerufen von den beiden anderen Formularen. Bei Öffnen wird geprüft, ob ein OpenArgs übergeben wurde. Falls nein => wird es gleich wieder geschlossen.
Hilft das?
Harald
Hallo,
oder so:
stDocName = "anderesform"
stLinkCriteria = "Artnr=" & Me.Artnr
IF DCount("*","Tabellenname", stLinkCriteria) > 0 Then
DoCmd.OpenForm stDocName, , , stLinkCriteria
Else
Msgbox "Diese Artnr ist nicht vorhanden"
End If
Hallo liebe Helfer,
Vielen Dank für die schnelle Hilfe. Klappt einwandfrei.
Gruß,
Dierk