[AccessD] Code Help Please

I would make sure the TXT box on the form has a different name than the
CONTROL SOURCE
So if txtQBInvoice is the CONTROL SOURCE Then change the txt box to
txtQBInvoiceNbr
And change   If Me.txtQBInvoice  Is Null Then  TO  If Me.txtQBInvoiceNBR
Is Null Then

The only other thing I would think of trying is create the txt msg in a
string variable and see if it changes things

Good luck

> On Error GoTo Err_cmdPreviewPackList_Click
> 
>   Dim cancel As Boolean
> 
>   Dim lngRetval As Long
     DIM txtMSG as string
>         
> 
>     If Me.txtQBInvoiceNBR Is Null Then
          txtMSG = "Please Select a Quick Books Invoice Number"  &
vbCRLF
          txtMSG = txtMSG &  "Before Running Report."

>       lngRetval = MsgBox(txtMSG, vbOKOnly + vbExclamation +
vbDefaultButton2, "No QB Invoice Number Listed")
> 
> 
>      
> 
**************************************************
* Patricia O'Connor
* Associate Computer Programmer Analyst
* OTDA - BDMA
* (W) mailto:Patricia.O'Connor at otda.state.ny.us
* (w) mailto:aa1160 at nysemail.state.ny.us
**************************************************
 

> 
--------------------------------------------------------
This e-mail, including any attachments, may be confidential, privileged or otherwise legally protected. It is intended only for the addressee. If you received this e-mail in error or from someone who was not authorized to send it to you, do not disseminate, copy or otherwise use this e-mail or its attachments.  Please notify the sender immediately by reply e-mail and delete the e-mail from your system. 


-----Original Message-----

> From: accessd-bounces at databaseadvisors.com 
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe Hecht
> Sent: Wednesday, March 05, 2008 10:26 PM
> To: 'Access Developers discussion and problem solving'
> Subject: [AccessD] Code Help Please
> 
> 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
> 
>