Converting this Excel VBA code to Access VBA. A really challenging task

[satswid]

Hi guys,
Earlier I had a excel file with many columns.
I wrote a code in Excel VBA to fill up the last two columns according to the data in the other columns of the row.
It worked fine.


Now, the whole thing is transferred to an Access table.

Pls help me convert this Excel VBA code to Access VBA.

Sub GeneratePorEngID()
Range("S2:T5000").Clear
Dim PrevTaskID As Integer
Dim intNO As Long
Dim intCount As Integer
intNO = 1
PrevTaskID = 1
For i = 2 To 5000
'If PrevTaskID = 1 Then intNO = 1
 
If Cells(i, "J") <> "" Then
If PrevTaskID = Cells(i, "J") Then
Cells(i, "S") = intNO
intNO = intNO + 1
intCount = intCount + 1
Else
For j = i - intCount - 1 To i - 1
Cells(j, "T") = intNO
intNO = intNO + 1
 
Next
Cells(i, "S") = intNO
intNO = intNO + 1
intCount = 0
PrevTaskID = Cells(i, "J")
End If
End If
Next
 
End Sub

Thanks a ton in advance

[June7]

Forget the Excel based code. Just tell us what you want to do with the data. Show sample source data and desired output.

[satswid]

Forget the Excel based code. Just tell us what you want to do with the data. Show sample source data and desired output.

OK,
I have a sample table with 3 fields
For thousands of rows, The first two fields are having data but third field is empty.

So I need to make a loop using MS-Access VBA to run through each row and set up the value in the 3rd field based on the values in 1st and 2nd field.

[June7]

And what determines the value for the 3rd field? What is the criteria?

[satswid]

And what determines the value for the 3rd field? What is the criteria?

There are some calculations that are need to be done.

[June7]

I understand calculations are needed. If we understand your data and the output you want and why, we can advise how. VBA code might not even be needed. Often data can be manipulated within a query to produce desired output.

What values do you want in third column? What criteria determines the value? Describe narratively what needs to happen. A detailed explanation would have been better than asking us to interpret Excel based code. It looks like you are generating a sequential number. There are several ways to do this in Access, all depends on the purpose.