G
gymphil
I am using a combo box on a form to find existing records / add new records.
If I make it bound I get run-time error 3022, the changes you requested to
the table were not successfull because they would create duplicate values in
the index, primary key or relationship.
If I make the combo box unbound the first time a record is selected data
relating to that record is correct, but if I then scroll/tab through the
remaining records on the form the combo box does not change which is
misleading!, I think this is because it is unbound. I have tied afterupdate,
beforeupdate and lost focus. Can anyone help please!
Thanks
Phil
Private Sub Combo14_AfterUpdate()
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[productID] = '" & Me![Combo14] & "'"
Me.Bookmark = rs.Bookmark
End Sub
If I make it bound I get run-time error 3022, the changes you requested to
the table were not successfull because they would create duplicate values in
the index, primary key or relationship.
If I make the combo box unbound the first time a record is selected data
relating to that record is correct, but if I then scroll/tab through the
remaining records on the form the combo box does not change which is
misleading!, I think this is because it is unbound. I have tied afterupdate,
beforeupdate and lost focus. Can anyone help please!
Thanks
Phil
Private Sub Combo14_AfterUpdate()
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[productID] = '" & Me![Combo14] & "'"
Me.Bookmark = rs.Bookmark
End Sub