MsgBox responce If statment

[Dave]

seems I can't get an IF statement based upon the response from a msgbox
function

This is what I have

MsgBox "This will delete all information on this caller" & vbLf & _
"Are you sure you want to do this", vbYesNo
If vbYesNo = Yes Then
Me.FirstName.Value = ""
Me.LastName.Value = ""
Me.Caller.Value = ""

Else
Exit Sub
End If
Me.Status = 4
DoCmd.Close

If I hit YES it does not delete the info.

should the IF statement be true/false or 0/1 instead of Yes/No?

Is the MsgBox written wrong?

Any help here will be appreciated.

Thanks in advance
dave

 

[Charlotte E.]

Try this:


If MsgBox("This will delete all information on this caller" & vbLf & "Are
you sure you want to do this", vbYesNo) = vbYes then
Me.FirstName.Value = ""
Me.LastName.Value = ""
Me.Caller.Value = ""
Else
Exit Sub
End If

 

[Dave]

Thank you.

That did the trick

Dave

Try this:


If MsgBox("This will delete all information on this caller" & vbLf & "Are
you sure you want to do this", vbYesNo) = vbYes then
Me.FirstName.Value = ""
Me.LastName.Value = ""
Me.Caller.Value = ""
Else
Exit Sub
End If

seems I can't get an IF statement based upon the response from a
msgbox function

This is what I have

MsgBox "This will delete all information on this caller" &
vbLf & _ "Are you sure you want to do this", vbYesNo
If vbYesNo = Yes Then
Me.FirstName.Value = ""
Me.LastName.Value = ""
Me.Caller.Value = ""

Else
Exit Sub
End If
Me.Status = 4
DoCmd.Close

If I hit YES it does not delete the info.

should the IF statement be true/false or 0/1 instead of Yes/No?

Is the MsgBox written wrong?

Any help here will be appreciated.

Thanks in advance
dave