VB MessageBox Options

[starkbergs]

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

 

[Doug Robbins - Word MVP]

There is no form specified in the command

DoCmd.OpenForm "", , , , acFormAdd

As this is code for Acess, it would be better to ask your questions in one
of the Access newsgroups - probably microsoft.public.access.formscoding.

--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP