Hi All,
Could you please help me on the below code..
is anything i am missing?
having error on 3 rd line" Data type mismatch in criteria expression.
The "Customer number is short text in Table.
Thanks for your help in advance...
regards
Sock
Could you please help me on the below code..
is anything i am missing?
having error on 3 rd line" Data type mismatch in criteria expression.
The "Customer number is short text in Table.
Code:
Private Sub Combo2_AfterUpdate()
Dim Org As Variant
Org = "Select * from StoreDat where ([Customer Number] = " & Me.Combo2 & ")"
Me.StoreDat_subform.Form.RecordSource = Org
Me.StoreDat_subform.Form.Requery
End Sub
Thanks for your help in advance...
regards
Sock