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

  • Thread starter Thread starter patelniravd
  • Start date Start date
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!!!
 
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
 
Back
Top