Trying to convert 97 to 2000 Form Coding HELP

[Guest]

Below is a piece of code behind a double click event on a Form where we are trying to use a cloned recordset to bring records from the clone to the main form.

MS 97 Vewrsion (It works!
Private Sub FindItem(

Dim rs As Recordset, sCriteria As Strin

With Forms![Main Menu]![Item Master].For
sCriteria = "[Record #] = " & Me![Record #
Set rs = .RecordsetClon
rs.FindFirst sCriteri
If Not rs.NoMatch The
.Bookmark = rs.Bookmar
End I
End Wit
DoCmd.Close acForm, Me.Nam

End Su

MS 2000 (Does Not Work

Private Sub FindItem(

Dim rs As DAO.Recordse
Dim sCriteria As Strin
With Forms![Main Menu]![Item Master].For
sCriteria = "[Record #] = " & Me![Record #
Set rs = Me.Recordset.Clon
rs.Find "[Record #]= " & sCriteri

rs.Clos
End Wit
DoCmd.Close acForm, Me.Nam

End Su

 

[Kelvin]

sCriteria = "[Record #] = " & Me![Record #]

rs.Find "[Record #]= " & sCriteria

These 2 lines are repeating "[Record #].

Kelvin

Below is a piece of code behind a double click event on a Form where we

are trying to use a cloned recordset to bring records from the clone to the
main form.

MS 97 Vewrsion (It works!)
Private Sub FindItem()

Dim rs As Recordset, sCriteria As String

With Forms![Main Menu]![Item Master].Form
sCriteria = "[Record #] = " & Me![Record #]
Set rs = .RecordsetClone
rs.FindFirst sCriteria
If Not rs.NoMatch Then
.Bookmark = rs.Bookmark
End If
End With
DoCmd.Close acForm, Me.Name

End Sub


MS 2000 (Does Not Work)

Private Sub FindItem()

Dim rs As DAO.Recordset
Dim sCriteria As String
With Forms![Main Menu]![Item Master].Form
sCriteria = "[Record #] = " & Me![Record #]
Set rs = Me.Recordset.Clone
rs.Find "[Record #]= " & sCriteria

rs.Close
End With
DoCmd.Close acForm, Me.Name

End Sub

 

[Pavel Romashkin]

Could it have anything to do with the extra "." in "Recordset.Clone" in
the A2000 version?

Pavel

 

[TC]

Urk!

Say:

With Me.Recordsetclone
.FindFirst "[Record #] = " & Me![Record #]
If Not .NoMatch Then
me.Bookmark = .Bookmark
End If
End With

HTH,
TC

Below is a piece of code behind a double click event on a Form where we

are trying to use a cloned recordset to bring records from the clone to the
main form.

MS 97 Vewrsion (It works!)
Private Sub FindItem()

Dim rs As Recordset, sCriteria As String

With Forms![Main Menu]![Item Master].Form
sCriteria = "[Record #] = " & Me![Record #]
Set rs = .RecordsetClone
rs.FindFirst sCriteria
If Not rs.NoMatch Then
.Bookmark = rs.Bookmark
End If
End With
DoCmd.Close acForm, Me.Name

End Sub


MS 2000 (Does Not Work)

Private Sub FindItem()

Dim rs As DAO.Recordset
Dim sCriteria As String
With Forms![Main Menu]![Item Master].Form
sCriteria = "[Record #] = " & Me![Record #]
Set rs = Me.Recordset.Clone
rs.Find "[Record #]= " & sCriteria

rs.Close
End With
DoCmd.Close acForm, Me.Name

End Sub