Vad ”OnClick” händelse?
Du specificerade att denna bör hända…:
Knäppas”, ”när användaren klickar slutet (”slutet knäppas”,… menande *the*fönster som det standarda slutet knäppas, lite ”xet” i den övre högra sidan av ett fönster),
… inte…,
Knäppas, ”när användaren klickar *my*slut.
Så vårt kodifierar är på den nära händelsen och avlastningshändelsen receptively.
Om du önskar kodifiera på ”ditt” slut, knäppas, då bruk kodifierar något liknande detta:
Privat underbtmClose_Click ()
Dunkel bytAnswer som stränger
Om Instock.Value <> 0 därefter
bytAnswer = MsgBox (”gå ut nu? ” vbYesNoen, ”går ut? ”)
Om bytAnswer = vbYes därefter
'Gör ingenting
ElseIf bytAnswer = vbNo därefter
Me.Instock.SetFocus
Gå ut suben
Avsluta om
Annars
'Gör ingenting
Avsluta om
DoCmd.Close
Avsluta suben
Minns här att du har inte berättat oss att vad annan kodifierar (om några) är närvarande på ditt slut, knäppas redan, så detta kodifierar kan behöva att tweakeds.
Minns att, när du kodifierar ditt egna slut, knäppas dig har att vara säkert att du täcker alla eventualiteter för det olikt påstår att datan kan lämnas in, slutligen.
I förmiddag säker 2toria kan posta det liknande arbetet kodifierar.
; -)
JeffCoachman