Was „OnClick“ Ereignis?
Sie spezifizierten, dass dieses geschehen sollte…:
„Wenn der Benutzer den nahen Knopf“ anklickt („der nahe Knopf“,… naher Knopf des Bedeutung *the* Fensterstandards, der wenig „X“ in der oberen rechten Seite eines Fensters)
… nicht…
„Wenn der Benutzer *my* nahen Knopf anklickt.
So sind unsere Codes auf dem nahen Ereignis und dem Entleerungsereignis empfänglich.
Wenn Sie den Code auf „Ihrem“ nahen Knopf wünschen, dann Code so verwenden:
Privates VorbtmClose_Click ()
Schwaches bytAnswer als Schnur
Wenn Instock.Value <> 0 dann
bytAnswer = MsgBox („Ausgang jetzt? “, vbYesNo, „Ausgang? ")
Wenn bytAnswer = vbYes dann
'Nichts tun
ElseIf bytAnswer = vbNo dann
Me.Instock.SetFocus
Unterseeboot herausnehmen
Beenden wenn
Sonst
'Nichts tun
Beenden wenn
DoCmd.Close
Unterseeboot beenden
Hier daran erinnern, dass Sie uns nicht erklärt haben, dass was anderer Code (wenn überhaupt) auf Ihrem nahen Knopf bereits anwesend ist, also kann dieser Code gezwickt werden müssen.
Schließlich an das erinnern, wenn Sie Ihren eigenen nahen Knopf kodieren, den Sie, sicher zu sein haben, dass Sie alle Möglichkeiten für die verschiedenen Zustände umfassen, dass die Daten innen gelassen werden können.
Ich bin sicher, dass 2toria ähnlichen Arbeitscode bekannt geben kann.
; -)
JeffCoachman