M
mark kubicki
I have an (inherited) form that I've been adding a lot of code
it is essentially a one record at a time data entry form
suddenly I notice that "GoTo First / Last" (command buttons)... does not
take me to the first or last record (moving to the top of the table, stops
at record 2; down- a few before the last (although I have not checked if
this "last" position is dynamic to the number of records in the table...)
...."GoTo Next / Previous" also will cycle thru the records up to the same
records that I can access thru "GoTo First / Last"...
the records are present in the data sheet view; I simply can't get to them
through the form
last night, I noticed that my combination box to take you to a specific
record is not working either...
---> what's going on? is the table corrupted? can it be fixed; should I be
looking elsewhere for a problem
Private Sub cboGoToType_AfterUpdate()
On Error GoTo ErrorHandler
Dim strSearch As String
strSearch = "[Type] = " & Chr$(34) & Me![cboGoToType] & Chr$(34)
Me.RecordsetClone.FindFirst strSearch
Me.Bookmark = Me.RecordsetClone.Bookmark
....
End Sub
(as always) thanks in advance,
mark
it is essentially a one record at a time data entry form
suddenly I notice that "GoTo First / Last" (command buttons)... does not
take me to the first or last record (moving to the top of the table, stops
at record 2; down- a few before the last (although I have not checked if
this "last" position is dynamic to the number of records in the table...)
...."GoTo Next / Previous" also will cycle thru the records up to the same
records that I can access thru "GoTo First / Last"...
the records are present in the data sheet view; I simply can't get to them
through the form
last night, I noticed that my combination box to take you to a specific
record is not working either...
---> what's going on? is the table corrupted? can it be fixed; should I be
looking elsewhere for a problem
Private Sub cboGoToType_AfterUpdate()
On Error GoTo ErrorHandler
Dim strSearch As String
strSearch = "[Type] = " & Chr$(34) & Me![cboGoToType] & Chr$(34)
Me.RecordsetClone.FindFirst strSearch
Me.Bookmark = Me.RecordsetClone.Bookmark
....
End Sub
(as always) thanks in advance,
mark