what is irow 1

[newprogamer]

Does any one know what irow does?

'open the record set and search for contents in the combo box
Set Rs = db.OpenRecordset("SELECT * FROM tblFileName WHERE Manufacturer = " & cboManufacturer.Text)

Rs.MoveFirst
irow = 3
Do While Not Rs.EOF
Cells(irow, 1) = Rs("Quoter")
irow = irow + 1
Rs.MoveNext
Loop

 

[SkipVought]

Hi,

Cells(irow, 1) = Rs("Quoter")

assigns the value in field Quoter in the Rs recordset object, to the cell in the ActiveSheet in COLUMN 1 (A) ROW irow, which initially is 3, and incriments by 1 with each row in the recordset, until the recordset is out of rows.

Skip,

_{[red]Be advised:[/red] Researchers have found another Descartes trueism, "Cogito ergo spud."
"I think; therefore, I YAM!}

 

[newprogamer]

Thanks,

Is there a way to pull the fields out of an acess table and put them on the same row but in different columns? For instance Column A = Quoter, Column B= Date, Column C = Manufacturer, Column D = Model. Then, do this until all the data from the recordset has been copied to excel?

 

[SkipVought]

All you gotta do is use Data/Get External Data in Excel.

You can query DIRECTLY into your Access Database/Table(s) and return the recordset into Excel -- NO CODE AT ALL!

Skip,

_{[red]Be advised:[/red] Researchers have found another Descartes trueism, "Cogito ergo spud."
"I think; therefore, I YAM!}

 

[newprogamer]

Thanks, it sounds easy. But, I don't understand how to return the recordset into excel. I would appreciate any help you can provide. Thanks in advance!

 

[SkipVought]

Menu Item

Data/Get External data/New Query -- Access files -- you Access db -- your table(s) -- next, next, next, check option button for Edit Query, finish.

In the Query Editor, drag the fields you want into the grid, add criteria etc,

then File/Return data to Excel

clock OK

and you have your resultset displayed in your Excel worksheet.


Skip,

_{[red]Be advised:[/red] Researchers have found another Descartes trueism, "Cogito ergo spud."
"I think; therefore, I YAM!}

 

[newprogamer]

Thanks, that was easy. Thanks a lot!!!