[AccessD] Still cant kill the cancel messgae in No Data Event

Thanks Karen,

I tried your code. It did not work. I still get report action has been
canceled. How do I make it go away.

    On Error GoTo PROC_ERR
    'TVCodeTools ErrorEnablerEnd
    
    Dim lngRetval As Long
    
    lngRetval = MsgBox(  "There are no products requiring a       	QAIP
Form in for this Purcase Order.", _
    vbOKOnly + vbInformation + vbSystemModal + vbDefaultButton1, _
    "No QAIP for this PO")
     Select Case lngRetval
        Case vbOK
    pintCancel = 1
    End Select
    'TVCodeTools ErrorHandlerStart
PROC_EXIT:
    Exit Sub
    
PROC_ERR:
    MsgBox Err.Description
    Resume PROC_EXIT
    'TVCodeTools ErrorHandlerEnd
    
End Sub

JOE HECHT
LOS ANGELES CA 
 jmhla at earthlink.net