By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
424,949 Members | 921 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 424,949 IT Pros & Developers. It's quick & easy.

what is the 3251 error number in following code, it generated while adding new data?

P: 2
Private Sub cmdadd_Click()
cmbempid.Text = ""
optabsent.Value = False
optlatemark.Value = False
optapprove.Value = False
optdisapp.Value = False
txtlname.Text = ""
'txttotal.Text = ""
rs.AddNew
If Not rs.EOF Then
rs.MoveNext
End If
'rs.Close
cmbempid.SetFocus
cmdcancel.Enabled = True
cmddelete.Enabled = False
cmdexit.Enabled = True
cmdsave.Enabled = True
cmdmodify.Enabled = False
cmdfirst.Enabled = False
cmdlast.Enabled = False
cmdnext.Enabled = False
cmdprevious.Enabled = False
'substring = " insert into muster (Emp_id,Absent_date,"
'rs.Update
End Sub
Jun 8 '08 #1
Share this Question
Share on Google+
2 Replies


lotus18
100+
P: 866
Expand|Select|Wrap|Line Numbers
  1. Private Sub cmdadd_Click()
  2. cmbempid.Text = ""
  3. optabsent.Value = False
  4. optlatemark.Value = False
  5. optapprove.Value = False
  6. optdisapp.Value = False
  7. txtlname.Text = ""
  8. 'txttotal.Text = ""
  9. rs.AddNew
  10. If Not rs.EOF Then
  11. rs.MoveNext
  12. End If
  13. 'rs.Close
  14. cmbempid.SetFocus
  15. cmdcancel.Enabled = True
  16. cmddelete.Enabled = False
  17. cmdexit.Enabled = True
  18. cmdsave.Enabled = True
  19. cmdmodify.Enabled = False
  20. cmdfirst.Enabled = False
  21. cmdlast.Enabled = False
  22. cmdnext.Enabled = False
  23. cmdprevious.Enabled = False
  24. 'substring = " insert into muster (Emp_id,Absent_date,"
  25. 'rs.Update
  26. End Sub
I don't see the value of adding new data. Check your codes again

Rey Sean
Jun 9 '08 #2

Expert 100+
P: 487
It is very difficult to guide you. You have to post a part of code and explain about your problem in detail.
Jun 9 '08 #3

Post your reply

Sign in to post your reply or Sign up for a free account.