Adding incremented values to a table 1

[teach314]

greetings

What is the best way in VBA to move down a column until the first null is encountered? (this isn't necessarily the last record in the table).

I'm using the following code now. It works fine, but it seems an inefficient method in very large tables. For example, I might have to move down 500,000 records before I find an 'absent' value of "Test".

...
rs.MoveFirst
Do While Not IsNull(rs("Test"))
rs.MoveNext
Loop
... .Edit / .Update code here to assign a value of "Test"

much thanks, teach314

 

[PHV]

What about this ?
rs.FindFirst "Test Is Null"

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[teach314]

hi PHV - I've tried many variations of your response, but I keep getting the error message... "Operation is not supported for this type of object". I may just be missing the correct syntax.

 

[teach314]

hi PHV - your solution works great. I kept getting an error message at first, but the fix was to add the constant 'dbOpenDynaset' to the statement 'Set rs = db.OpenRecordset("TblX", dbOpenDynaset)'. Not really sure why, but now it works fine!

Teach314