Form not returning data when using a combo box

hawzmolly

Registered User.
Local time
Yesterday, 23:27
Joined
May 25, 2009
Messages
14
I had a form that has a combo box that I could open and click on a member whose data I need to change.

This db is on a flashdrive so I can use it both at home and at the club. The club computer had an automatic update sometime between when I last used it and now. This form worked perfectly until after the automatic "Office" update occurred. Now on the home computer the form will not work. Now the form returns the name in the combo box but does not fill in the form such that I can make needed changes. I can cycle through all the names until I find the name I need to change, but that is a pain in the a**. Any ideas about what happened?

The code used is where "qname" is the name of the unbound combo box which when I click on it should return the form with all the data on the form. I tried the system restore. This did not cure the problem. Now I won't work on either computer.

Private Sub qname_AfterUpdate()
Dim MyName As DAO.Recordset
Set MyName = Me.RecordsetClone
MyName.FindFirst "[LastName] = '" & Me.qname & "'"
If MyName.NoMatch Then
MsgBox "Name Not Found"
Else
Me.Bookmark = MyName.Bookmark

End If
End Sub
 
Are you sure "Me.qname" containing a name?
Put in a MsgBox(Me.qname).
Else post you database with some sample data, (zip it).
 

Users who are viewing this thread

Back
Top Bottom