What recordset now called can somebody please correct this code? MIchael Horton

Question

Private Sub ShowRecord_Click()
Dim rst As DAO.Recordset
Set rst = [Forms]![Assets].RecordsetClone
rst.FindFirst "InvestID=" & List2
[Forms]![Assets].Bookmark = rst.Bookmark
DoCmd.Close acForm, "GoToRecordDialog"
End Sub

Answer 1

You can cater for Nulls by executing the code conditionally.  Also it's advisable to examine the NoMatch property before synchronizing the bookmarks, e.g.
Const MESSAGETEXT1 = "No asset selected."
Const MESSAGETEXT2 = "No matching record found."
Dim frm as Form
Set frm = Forms("Assets")
If Not IsNull(Me.List2) Then
   With frm.RecordsetClone
       .FindFirst "InvestID = " & Me.List2
       If Not .NoMatch Then
           frm.Bookmark = .Bookmark
           DoCmd.Close acForm, Me.Name
       Else
           MsgBox MESSAGETEXT2, vbInformation, "Warning"
       End if
    End With
Else
    MsgBox MESSAGETEXT1, vbExclamation, "Invalid Operation"
End If
This does assume of course that the list box's bound column is that containing the InvestID values.
PS:  It also assumes that the list box is not a multi-select control.
Ken Sheridan, Stafford, England