Resultaat van messagebox afvragen

[Laroguz]

Ik wil bij een bepaalde actie even een overweging geven d.m.v. een messagebox. Afhankelijk van het resultaat van die messagebox worden er wel of geen acties uitgevoerd. Om de een of andere reden moet ik nu steeds twee keer op de knop drukken voordat er iets gebeurd. Waarom is dit?

Private Sub CmdArchiveren_Click()

    Dim Resultaat As VbMsgBoxResult
    Resultaat = MsgBox("Met deze actie worden alle verzonden items gearchiveerd naar een aparte tabel!", vbOKCancel, "Informatie")
    
    MsgBox "Met deze actie worden alle verzonden items gearchiveerd naar een aparte tabel!", vbOKCancel, "Informatie"
    
    If Resultaat = 2 Then
        GoTo Eind
    Else
        DoCmd.OpenQuery "QryMagazijnVerzondenArchiveren"
        DoCmd.OpenQuery "QryMagazijnVerzondenDelete"
    End If
    
Eind:

End Sub

groeten
Wim Janssen

 

[OctaFish]

Je laat twee keer dezelfde messagebox zien; de eerste keer wijs je het resultaat toe aan de variabele Resultaat, en de tweede keer nog een keer op zichzelf. De laatste kan dus weg.

 

[Laroguz]

Michel,

Bedankt, het werkt.

groeten
Wim