To be honest, I’m totally at sea as to what you’re trying to do, here, based on your explanation! It would appear that you want to make a selection from the Combobox named cboPrintNo and then, if the user confirms that they want to save the changes, assign the various Fields to Columns of Combobox selection. Is that correct? The problem with this approach is that at this point the Record has not been changed! You're only 'changing' it after the Form_BeforUpdate event fires, which it won't if no changes have been made!
This type of assignment is normally done the the AferUpdate event of the Combobox itself, not in the Form_BeforeUpdate event. You would then ask the user, in the Form_BeforeUpdate, whether to Save the changes or to dump them.
But in looking at the code in the cboPrintNo_AfterUpdate event, you've apparently set up the Combobox with the purpose of using it to retrieve a matching Record:
Code:
Private Sub cboPrintNo_AfterUpdate()
' Find the record that matches the control After an update.
Dim rs As Object
Dim strVar As String
'Set rs variable to a clone of the current recordset
Set rs = Me.Recordset.Clone
'Find the correct record based on the combobox selection
rs.FindFirst "[Part] = '" & Me![cboPrintNo].Column(0) & "'" '[Print No] is bound to column 1
'Set the recordset for the form to the current record
'Me.Bookmark = rs.Bookmark
End Sub
The Combobox cannot do this, though, because you have the line:
'Me.Bookmark = rs.Bookmark
commented out!
In point of fact, the Combobox cannot be used for anything, because you have the Allow Edits Property for the Form set to No, and this setting prevents selections from being made from any Combobox!
Linq ;0)>
The problem with making anything foolproof...is that fools are so darn ingenious!
All posts/responses based on Access 2003/2007