Auf Formular warten...

[datekk]

Hi.

Über eine Schaltfläche soll sich via VBA ein Listen-Formular öffnen. In diesem Formular wird ein Datensatz aus einer Liste von Einträgen ausgewählt und die ID des betreffenden Datensatzes wird an die Variable p_ClientID übergeben.

Ich habe also erstens eine Ereignisprozedur zum öffnen des Formulars und in dem Formular wieder eine Prozedur zur Übergabe der Variable. Wie kann ich nun die erste Prozedur fortsetzen wenn die Variable mit einem Wert größer Null belegt wurde?

Meine Überlegungen sehen wie folgt aus:

Code [Auswählen] Erweitern



Private Sub Befehl127_Click()

p_ClientID = 0
DoCmd.OpenForm "frm_Kundenauswahl"

Do Until

p_ClientID > 0

Loop

DoCmd.Close "frm_Kundenauswahl"

MsgBox p_ClientID

End Sub


Das Formular wird zwar geöffnet, dann hängt der Code aber in der Loop Schleife und Access hängt sich irgendwann auf...

Wie kann man das besser lösen? Hintergrund ist, dass ich das Formular zur Kundenauswahl mehrfach in der Datenbank gebrauchen kann und nicht für jeden einzelnen Fall ein extra Formular und eine individuelle Routine basteln möchte wenn der einzige Grund des Formulars darin liegt, eine ID in eine Variable zu stellen. Die Verwendung der Variable ist dann nach Auswahl jedes mal eine andere.

[DF6GL]

Hallo,


öffne das Form modal:

DoCmd.OpenForm "frm_Kundenauswahl", , , , , acDialog

[datekk]

  Sauber... Danke.. Das war ja mal ganz einfach...