runtime error 7874

[kiss.shoremishra]

Hi All,

Thanks for the login. Feeling nice to be part of Access Experts.

I am just trying to fetch values in a combobox based on selection done by user in another combobox.
I am trying to pass the value using a query but getting run time error 7874. Below is the code that I have written. Please assist.

Private Sub Combo6_AfterUpdate()
Dim mcdtype As String

mcdtype = Me.Combo6.Value

T = "SELECT [Tbl - WRIN].[Product Group] FROM [Tbl - WRIN] WHERE ([Tbl - WRIN].[McDs Type]) = '" & mcdtype & "' ORDER BY [Tbl - WRIN].[Product Group];"
'T = "INSERT INTO Data1 Values (" & ODI & ", '" & Nam & "', " & Qty & "," & Price & ");"


DoCmd.OpenQuery T

End Sub

 

[pbaldy]

Welcome! You say you are trying to get the values into a second combo box? If so try:

Me.SecondComboName.RowSource = T

 

[pbaldy]

Other thoughts:

http://www.baldyweb.com/CascadingCombo.htm

 

[kiss.shoremishra]

Welcome! You say you are trying to get the values into a second combo box? If so try:

Me.SecondComboName.RowSource = T

Thanks a ton, Its working. Appreciate your quick response. Thanks again and again.

 

[pbaldy]

Happy to help!