Solved Checking a value is empty/null/0 etc. Run-time error 13 Type mismatch (1 Viewer)

[Chief]

Hello,
I've had a look thru some of the forums, but nothing to match my current error if I could get some advice please.

I have a check box and then a combo box.
On form close I go thru some checks to ensure certain fields are filled out correctly.
This particular one is given me grief. Run-time error 13 Type mismatch

I select "Skilled Labour" try and close and then code activates as combo box has nothing in it.
Works, all good, happy days.

However, when I select items in the combo box and try to close, I get the error.

' Check Skilled Labour Combo box
    If (ChkSkill = True) Then
        If Nz(Me.CboSkill) = "" Then
            txtmessage = "Skilled Labour has been chosen for this Job, Please Select Type of labour" & vbCrLf & txtmessage
            Me.CboSkill.BackColor = vbRed
            Me.CboSkill.ForeColor = vbWhite
            Me.CboSkill.SetFocus
        Else
            Me.CboSkill.BackColor = vbWhite
            Me.CboSkill.ForeColor = vbBlack
        End If
    End If

Thank you

 

[June7]

Is this combobox bound to a multi-value field?

 

[Chief]

Is this combobox bound to a multi-value field?

yes it is

 

[Uncle Gizmo]

Try changing

If Nz(Me.CboSkill) = "" Then

to

If Nz(Me.CboSkill, 0) = 0 Then

 

[Chief]

Try changing

If Nz(Me.CboSkill) = "" Then

to

If Nz(Me.CboSkill, 0) = 0 Then

Thank you, Tried that and still error.

 

[Uncle Gizmo]

Thank you, Tried that and still error.

Let's have a look and see what's in the combo box then... try this:-

' Check Skilled Labour Combo box
    If (ChkSkill = True) Then
MsgBox " >>> " &  Me.CboSkill
        If Nz(Me.CboSkill) = "" Then

What does the message box return??

 

[Chief]

Solved
Sorry for such a simple error.

Thank you for replies

' Check Skilled Labour Combo box
    If (ChkSkill = True) Then
        If IsNull(Me.CboSkill) Then
            txtmessage = "Skilled Labour has been chosen for this Job, Please Select Type of labour" & vbCrLf & txtmessage
            Me.CboSkill.BackColor = vbRed
            Me.CboSkill.ForeColor = vbWhite
            Me.CboSkill.SetFocus
        Else
            Me.CboSkill.BackColor = vbWhite
            Me.CboSkill.ForeColor = vbBlack
        End If
    End If

 

[arnelgp]

you can also check:

If Me.CboSkill.ListIndex = -1

meaning, no Valid item from the combobox was selected.
what does this mean?
you can type anything in the combo and may not be a valid combo item.
therefore:

IsNull(Me.CboSkill), will be false, yet not a valid combo selection.