[RESOLVED] combo box - please help

[rochak]

Hi,

I am using the following VBA code but it is giving me a Type Mismatch error on the line marked below.

Private Sub Combo0_AfterUpdate()

Dim sql As String
Dim rst As Recordset

sql = "Select * from MailboxCats where MailboxName= '" & Me.Combo0.Value & "'"


Set rst = CurrentDb.OpenRecordset(sql) <--------- TYPE MISMATCH ERROR

'extract the sub category field

While Not rst.EOF
Combo2.AddItem rst.Fields(1) 'I am extracting the second field
rst.MoveNext
Wend

End Sub


Please help. Thanks

[nagasrikanth]

Hi...

I thnk mail box name field is not a text field...it might be a numeric field...
u need to remove the single quote ( ' ) in the sql statement
sql = "Select * from MailboxCats where MailboxName= " & Me.Combo0.Value & ""

Try it...it definetly works...

All the best.. :thumb:
Anu..

[rochak]

Anu, unfortunately mailboxname is a text field. Removing the single quote gives a different error that no records were found in query SQL.

Any other ideas? Thanks

[rochak]

Thanks.. I solved the problem on my own.

[nagasrikanth]

Could u please tell me whats the problem is....