run-time error 3022

[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

 

[Brendan Reynolds]

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

Leave the combo box unbound and assign the value of the current product id
to the combo box in the Current event procedure of the form ...

Me.Combo14 = Me.productID

 

[gymphil]

Brendan

Brilliant! just the job, much appreciated

Phil

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

Leave the combo box unbound and assign the value of the current product id
to the combo box in the Current event procedure of the form ...

Me.Combo14 = Me.productID