Using DoCmd in an IF/Then statment

  • Thread starter Thread starter Curtis
  • Start date Start date
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
 
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
 
Back
Top