Vraag : Als, toen, Waarschuwend Bericht…?

Hallo, heb ik een gebied (genoemd Telling) op een vorm die automatisch wordt berekend. Wanneer de gebruiker dichte knoop I behoefte als verklaring klikt om de waarde op het gebied te controleren en als groter of minder dan 0, ik vereist een berichtvakje vragend de gebruiker of willen zij weggaan. Als zij ja klikken, dan het vormsluiten. Als zij geen klikken zullen zij op de vorm zijn teruggekomen om veranderingen aan te brengen. Natuurlijk, als de gebiedswaarde 0 is zou ik van de vorm aan het sluiten zonder enig berichtvakje appearing.

Thank u voor uw help. houden

Antwoord : Als, toen, Waarschuwend Bericht…?

Wat gebeurtenis „OnClick“?

U specificeerde dat dit zou moeten gebeuren…:
 „Wanneer de gebruiker de dichte knoop“ klikt (de „Dichte knoop“,… betekenend *the* vensters standaard dichte knoop, weinig „X“ in de hogere rechterkant van een venster)
… niet…
 „Wanneer de gebruiker *my* klikt sluit knoop.

Zo ontvankelijk zijn onze codes op de Dichte gebeurtenis en de Unload gebeurtenis.

Als u de code inzake „Uw“ dichte knoop wilt, dan gebruik code als dit:

Privé SubbtmClose_Click ()
Schemerige bytAnswer als Koord

    Als Instock.Value <> 0 toen
        bytAnswer = MsgBox („Uitgang nu? “, vbYesNo, „Uitgang? “)
            Als bytAnswer = vbYes toen
                'Doe niets
            ElseIf bytAnswer = vbNo toen
                Me.Instock.SetFocus
                Sub van de uitgang
            Eind als
    Anders
        'Doe niets
    Beëindig als
   
    DoCmd.Close
Sub van het eind

Herinner hier dat u ons hebt verteld wat andere code (als geen) reeds op uw dichte knoop aanwezig is, zodat kan deze code moeten worden geknepen.

Tot slot herinner dat wanneer u uw eigen dichte knoop codeert u zeker hebt te zijn dat u alle onvoorziene uitgaven voor de diverse staten behandelt dat de gegevens kunnen binnen worden verlaten.

Ik ben zeker 2toria gelijkaardige het werk code kan posten.

; -)

JeffCoachman