[AccessD] Code Help Please

Hi joe

When I trap for Null I usually use something like..

If isnull(Me.txtQBInvoice) then blah blah

DD


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe Hecht
Sent: Thursday, 6 March 2008 2: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

No virus found in this incoming message.
Checked by AVG Free Edition. 
Version: 7.5.516 / Virus Database: 269.21.4/1310 - Release Date: 04/03/2008 8:35
AM
 

No virus found in this outgoing message.
Checked by AVG Free Edition. 
Version: 7.5.516 / Virus Database: 269.21.4/1310 - Release Date: 04/03/2008 8:35
AM