[RESOLVED] run time error 3201

[abu taher]

for save data and update data I write code this

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 With

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

rs1.Fields("partyname") = cmbPartyName.Text

[Arsalan]

Why not try this?

With rs1
sSQL = "Select * From duereport Where partyname ='" & cmbPartyName.Text & "'"
rs1.Open sSQL, con, adOpenDynamic, adLockOptimistic
While rs1.EOF = False
rs1.Fields("due").value = rs1.Fields("due").value + Val(Me.txtdue)
rs1.Update
End While

If rs1.EOF = True Then
rs1.Fields("partyname").value = cmbPartyName.Text
rs1.Fields("due").value = cmbPartyName.Text
rs1.Save
End if
   End With

[Arsalan]

Tell me if it works, I haven't testes it but still..
in the 3rd last line, you could also make it as rsl.addnew, as the record will have to be added anyway..

[si_the_geek]

Why not try this?

That is an improvement (as specifying which property of an object you want to work with often eliminates bugs), and it would be a good idea to do that... but it wont actually solve the current issue.

you could also make it as rsl.addnew, as the record will have to be added anyway..

That should solve the current issue

[Arsalan]

That means I'm improving I tried to fix bugs (if any) and then sort the prob. Hats off to me lol

[abu taher]

It's show compile error and select the line End While

[si_the_geek]

Whenever you want help with an error, you should always tell us what the error is - because the error message tells us what the problem is.

In this case I can work it out, but it took a bit of extra time. Rather than this:

While rs1.EOF = False
...
End While

If rs1.EOF = True Then
...
rs1.Save
End if

it should have been:

Do While rs1.EOF = False
...
Loop

If rs1.EOF = True And rs1.BOF = True Then
rs1.AddNew
...
rs1.Update
End if

However, it is debatable whether it should be a loop, or left as you had it before... it depends on what you want to happen when/if there are multiple records in the table with the same value for partyname. Using a loop means that they all get updated, which is probably a good idea.

That means I'm improving I tried to fix bugs (if any) and then sort the prob. Hats off to me lol

That's a good way to do it, and is similar to what I've done to improve myself

[firoz.raj]

another point i have noticed .the End while is not available in vb6 . so you cannot do the following .

With rs1
sSQL = "Select * From duereport Where partyname ='" & cmbPartyName.Text & "'"
rs1.Open sSQL, con, adOpenDynamic, adLockOptimistic
While rs1.EOF = False
rs1.Fields("due").value = rs1.Fields("due").value + Val(Me.txtdue)
rs1.Update
End While  i don't think it will work

You can do the following .

With rs1
sSQL = "Select * From duereport Where partyname ='" & cmbPartyName.Text & "'"
rs1.Open sSQL, con, adOpenDynamic, adLockOptimistic
While rs1.EOF = False
rs1.Fields("due").value = rs1.Fields("due").value + Val(Me.txtdue)
rs1.Update
Wend

[abu taher]

the error is:
compile error:
expected: if of select of sub or function of property or type or with or enum or end of statement

if I use do while and loop then it create new data but when I want to update data then it was hung.

[si_the_geek]

Ah yes, there is actually one more line you need to add:

  rs1.Update
  rs1.MoveNext
Loop

[Arsalan]

Which line is being highlighted with this error? and which code are you using? mine? quote it please

[Arsalan]

si is right. After updating, you need to move to the next record