[Erm]

I am creating some VB in an Access 2000 database to update a field. I want it to go through every record in a table and update a field until it reaches the end of the table. My theory was to do a loop something like this...

Private Sub cmdUpdateBilling_Click()
Dim result As Boolean

MoveFirst

Do While ?DON'T KNOW WHAT TO PUT HERE
If (BillingDate > Now()) Then
result = MsgBox("The billing date is already in the future. Do you still want to update it?", vbOKCancel)
If result = vbOK Then
BillingDate = DateAdd("m", [paymentperiod(months)], BillingDate)
Else
End If
Else
End If
MoveNext
Loop
End Sub

It is a while since I have done VB and I am rather sketchy!!!

[AbvAvgUser]

rsYourTable.MoveFirst
Do While Not (rsYourTable.EOF)
// your code goes here
rsYourTable.MoveNext
Loop

[ciener]

Or

rs.MoveFirst
Do Until rs.EOF
If BillingDate > Date Then '<----- now() will bring back date and time in the string
result = MsgBox("The billing date is already in the future. Do you still want to update it?", vbOKCancel)
If result = vbOK Then
BillingDate = DateAdd("m", paymentperiod!months, BillingDate)
'else <---- if you want to do something other than result being vbok
End If
End If
rs.MoveNext

VB in an Access 2000 database are you conecting by dns? or straight to it. There is better ways to this. I just dont know how you are coding it. If you need more help on connection and sql.. send a email to me at emalo@charter.net

My guess of what your trying to do.. good luck..