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
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