Runtime Error 13 Type Mismatch

[CharlesWhiteman]

Hi all, I'm using the following code and attempting to handle null but keep getting the afrementioned error??

Dim intAgentContactID As Integer
intAgentContactID = Nz(Forms!FrmPrimaryData.txtAgentContact.Column(0), "")

 

[DCrake]

intAgentContactID = Nz(Forms!FrmPrimaryData.txtAgentContact.Column(0), [B][COLOR="Red"]0[/COLOR][/B])

 

[vbaInet]

Why don't you handle it when performing your calculation instead.

 

[CharlesWhiteman]

Thanks Drake, One question though wont that create an entry - as in enter a zero?

I'm basically wanting to say if a field is blank dont then ignore it.

I'm trying with the following (non-working as yet) code

If Not IsNull(Forms!FrmPrimaryData.txtEndUserContact) Then
Dim intEndUserContactID As Integer
intEndUserContactID = Forms!FrmPrimaryData.txtEndUserContact.Column(0)
Else
End If

 

[DCrake]

So what is your issue? You have already trapped the Null value... What is your full code?

 

[ted.martin]

Maybe try this as it manages Null and ""

if len(field or variable & "") = 0 then

end if