Using DoCmd in an IF/Then statment

C

Curtis

I am using the below coding, debug says there are no problems, but the Else
statement DoCmd will not run. Can anyone tell me what is wrong here?

Function Another_Record()

MSGBOX "Do you wish to do another LRU update?", vbYesNo, "LRU UPDATE"
If vbYes Then
DoCmd.GoToControl "Serial Number"
Else
DoCmd.Close acForm, "EDIT CDS LRU ASSET"
End If
End Function
 
M

Marshall Barton

Curtis said:
I am using the below coding, debug says there are no problems, but the Else
statement DoCmd will not run. Can anyone tell me what is wrong here?

Function Another_Record()

MSGBOX "Do you wish to do another LRU update?", vbYesNo, "LRU UPDATE"
If vbYes Then
DoCmd.GoToControl "Serial Number"
Else
DoCmd.Close acForm, "EDIT CDS LRU ASSET"
End If
End Function
Click to expand...


Didn't I see this question asked and answered yesterday?

Function Another_Record()

If vbYes = MSGBOX("Do y . . .) Then
DoCmd.GoToControl "Serial Number"
Else
DoCmd.Close acForm, "EDIT CDS LRU ASSET"
End If
End Function
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

The Docmd in this IF/Then Statement will not work 1
IF THEN ELSE CODING missing a step 2
VBA Coding for DoCMD Statements. 3
Making a macro only work on certain files 2
Prompt For Replace in Selection And More... 0
Page numbering with Merged Document and IF statements 1
Keep form open until loop completes 2
If statment from msgbox responce 4

Top