Ado add an id variable to a table

  • Thread starter Thread starter metricsinstitute
  • Start date Start date
M

metricsinstitute

Hello,

I'm creating a recordset with the following (partial) code:


rs1 = MainTableRangeSheet & "$" & MainTableRangeNoDollar & "]"
Sql = "SELECT * FROM " & rs1 & " AS T1
objRecordset.Open Sql, ObjConnection, adOpenForwardOnly

The code works fine...

I'm interested at adding a unique ID variable to each record (1,2,3...)

Could you help?

Thanks
Avi
 
Hello,
I'm creating a recordset with the following (partial) code:


rs1 = MainTableRangeSheet & "$" & MainTableRangeNoDollar & "]"
Sql = "SELECT * FROM " & rs1 & " AS T1
objRecordset.Open Sql, ObjConnection, adOpenForwardOnly

The code works fine...

I'm interested at adding a unique ID variable to each record
(1,2,3...)

Could you help?

Thanks
Avi
Click to expand...

Assuming row1 contains fieldnames, and records start in row2, and colA
is empty...

In A2 type =Row()-1 and copy down to last record. Then do a
Copy/PasteValues so your unique IDs don't get screwed up when you
add/remove records. Of course, you can always [re]set this at any time
by assigning a formula with VBA...

With Range("A2:A" & lLastRow)
.Formula = "=Row()-1":.Value = .Value
End With

...where you've already determined the row number of the last record in
the tabe.

--
Garry

Free usenet access at http://www.eternal-september.org
Classic VB Users Regroup!
comp.lang.basic.visual.misc
microsoft.public.vb.general.discussion
 
Back
Top