0

When I want to save data then show this error massage.
Run Time error 3021
Either BOF or EOF is true, or the current record has been deleted. Requested operation requires a current record.

 With rs1
rs1.Open "Select * from debtordue where debtorname = '" & Me.cmbreceiver & "'", con, adOpenKeyset, adLockOptimistic
        .Fields("due") = rs1.Fields("due") - Val(Me.txtamount)
        !debtorname = cmbreceiver
        !payment = txtamount
        !By = cmbRcvIBy
        !Date = RcvDate
        .Update
        .Close
        MsgBox "Information is Saved", vbInformation, Me.Caption
         End With
2
Contributors
1
Reply
11
Views
2 Months
Discussion Span
Last Post by rproffitt
Have something to contribute to this discussion? Please be thoughtful, detailed and courteous, and be sure to adhere to our posting rules.