Hi All,

Every day is about learning new thing in Access for me,
Yesterday i manage to fill one combobox from other now what i am trying to do is

Combobox 1 --> Fill with Supplier ID
Combobox 2 --> Fill with Product ID of relevant Supplier
Now on the bases of these two comboboxes I want to fill sub form which will shows all the result required

So far what i did i put sub form on main form and link with query
which is

SELECT Products.PID, Products.SID, Products.SupplierNum
FROM Products INNER JOIN ProductTypes ON products.ProductType=ProductTypes.ProductType
WHERE (((ProductTypes.SID)=Forms!ExportToExcel!cmbSuppli erList)) And (((ProductTypes.ProductType)=Forms!ExportToExcel!c mbProductTypes));

which is not populating subform and i tried this

SELECT Products.PID, Products.SID, Products.SupplierNum
FROM Products INNER JOIN ProductTypes ON products.ProductType=ProductTypes.ProductType
WHERE (((ProductTypes.SID)='AB')) And (((ProductTypes.ProductType)='18'));
which is working

Next Bit i have to do to finish this to export all sub form records in Excel sheet any magician programmer

I hope this is kind of question which will help every one joining this community

Regards

Ayaz

What I think you should do is:

dim intSupplierID as integer 'cause I guess it's a number
dim intProductID as integer 'same as previous line

intSupplierID = me.combo1
intProductID = me.combo2

and then change your sql to:

SELECT Products.PID, Products.SID, Products.SupplierNum
FROM Products INNER JOIN ProductTypes ON products.ProductType=ProductTypes.ProductType
WHERE (((ProductTypes.SID)= " & intSupplierID & ")) And (((ProductTypes.ProductType)= " & intProductID & "));

This should do it...

Hi Vince

Your help is excellent

but I am trying not to write SQL in VBA Coding will this work if I write it in query designer and call this query from record source of subform

Regards

Hi

Private Sub cmbProductTypes_AfterUpdate()
Dim SupplierID
Dim ProductID
SupplierID = Me.cmbSupplierList
ProductID = Me.cmbProductTypes
ExportProductToExcel_subform.????????
End Sub

Hi Vince... I've done that

Dim SupplierID
Dim ProductID
SupplierID = Me.cmbSupplierList
ProductID = Me.cmbProductTypes.Column(0)
Me.ExportProductToExcel_subform.Form.Recordsource = "SELECT Products.PID, Products.SID FROM Products INNER JOIN ProductTypes ON products.ProductType=ProductTypes.ProductType WHERE (((ProductTypes.SID)= '" & SupplierID & "')) And (((ProductTypes.ProductType)= " & ProductID & "))"


Thanks you