Hi Greg
I don't really understand the problem - you could post more details.
Try this.
Set the row source of the combo like this (change the name of course)
SELECT [TableName].[IDField], [TableName].[Surname],
[TableName].[SomeOtherField], [TableName].[AndAnOtherField] FROM [TableName]
ORDER BY [Surname], [SomeOtherField], [AndAnOtherField];
Column withs = 0;2cm;2cm;2cm
Change this to fit other than the ID field
Combo afterupdate could be
Private Sub ComboName_AfterUpdate()
On Error GoTo ComboName_AfterUpdate_Err
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[IDField] = '" & Me![ComboName] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
Exit Sub
ComboName_AfterUpdate_Err:
Select Case Err.Number
Case 3167
Resume Exit_ComboName_AfterUpdate
Case Else
MsgBox Err.Description
Resume Exit_ComboName_AfterUpdate
End Select
End Sub
(Change ComboName to what it really is)
BUT - this may not be a good idea (as I said I don't really understand the
problem) all this will do is continue if the error message comes up. It
"may" by that the record really is deleted ??
Post back if you don't understand the code - I'm off to a meeeting all day
now but there are many people on the site who do understand it so they wil be
able to offer (better) advice
Good luck