Question : Access Counter Field

I would like to modify the following VBA code so that a counter field is added to Table A. The counter begin with 1, and will go as high as the number of records per that ID in the table. For example, ID_1 could have 50 records, then the counter field for all rows corresponding with ID 1 will go from 1 - 50. ID_2 could have 27 records, so the counter fields for all rows with ID_2 will go from 1-27.

At this time, please go with the assumption that the table will be presorted, and a consequtive numbering will suffice.

dim rs as adodb.recordset
dim i as integer
i=1
with rs
.open currentproject.connection,adOpenForwardOnly,adLockOptimistic
do while not .eof
.edit
!LineNumber = i
i = i + 1
.update
.moveNext
loop
.close
end with

In sumatio, the existing field in table A will be "ID." The newly created field will be "Counter."

Thanks.

Answer : Access Counter Field

>I have an "Option Compare Database" at the top line...should the following line be "Option Explicit?"

Yes

In addition, you still have some issues with the undeclared fields like Counter that you are referencing. I think the error message is caused because you do not have a .Movefirst to position the recordset.

Try the attached code. (and please add Option explicit so the compiler will report undeclared variables).

                       
         
           
             1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

           
           
             Private Sub Case_Number_Click()
 
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("A", dbOpenDynaset)
 
Dim i As Integer
Dim Case_Number As Integer
Dim Billing_ID As Integer
i = 1
With rs
  Billing_ID = 0
  Do While Not rs.EOF
    if billing_Id = 0 then .movefirst
    .Edit
     If !Billing_ID <> Billing_ID Then
         Case_Number = 0
         Billing_ID = !Billing_ID
     End If
    Case_Number = Case_Number + 1
    !Case_Number = Case_Number
    !LineNumber = i
    i = i + 1
    .Update
    .MoveNext
  Loop
  .Close
End With
End Sub

           
         

Open in New Window Select All