Parameterübergabe

[dierk1804]

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.

[MzKlMu]

Hallo,

Alles kein Problem wenn die übergebene Nr vorhanden ist.

dann zeige mal wie Du das machst.

[dierk1804]

Hallo,
Der Code:

stDocName = "anderesform"
stLinkCriteria = "Artnr=" & Me.Artnr
DoCmd.OpenForm stDocName, , , stLinkCriteria

[bahasu]

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

[MzKlMu]

Hallo,
oder so:

Code [Auswählen] Erweitern

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

[dierk1804]

Hallo liebe Helfer,

Vielen Dank für die schnelle Hilfe. Klappt einwandfrei.

Gruß,
Dierk