I have a form that displays records and allows updates based on clicking an item in an unbound combo list that displays the record keys.
This is working fine but evry time i try to add a new record the current record seems to move back to the initial record that was displayed when i try to focus on a blank field in the form.
How do I stop this happening?
Below is the code I am using:-
Private Sub Combo6_AfterUpdate()
' Find the record that matches the control.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[House Code] = '" & Me![Combo6] & "'"
Me.Bookmark = rs.Bookmark
Private Sub Form_Current()
Combo6 = [House Code]
Private Sub Add_Click()
On Error GoTo Err_Add_Click
DoCmd.GoToRecord , , acNewRec