The code works well with integer value only

[ala995]

Hello,
I have this code from Microsoft website:

Private Sub cmdFilter_Click()
    DoCmd.OpenForm "frmMainEmployees", , , "DepartmentID=" & cboDept.Value
End Sub

It works well if the cboDept TextBox value is integer, But if it is String it does not work.

Any ideas please...

 

[Joe4]

Text fields require text qualifiers. You can use single quotes before and after the value, i.e.

Private Sub cmdFilter_Click()
    DoCmd.OpenForm "frmMainEmployees", , , "DepartmentID='" & cboDept.Value & "'"
End Sub

 

[ala995]

Thank you, I tried it,
But it gives me this error message

 

[Joe4]

Did you try and re-type what I posted, or Copy/Paste it exactly as-is?

 

[Joe4]

This appears to be a continuation of this question: Open a Form to a Specific Record

Please do not start a new thread on the same topic, but rather continue in the original thread.