View Single Post
Old June 5th, 2007, 11:08 AM
ayazhoda ayazhoda is offline
Friend of Wrox
Join Date: Apr 2007
Location: , , .
Posts: 110
Thanks: 1
Thanked 2 Times in 2 Posts
Send a message via MSN to ayazhoda
Default Export Values to Excel Sheet from Sub form

Hi All,

I have 3 combo boxes on main form and sub form is populating with query

Dim SupplierID
Dim ProductID

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

Now i want to Export all these value in Subform into Excel Sheet

Any idea suggestion