see code below, I am getting run time error '424' (Object Required)?

P

patelniravd

see code below, I am getting run time error '424' (Object Required)



Private Sub TSDF_Name_AfterUpdate()

Dim s As String
s = "SELECT Profile_info.[TSDF_Profile#], Profile_info.[IMTT_Profile#],
Profile_info.Desc FROM TSDF_info INNER JOIN Profile_info ON
TSDF_info.TSDF_EPA_id=Profile_info.TSDF_EDA_id WHERE
(((TSDF_info.TSDF_Name)=""" & [TSDF Name].Value & """));"
Profile_id.RowSource = s
Profile_id.Requery
Profile_id.Value = ""

End Sub


Basically Here in form I have 2 comboboxes ( TSDF_NAME and Profile_info
) and if i select any value in one, then another combobox will show me
the values pertaining to first.

help me out with the error please!!!
 
B

Brian Bastl

If your other combo box is named "Profile_info", then your problem is that
you're trying to assign a rowsource to Profile_id, which doesn't exist.
Change the object references to Profile_info

HTH,
Brian
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top