VBA msgBox - vbYes continue d'appeler mauvais sous

Question

Si je clique sur oui, VBA continue d'aller à la fonction Mandate? Qu'ai-je fait de mal?

Public AutoDate As Date 
Public NewDate As String 

Public Sub GetDate() ' DATUM BEPALEN 
    AutoDate = Date - 1 
    MsgBox (AutoDate), (vbYesNo), ("Datum") 
    Dim Response As VbMsgBoxResult 
     If Response = vbYes Then 
      NewDate = AutoDate 
      Call DeleteDate 
     Else ' No 
      Call ManDate 
     End If 
End Sub 

Answer 1

Vous n'avez pas affecté le résultat de MsgBox à la réponse.
Vous ne savez pas si VbMsgBoxResult est un type de données valide dans cette instance.

Essayez l'une de ces:

Public Sub GetDate() ' DATUM BEPALEN 

    AutoDate = Date - 1 

    If MsgBox(AutoDate, vbYesNo, "Data") = vbYes Then 
     NewDate = AutoDate 
     Call DeleteDate 
    Else ' No 
     Call ManDate 
    End If 

End Sub 

ou

Public Sub GetDate() ' DATUM BEPALEN 

     Dim Response As Long 

     AutoDate = Date - 1 
     Response = MsgBox(AutoDate, vbYesNo, "Data") 

     If Response = vbYes Then 
      NewDate = AutoDate 
      Call DeleteDate 
     Else ' No 
      Call ManDate 
     End If 

    End Sub 

Answer 2

Vous devez récupérer la réponse que le retour de la fonction MsgBox:

Dim Response as Integer 
Response= MsgBox(AutoDate, vbYesNo, "Datum") 

vous pouvez Maintenant, si le test Réponse à décider quoi faire.

Answer 3

Vous avez besoin d'une variable pour capturer la réponse ...

Dim ans As Integer 
ans = MsgBox("hello", vbYesNo, "Datum") 
If ans = vbYes Then 
    MsgBox "Yes" 
Else 
    MsgBox "No" 
End If