vb yes no question

[nevstic]

Greetings all
would you help with the following please
I want to prduce a report on a vb yes no box, I have the first bit, but my report prints on both the yes answer and the no too !
could you fill me in please or is there an easier way than my attempt ?

Private Sub Command81_Click()
On Error GoTo Err_Command81_Click
Dim stDocName As String
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
MsgBox "print receipt", vbYesNo
If vbYes Then
stDocName = "Receipt query"
DoCmd.OpenReport stDocName, acNormal
elseif vbno ?????

Exit_Command81_Click:
Exit Sub

Err_Command81_Click:
MsgBox Err.Description
Resume Exit_Command81_Click
End If

End Sub

many thanks

 

[jimlee]

you need to assign your message box answer to an integer variable ie:

dim intAnswer as integer

intAnswer = msgbox "print receipt", vbYesNo

if intAnswer = vbyes then
...code here



jimlad

 

[AccessGuruCarl]

Try this...
Straight from the Help File!

Dim Msg, Style, Title, Response
Msg = "Would you like to print a receipt?"    ' Define message.
Style = vbYesNo + vbQuestion    ' Define buttons.
Title = "Print Receipt"    ' Define title.
' Display message.
Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then    ' User chose Yes.
    stDocName = "Receipt query"
    DoCmd.OpenReport stDocName, acNormal
End If

AccessGuruCarl
Programmers helping programmers
you can't find a better site.

 

[nevstic]

Hi and thanks fopr the quicko response fromyou both.
Jimlee
could you go a little deeper for me as this is new to me

The Int answer piece goes red ! and IO don't understand ?
do you have a more complete example ?

Many thanks
Nick

 

[jimlee]

Sorry, forgot the brackets around the msgbox parameters, try this...(also moved your end if line)

Private Sub Command60_Click()
On Error GoTo Err_Command81_Click
    Dim intAnswer As Integer
    Dim stDocName As String
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
intAnswer = MsgBox("print receipt", vbYesNo)
If intAnswer = vbYes Then
    stDocName = "Receipt query"
    DoCmd.OpenReport stDocName, acNormal
  'elseif vbno ?????
End If
Exit_Command81_Click:
    Exit Sub

Err_Command81_Click:
    MsgBox Err.Description
    Resume Exit_Command81_Click


End Sub

jimlad

 

[nevstic]

wonderful....many many thanks indeed

best rgds
Nick

 

[jimlee]

no probs

jimlad