Error 94: Invalid use of null

[Jesse Aviles]

I have the following code assigned to a command button that i intended to
use to copy selected fields of the record to a new record.

Private Sub cmdCloneRecord_Click()
On Error GoTo ErrorHandler
'Create the variables to hold current record values to copy to new record
Dim strCompany As String, strCompanyType As String, strMailingAddress As
String
Dim strTelephone As String, strFax As String, strWebPage As String

strCompany = Company
strCompanyType = CompanyType
strMailingAddress = MailingAddress
strTelephone = Telephone
strFax = Fax
strWebPage = webpage

DoCmd.RunCommand acCmdRecordsGoToNew

Company = strCompany
CompanyType = strCompanyType
MailingAddress = strMailingAddress
Telephone = strTelephone
Fax = strFax
webpage = strWebPage

ErrorHandler:
If Err.Number = 0 Then
Exit Sub
Else
MsgBox "Error#: " & Err.Number & vbCrLf & Err.Description
End If
Exit Sub

End Sub

When I hit the button, I received the subject error. I noticed that this
only happened if some of the field were blank. How can I test for null
values and then only select the fields that are not null? Maybe not Isnull
and select case arguments?

Thank you.

 

[Jesse Avilés]

I'll try that. Thank you.

 

[Ken Pinard]

if you can't have nulls then avoid the problem

strCompany = Company & ""

This way the value will not be null

Ken