Hi please can someone help me out on this code?
I am having issue refering this table on my form. It keeps giving me complain about the RS I mark red and underlined.
Please I need way out
Thanks in advance
Code:
Dim Db As Database
Dim RS As Recordset
Set Db = CurrentDb
Set RS = Db.OpenRecordset("SalesQRY", dbOpenDynaset, dbSeeChanges)
With RS
' Modify data in local recordset.
Do While RS.EOF
.Edit
If [U][B][COLOR=Red]RS[/COLOR][/B][/U] <> Forms!frmPoS!Invoice Then
'!royalty = !royalty - 4
Else
RS!QtyAvail = RS!QtyAvail - RS!QtyOut
RS!UnitSale = RS!ExtendedPrice
RS!ClientAcc = RS!ClientAcc + RS!AmountRecorded
End If
.Update
.MoveNext
Loop
I am having issue refering this table on my form. It keeps giving me complain about the RS I mark red and underlined.
Please I need way out
Thanks in advance
Last edited by a moderator: