Check this Code For Me Please- Can't Figure out what's wrong

camalita · Apr 10th, 2002, 08:11 AM

All I get when I click on the CommandButton are the Message Boxes. What's wrong with my code? Can anyone help?

Mareene

Private Sub CommandButton3_Click()
MsgBox "Do You Have T. P Vehicle Info To Add?", vbYesNo
If Response = vbYes Then
MultiPage1.Value = 1
Name1.SetFocus
Else
MsgBox "Do You Have T. P. Injury & Cargo Info To Add? ", vbYesNo
If Response = vbYes Then
MultiPage2.Value = 2
Nametp1.SetFocus
Else
CommandButton1_Click
End If
End If

End Sub

camalita · Apr 10th, 2002, 09:22 AM

Never mind, I figured it out.

Mareene

camalita · Apr 10th, 2002, 11:09 AM

On second thought, maybe someone would have a look at this and let me know what is going on. I thought I had it working but it's not.

Tom Schreiner · Apr 10th, 2002, 11:22 AM

Try this:

Private Sub CommandButton3_Click()
Response = MsgBox("Do You Have T. P Vehicle Info To Add?", vbYesNo)
If Response = vbYes Then
MultiPage1.Value = 1
Name1.SetFocus
Else
Response = MsgBox("Do You Have T. P. Injury & Cargo Info To Add? ", vbYesNo)
If Response = vbYes Then
MultiPage2.Value = 2
Nametp1.SetFocus
Else
CommandButton1_Click
End If
End If

End Sub

Tom

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Apr 10th, 2002, 08:11 AM	#1
camalita New Member Join Date: Apr 2002 Posts: 26	All I get when I click on the CommandButton are the Message Boxes. What's wrong with my code? Can anyone help? Mareene Private Sub CommandButton3_Click() MsgBox "Do You Have T. P Vehicle Info To Add?", vbYesNo If Response = vbYes Then MultiPage1.Value = 1 Name1.SetFocus Else MsgBox "Do You Have T. P. Injury & Cargo Info To Add? ", vbYesNo If Response = vbYes Then MultiPage2.Value = 2 Nametp1.SetFocus Else CommandButton1_Click End If End If End Sub

Apr 10th, 2002, 09:22 AM	#2
camalita New Member Join Date: Apr 2002 Posts: 26	Never mind, I figured it out. Mareene

Apr 10th, 2002, 11:09 AM	#3
camalita New Member Join Date: Apr 2002 Posts: 26	On second thought, maybe someone would have a look at this and let me know what is going on. I thought I had it working but it's not.

Apr 10th, 2002, 11:22 AM	#4
Tom Schreiner Board Regular Join Date: Mar 2002 Location: Cincinnati, Ohio, USA Posts: 6,824	Try this: Private Sub CommandButton3_Click() Response = MsgBox("Do You Have T. P Vehicle Info To Add?", vbYesNo) If Response = vbYes Then MultiPage1.Value = 1 Name1.SetFocus Else Response = MsgBox("Do You Have T. P. Injury & Cargo Info To Add? ", vbYesNo) If Response = vbYes Then MultiPage2.Value = 2 Nametp1.SetFocus Else CommandButton1_Click End If End If End Sub Tom