No Current Record error

[capdownlondon]

using ACCESS 2003
This code should do what I want, and it seems to, but every time i run it it says:
No Current Record

when i ctrl+break it the debug get hung up on the end sub.

heres the code, any ideas? :

Private Sub Command16_Click()
On Error GoTo Err_Command16_Click
Dim i As Integer, cnt As Integer, varBk As String
Dim intCriteriaCount As Integer, MyDB As Database, MyRS As Recordset
Dim intCounter As Integer
 
varBk = Me.Bookmark
cnt = Me!Combo17
 
For i = 0 To cnt - 1
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 2, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 5, , acMenuVer70 'Paste Append
 
Me!Text22 = Me!Text22 + 1
 
Next
 
intCriteriaCount = DCount("*", "FindDuplicatesWeeklyPoints")
intCriteriaCount = intCriteriaCount / 2 + 1
 
'Are there Records meeting the Criteria?
If intCriteriaCount > 0 Then
  Set MyDB = CurrentDb()
  'Order by your Primary Key Ascending
  Set MyRS = MyDB.OpenRecordset("SELECT * FROM  FindDuplicatesWeeklyPoints ORDER BY [Weekly Index]")
  MyRS.MoveLast: MyRS.MoveFirst
    For intCounter = 1 To intCriteriaCount - 1      'All but the Last Record
      MyRS.Delete
      MyRS.MoveNext
    Next
Exit_Command16_Click:
Me.Bookmark = varBk
 
 
Else
  Exit Sub
End If
 
MyRS.Close
Exit Sub
 
Err_Command16_Click:
MsgBox Err.Description
 
End Sub
 

[MMcCarthy]

OK I've tidied up the code a bit. See if this works. If not let me know.

Private Sub Command16_Click()
On Error GoTo Err_Command16_Click
Dim i As Integer, cnt As Integer
Dim varBk As String
Dim intCriteriaCount As Integer
Dim MyDB As Database
Dim MyRS As Recordset
Dim intCounter As Integer
 
   varBk = Me.Bookmark
   cnt = Me!Combo17
 
   For i = 0 To cnt - 1
      DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
      DoCmd.DoMenuItem acFormBar, acEditMenu, 2, , acMenuVer70
      DoCmd.DoMenuItem acFormBar, acEditMenu, 5, , acMenuVer70
      'Paste Append
      Me!Text22 = Me!Text22 + 1
   Next
 
   intCriteriaCount = DCount("*", "FindDuplicatesWeeklyPoints")
   intCriteriaCount = intCriteriaCount / 2 + 1
 
   'Are there Records meeting the Criteria?
   If intCriteriaCount > 0 Then
      Set MyDB = CurrentDb()
      'Order by your Primary Key Ascending
      Set MyRS = MyDB.OpenRecordset("SELECT * FROM FindDuplicatesWeeklyPoints ORDER BY [Weekly Index]")
      MyRS.MoveLast: MyRS.MoveFirst
      For intCounter = 1 To intCriteriaCount - 1      'All but the Last Record
         MyRS.Delete
         MyRS.MoveNext
      Next
   End If
Exit_Command16_Click:
   Me.Bookmark = varBk
   MyRS.Close
   Exit Sub
 
Err_Command16_Click:
   MsgBox Err.Description
    Resume Exit_Command16_Click
 
End Sub
 

[capdownlondon]

sorry i haven't tried it, i actually managed to get it to work by changing:

If intCriteriaCount > 0 Then

to

If intCriteriaCount > 1 Then

what was changed in your code?


thanks for the help anyway