S
SF
Hi,
I want to reassign the invoice number and I have the following which is not
working as far:
Public Function ReID1()
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim I As Long
Dim SQL As String
If IsLoaded("frmTransactionHistory") Then
SQL = "SELECT tblTransaction.InvoiceNo FROM tblTransaction"
SQL = SQL & " WHERE (((tblTransaction.TransactionDate)=#" &
[Forms]![frmTransactionHistory]![TransactionDate]
SQL = SQL & "#) AND ((tblTransaction.TransactionTypeID)=20) AND
((tblTransaction.[Select])=-1));"
I = 1
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset(SQL, dbOpenDynaset)
Do While Not rst.EOF
Debug.Print rst![TransactionID]
rst.Edit
rst![IncoiceNo] = I
I = I + 1
rst.Update
rst.MoveNext
Loop
rst.Close
End If
Debug.Print "Done..."
End Function
Could someone advice?
SF
I want to reassign the invoice number and I have the following which is not
working as far:
Public Function ReID1()
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim I As Long
Dim SQL As String
If IsLoaded("frmTransactionHistory") Then
SQL = "SELECT tblTransaction.InvoiceNo FROM tblTransaction"
SQL = SQL & " WHERE (((tblTransaction.TransactionDate)=#" &
[Forms]![frmTransactionHistory]![TransactionDate]
SQL = SQL & "#) AND ((tblTransaction.TransactionTypeID)=20) AND
((tblTransaction.[Select])=-1));"
I = 1
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset(SQL, dbOpenDynaset)
Do While Not rst.EOF
Debug.Print rst![TransactionID]
rst.Edit
rst![IncoiceNo] = I
I = I + 1
rst.Update
rst.MoveNext
Loop
rst.Close
End If
Debug.Print "Done..."
End Function
Could someone advice?
SF