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

[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!!!

 

[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