Runtime error 13: Type mismatch

[aman]

Hi guys

Can anyone please help me to figure our this error.

Private Sub cboOdoc1_Change()
[COLOR=red]Call funct(cbodoc1, cboOdoc1, Label44)[/COLOR]
End Sub

Private Function funct(a As ComboBox, b As ComboBox, c As Label)
If a.Value = "Birth Certificate" And b.Value = "Original" And Cbodept.Value = "LSB" Then
c.Caption = "Returned"
end if
End function

Thanks

 

[josephff]

maybe try making the function public and not private?

 

[pr2-eugin]

I do not see any reason for a Type mismatch. What is the Cbodept field? Make sure that field does not have a control source as a field in your table which is defined as 'Number'. and you are trying to compare it to a string.

 

[gemma-the-husky]

i suspect you need

c.caption, not c.value for the label