Probleem met If Answer

[Spelt]

Beste forumgebruikers,

ik heb hieronder een stuk code met een probleempje. In het laatste deel heb ik een messagebox geprogrammeerd. Op Yes moet deze DocMd.Sendobject uitvoeren, en op No moet deze Exit-en. Nou antwoord Access op Yes en No met Exit Sub.

Volgens mij is het heel simpel op te lossen, maar ik kom er niet meer uit. Wie heeft voor mij het verlossende antwoord?

Bij voorbaat dank!!

Private Sub Command67_Click()
'place this code in the clicked event of your command
'button which starts the report, e.g., "Run Report"
' listbox is called List71
' the recordsource for the report is a query
' containing all the field elements you need
Dim strFilter As String
Dim varItem As Variant
Dim Answer As VbMsgBoxResult

' loop through listbox items selected
For Each varItem In Me!List71.ItemsSelected
strFilter = strFilter & "[External owner] = '" & _
Me![List71].ItemData(varItem) & "' OR "
Next ' continue loop
'
' the next bit of code will subtract out the last "OR"
If strFilter <> "" Then
strFilter = Left(strFilter, Len(strFilter) - 4)
Else
MsgBox "You did not select any haulier(s)."
List71.SetFocus
Exit Sub
End If
'
' now, run the report using strFilter to pass a string
' containing the needed customers
DoCmd.OpenReport "Actionlist Carriers import", acPreview, , strFilter
MsgBox "Report SNP* Output mailen?", vbYesNo, "Mail Output"

If Answer = vbYes Then
DoCmd.SendObject acReport, "Actionlist Carriers import", "SnapshotFormat(*.snp)", "", "", "", "", "", False, ""

ElseIf Answer = vbNo Then
Exit Sub
End If

On Error Resume Next
'CODE
On Error GoTo 0

End Sub

 

[OctaFish]

Dit moet werken:

[B][COLOR="Blue"]Answer = MsgBox("Report SNP* Output mailen?", vbYesNo, "Mail Output")[/COLOR][/B]
If Answer = vbYes Then
    DoCmd.SendObject acReport, "Actionlist Carriers import", "SnapshotFormat(*.snp)", "", "", "", "", "", False, ""
Else
    Exit Sub
End If