[AccessD] Code Help Please

Joe,

Try replacing the Me.txtQBInvoice with Me!txtQBInvoice

Regards

David

At 6/03/2008, you wrote:
>The following code is supposed to make sure there is an invoice number in
>the text box before previewing report.
>
>
>
>When I run it I get an application error msg box saying object required.
>
>
>
>What have I forgotten now,
>
>
>
>On Error GoTo Err_cmdPreviewPackList_Click
>
>   Dim cancel As Boolean
>
>   Dim lngRetval As Long
>
>
>
>
>
>
>
>     If Me.txtQBInvoice Is Null Then
>
>       lngRetval = MsgBox( _
>
>       "Please Select a Quick Books Invoice Number" & vbCrLf & "Before
>Running Report.", _
>
>       vbOKOnly + vbExclamation + vbDefaultButton2, _
>
>       "No QB Invoice Number Listed")
>
>
>
>
>
>
>
>       Select Case lngRetval
>
>       Case vbOK
>
>       cancel = True
>
>
>
>
>
>   End Select
>
>   End If
>
>
>
>TIA
>
>
>
>Joe Hecht
>
>Joe at anamericanjoe.us
>
>
>
>--
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website: http://www.databaseadvisors.com