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

RUN TIME ERROR 2147217842(80040e4e)

DUNXALEARE
P: 21
please help me.
im wrting a program using visual basic 6.0 and using ms access as data base.
when it ry to execute the program. and try to save record in database using adodc the system prompt me :
"Operation Cancelled" runtime error 2147217842(80040e4e)
i dont understand it and im sure that my coding is correct because it actually works smoothly for about 6 to 10 exucution or more and just encounter this problem for the first time
what shall i do.
please help me huhuhu :(
Mar 25 '07 #1
Share this Question
Share on Google+
10 Replies


ADezii
Expert 5K+
P: 8,692
please help me.
im wrting a program using visual basic 6.0 and using ms access as data base.
when it ry to execute the program. and try to save record in database using adodc the system prompt me :
"Operation Cancelled" runtime error 2147217842(80040e4e)
i dont understand it and im sure that my coding is correct because it actually works smoothly for about 6 to 10 exucution or more and just encounter this problem for the first time
what shall i do.
please help me huhuhu :(
Post the code. We cannot possibly attempt a solution without seeing it.
Mar 25 '07 #2

DUNXALEARE
P: 21
Post the code. We cannot possibly attempt a solution without seeing it.
Expand|Select|Wrap|Line Numbers
  1. Private Sub saves_Click()
  2.  
  3. If act = 3 And cond = 1 Then
  4.     MsgBox "The record's identification code has been modified. System failed to update.", vbCritical, label
  5.     epis.Recordset.CancelUpdate: epis.Recordset.MoveFirst: educ.Recordset.MoveFirst: family.Recordset.MoveFirst
  6. End If
  7.  
  8. If act = 2 And cond = 1 Then
  9.         ans = MsgBox("Are you sure you want to save this record?", vbYesNo, label)
  10.  
  11.         If ans = vbYes Then
  12. 3:      educ.Recordset.MoveFirst: family.Recordset.MoveFirst: epis.Recordset.MoveFirst
  13.         MsgBox "You succesfully save the data", vbOKOnly, label: txt_no(0).Visible = True
  14.         Else: GoTo 4
  15.         End If
  16.  
  17. ElseIf act = 2 And cond = 0 Then
  18.     ansr = MsgBox("The employee you enter already exist. Would you like the record to display?", vbYesNo, label)
  19.  
  20.         If ansr = vbYes Then
  21.         act = 0: ans = txt_no(0).Text: epis.Recordset.CancelUpdate: educ.Recordset.CancelUpdate: family.Recordset.CancelUpdate: flag = False: saves.Enabled = flag: initialization: search
  22.         Else
  23.         epis.Recordset.CancelUpdate: educ.Recordset.CancelUpdate: family.Recordset.CancelUpdate
  24.         Exit Sub
  25.         End If
  26.  
  27. End If
  28. act = Empty: acts = Empty: Form_Load
  29. 4:
  30. End Sub
I dont put the other codes thats were the problem generates during run time
im using visual basic 6. 0
ms access 2003
thanx.
Mar 25 '07 #3

ADezii
Expert 5K+
P: 8,692
Expand|Select|Wrap|Line Numbers
  1. Private Sub saves_Click()
  2.  
  3. If act = 3 And cond = 1 Then
  4.     MsgBox "The record's identification code has been modified. System failed to update.", vbCritical, label
  5.     epis.Recordset.CancelUpdate: epis.Recordset.MoveFirst: educ.Recordset.MoveFirst: family.Recordset.MoveFirst
  6. End If
  7.  
  8. If act = 2 And cond = 1 Then
  9.         ans = MsgBox("Are you sure you want to save this record?", vbYesNo, label)
  10.  
  11.         If ans = vbYes Then
  12. 3:      educ.Recordset.MoveFirst: family.Recordset.MoveFirst: epis.Recordset.MoveFirst
  13.         MsgBox "You succesfully save the data", vbOKOnly, label: txt_no(0).Visible = True
  14.         Else: GoTo 4
  15.         End If
  16.  
  17. ElseIf act = 2 And cond = 0 Then
  18.     ansr = MsgBox("The employee you enter already exist. Would you like the record to display?", vbYesNo, label)
  19.  
  20.         If ansr = vbYes Then
  21.         act = 0: ans = txt_no(0).Text: epis.Recordset.CancelUpdate: educ.Recordset.CancelUpdate: family.Recordset.CancelUpdate: flag = False: saves.Enabled = flag: initialization: search
  22.         Else
  23.         epis.Recordset.CancelUpdate: educ.Recordset.CancelUpdate: family.Recordset.CancelUpdate
  24.         Exit Sub
  25.         End If
  26.  
  27. End If
  28. act = Empty: acts = Empty: Form_Load
  29. 4:
  30. End Sub
I must admit that I am having a little trouble following the Logic and Syntax of your code. This is only a suggestion, but before I do anything else, I woould write the code in a more logical, though longer, format:
Expand|Select|Wrap|Line Numbers
  1. Select Case act
  2.   Case 2
  3.     Select Case cond
  4.       Case 0
  5.         ansr = MsgBox("The employee you enter already exist. Would you like the record to display?", vbYesNo, Label)
  6.           If ansr = vbYes Then
  7.             act = 0
  8.             ans = txt_no(0).Text
  9.             epis.Recordset.CancelUpdate
  10.             educ.Recordset.CancelUpdate
  11.             family.Recordset.CancelUpdate
  12.             flag = False
  13.             saves.Enabled = flag
  14.             initialization
  15.             search
  16.           Else
  17.             epis.Recordset.CancelUpdate
  18.             educ.Recordset.CancelUpdate
  19.             family.Recordset.CancelUpdate
  20.               Exit Sub
  21.           End If
  22.       Case 1
  23.         ans = MsgBox("Are you sure you want to save this record?", vbYesNo, Label)
  24.           If ans = vbYes Then
  25.             educ.Recordset.MoveFirst
  26.             family.Recordset.MoveFirst
  27.             epis.Recordset.MoveFirst
  28.               MsgBox "You succesfully save the data", vbOKOnly, Label
  29.               txt_no(0).Visible = True
  30.           Else
  31.             GoTo 4
  32.           End If
  33.       Case Else
  34.         'act = 2 and cond <> 0 or 1
  35.     End Select
  36.   Case 3
  37.     If cond = 1 Then
  38.       MsgBox "The record's identification code has been modified. System failed to update.", vbCritical, Label
  39.       epis.Recordset.CancelUpdate
  40.       epis.Recordset.MoveFirst
  41.       educ.Recordset.MoveFirst
  42.       family.Recordset.MoveFirst
  43.     Else
  44.       'act = 3 and cond <> 1
  45.     End If
  46.   Case Else
  47.     'act <> 2 or 3
  48. End Select
  49.  
  50. act = Empty
  51. acts = Empty
  52. Form_Load
  53.  
  54. 4:
Mar 26 '07 #4

DUNXALEARE
P: 21
I must admit that I am having a little trouble following the Logic and Syntax of your code. This is only a suggestion, but before I do anything else, I woould write the code in a more logical, though longer, format:
Expand|Select|Wrap|Line Numbers
  1. Select Case act
  2.   Case 2
  3.     Select Case cond
  4.       Case 0
  5.         ansr = MsgBox("The employee you enter already exist. Would you like the record to display?", vbYesNo, Label)
  6.           If ansr = vbYes Then
  7.             act = 0
  8.             ans = txt_no(0).Text
  9.             epis.Recordset.CancelUpdate
  10.             educ.Recordset.CancelUpdate
  11.             family.Recordset.CancelUpdate
  12.             flag = False
  13.             saves.Enabled = flag
  14.             initialization
  15.             search
  16.           Else
  17.             epis.Recordset.CancelUpdate
  18.             educ.Recordset.CancelUpdate
  19.             family.Recordset.CancelUpdate
  20.               Exit Sub
  21.           End If
  22.       Case 1
  23.         ans = MsgBox("Are you sure you want to save this record?", vbYesNo, Label)
  24.           If ans = vbYes Then
  25.             educ.Recordset.MoveFirst
  26.             family.Recordset.MoveFirst
  27.             epis.Recordset.MoveFirst
  28.               MsgBox "You succesfully save the data", vbOKOnly, Label
  29.               txt_no(0).Visible = True
  30.           Else
  31.             GoTo 4
  32.           End If
  33.       Case Else
  34.         'act = 2 and cond <> 0 or 1
  35.     End Select
  36.   Case 3
  37.     If cond = 1 Then
  38.       MsgBox "The record's identification code has been modified. System failed to update.", vbCritical, Label
  39.       epis.Recordset.CancelUpdate
  40.       epis.Recordset.MoveFirst
  41.       educ.Recordset.MoveFirst
  42.       family.Recordset.MoveFirst
  43.     Else
  44.       'act = 3 and cond <> 1
  45.     End If
  46.   Case Else
  47.     'act <> 2 or 3
  48. End Select
  49.  
  50. act = Empty
  51. acts = Empty
  52. Form_Load
  53.  
  54. 4:

well I admit reading my code is like walking in a maze :)
im not just familiar in using select case.
thanks for editing it folks.
it stil dont work. i already delete some records(until all of them) in data base to see if there is limitation in saving. I still encountered the the error.
Mar 26 '07 #5

ADezii
Expert 5K+
P: 8,692
well I admit reading my code is like walking in a maze :)
im not just familiar in using select case.
thanks for editing it folks.
it stil dont work. i already delete some records(until all of them) in data base to see if there is limitation in saving. I still encountered the the error.
Set a Breakpoint on Select Case act then single - step (F8) through the code. This will pinpoint the exact line that is causing the Error which is another reason why I did not place multiple Statements on a single line.
Mar 27 '07 #6

DUNXALEARE
P: 21
Set a Breakpoint on Select Case act then single - step (F8) through the code. This will pinpoint the exact line that is causing the Error which is another reason why I did not place multiple Statements on a single line.


OK I get it .
Expand|Select|Wrap|Line Numbers
  1. Select Case act=2
  2. .
  3. .
  4. .....Select Case cond=1
  5.                 educ.recordset.movefirst
  6.                 family.recordset.movefirst
  7.                 epis.recordset.movefirst
  8. .
  9. .
  10. end select
  11. end select
  12.  
the epis.recordset.movefirst is highlighted when error occured.
all the fields connected to it dont save the data i entered, unlike the educ.recordset and family recordset.
Mar 27 '07 #7

P: 1
I reply to this thread althought is old, because it's the first goole result in this error and it's kinda frustrating to figure this problem out.

This error happens, amongst other reasons, because the SELECT statement that retrieves the data from the database, does not contain the whole primary key of the table. Somewhy, movefirst, movenext and other methods would fail in this situation, raising this crappy error message.

At least that happened to me, under MySql 5, with MyODBC and VB6 service pack 6.
Jan 9 '08 #8

ADezii
Expert 5K+
P: 8,692
OK I get it .
Expand|Select|Wrap|Line Numbers
  1. Select Case act=2
  2. .
  3. .
  4. .....Select Case cond=1
  5.                 educ.recordset.movefirst
  6.                 family.recordset.movefirst
  7.                 epis.recordset.movefirst
  8. .
  9. .
  10. end select
  11. end select
  12.  
the epis.recordset.movefirst is highlighted when error occured.
all the fields connected to it dont save the data i entered, unlike the educ.recordset and family recordset.
I'm printing all the code and taking it to work with me tomorrow. I'll get back to you on this.
Jan 10 '08 #9

P: 2
In your code it seems to me that the rs.movefirst command is actually used to update the fields in the database with the new data.
Sugguestions:
Check to see if locktype is read-only
I am having a similar problem in DE and it is only when the locktype is read-only. And it only is happening when i have info placed in a combobox and the movefirst command is called.

???
Feb 12 '08 #10

ADezii
Expert 5K+
P: 8,692
OK I get it .
Expand|Select|Wrap|Line Numbers
  1. Select Case act=2
  2. .
  3. .
  4. .....Select Case cond=1
  5.                 educ.recordset.movefirst
  6.                 family.recordset.movefirst
  7.                 epis.recordset.movefirst
  8. .
  9. .
  10. end select
  11. end select
  12.  
the epis.recordset.movefirst is highlighted when error occured.
all the fields connected to it dont save the data i entered, unlike the educ.recordset and family recordset.
What do epis, educ, and family explicitly refer to? Could there be a chance that the Recordset contains no Records? In that case a MoveFirst would generate an Error.
Feb 12 '08 #11

Post your reply

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