message box issues

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

starkbergs@gmail.com - 14 Jan 2008 17:22 GMT

I am working on a form "A" and i have created a Message box that has
'yes' and 'No' options.

if i click on the yes button then it should open up a new form "B"
for me,But if i click on the No option then it should let me stay in
the same form that i have been working previsiouly.

I have this code here.Can anyone help me as to what i am missing here.

Private Sub Form_Open(Cancel As Integer)
If IsNull(CompanyID) Or IsNull(InspectorID) Then
MsgBox "", vbYesNo + vbCritical + vbDefaultButton2
If Response = vbYes Then
DoCmd.OpenForm "", , , , acFormAdd
Else
If Response = vbNo then
Exit Sub
End if

Reply to this Message

David Sisson - 14 Jan 2008 18:28 GMT

This is a Word group, but the command in Access seems to be the same.

Try,

Private Sub Form_Open(Cancel As Integer)
If IsNull(CompanyID) Or IsNull(InspectorID) Then
Response = InputBox("", vbYesNo + vbCritical + vbDefaultButton2)
If Response = vbYes Then
DoCmd.OpenForm "", , , , acFormAdd 'I'm not sure about this.
Else
If Response = vbNo Then
Exit Sub
End If

Reply to this Message

starkbergs@gmail.com - 16 Jan 2008 13:36 GMT

> This is a Word group, but the command in Access seems to be the same.
>
[quoted text clipped - 9 lines]
> Exit Sub
> End If

Thank you so much.

Reply to this Message