How to execute a message having 'Yes/No' Options? 2

[kosala1981]

I want to execute code, only when i click yes option of the message.
following is my code. here i try to delete a record and when i click 'Yes', the record should be deleted but the record deletes when i click 'No' as well.

Code:

If vbYes=6 Then 'both yes & no options delete records'

DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

End If

 

[PHV]

vbYes=6 is ALWAYS true.
Your test should be like this:
reply = MsgBox(...)
If reply = vbYes Then
' delete record stuff
End If

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[TheAceMan1]

or

[blue]   If MsgBox(...) = vbYes Then
[green]      'delete records[/green]
   End If[/blue]

See Ya! . . . . . .

Be sure to see FAQ219-2884:

 

[kosala1981]

thank u all for ur kind support.