Help Me Fix the Code

[aamer]

Need Help fixing the code
When I select the Company Name It should show me the last record whereas by using the following code does not do that
where am I making a mistake


Private Sub Combo28_Exit(Cancel As Integer)
If Combo28.Text = "" Then
Cancel = True
End If
If Combo28.Value = "" Or IsNull(Combo28.Value) Then
MsgBox ("Select Company Name To Proceed !!!")
Cancel = True
Else
Dim rs As Object


Set rs = Me.Recordset.Clone
rs.FindFirst "[CoId] = " & Str(Me![Combo28])


Me.Bookmark = rs.Bookmark


End If
End Sub




Thanks & Regards
Aamer

[ssanfu]

Not sure I would use the EXIT event. I would use the AfterUpdate event.
Maybe this??

Sub Combo28_AfterUpdate()

    If Combo28.Text = "" Then   '<<-- not sure why you are using the TEXT property
        Cancel = True
    End If

    If Combo28.Value = "" Or IsNull(Combo28.Value) Then
        MsgBox ("Select Company Name To Proceed !!!")
        Cancel = True
    Else

        Dim rst As DAO.Recordset

        Set rst = Me.RecordsetClone  ' NOT Me.Recordset.Clone - see the difference???

        'if CoID is a number
        rst.FindFirst "CoID = " & Me![Combo28]

        'if CoID is Text, comment out the previous line and uncomment the next
'        rst.FindFirst "CoID = '" & Me![Combo28] & "'"

        'check to see if a record is found
        If rst.NoMatch Then   'ALWAYS check the NoMatch property after a FindFirst
            MsgBox "Record not found"
        Else
            Me.Bookmark = rst.Bookmark
        End If

        'clean up
        rst.Close
        Set rst = Nothing
    End Sub

[aamer]

This code is not working it does not show previous record

It gives the following error


Compile error:


User-defined type not defined


following is highlighted in VB


rst As DAO.recoredset

[Micron]

In the vb editor, Tools>References, set a reference to DAO by finding it in the long list and checking the box.