QuickFind no longer working

[mytaurus2000]

I have a combo box, that if a user types in SSN then it goes to that record, here is the code

Private Sub cmbSSN_AfterUpdate()
' Find the record that matches the control.
Dim rs As DAO.Recordset

Set rs = Me.RecordsetClone
rs.FindFirst "[SSN] = '" & Me![cmbSSN] & "'"
If Not rs.EOF Then
Me.Bookmark = rs.Bookmark
Else
DoCmd.RunCommand acCmdRecordsGoToNew
Me!SSN = Me!cmbSSN
Me!cmbSSN.SetFocus
End If


Me!cmbSSN.Value = ""


End Sub

But when you type in the record, nothing happens. Any ideas?

 

[Remou]

What do you mean by But when you type in the record, nothing happens. ?

 

[mytaurus2000]

After I hit enter, it's no going to that record.

It's weird, sometimes it will and sometimes it won't. Not sure what is going on.

 

[Remou]

Which record is it not going to? A record with an SSN that you know exists? A new record?

As an aside
DoCmd.GoToRecord , , acNewRec
is probably better than
DoCmd.RunCommand acCmdRecordsGoToNew

 

[missinglinq]

It's weird, sometimes it will and sometimes it won't.

Is this behavior on one PC? Or does it work on one PC but not another? Are you sure the SSNs are always entered the same? 230-60-9012 is not the same as 230609012.

The Missinglinq

Richmond, Virginia

There's ALWAYS more than one way to skin a cat!