for save data and update data I write code this
no problem for update data. but when I enter new record then show this massage:
run time error 3201:
Either BoF of EOF is true, or the current record has been deleted. requested operation requires a current record.
and selected this line
Code:
With rs1
sSQL = "Select * From duereport Where partyname ='" & cmbPartyName.Text & "'"
rs1.Open sSQL, con, adOpenDynamic, adLockOptimistic
If rs1.EOF = False Then
rs1.Fields("due") = rs1.Fields("due") + Val(Me.txtdue)
rs1.Update
End If
If rs1.EOF = True Then
rs1.Fields("partyname") = cmbPartyName.Text
rs1.Fields("due") = cmbPartyName.Text
End If
End Withrun time error 3201:
Either BoF of EOF is true, or the current record has been deleted. requested operation requires a current record.
and selected this line
Code:
rs1.Fields("partyname") = cmbPartyName.Text