Using search combo box when form opened in 'Add' mode

[jfn15]

I have a form containing command buttons to open various other forms within the project. I've specified that the form be opened in add mode, however I had previously created a search combo box in the form header, to enable users to find a record. This combo box works if I code the button to open the form in edit mode, but this also causes the form to open at the first record, thereby requiring users to hit another button to add a record.
Is there a way to code the form to enable it to be opened at a new record, but also allowing users to navigate to an already existing record using the combo box, and edit records?

The code on the command button is currently:



DoCmd.OpenForm "frmCONTACTS", acNormal, , , acFormAdd, acDialog

[pbaldy]

You can use DoCmd.GoToRecord, either in that code or in the load event of the form being opened.

[jfn15]

Thanks Paul - I'd mistakenly put that command in the On Current event, not the load event! Very new to databases and coding, as you've no doubt guessed.
Grateful for your assistance.

[pbaldy]

Happy to help! Having it in the current event would make it tough to go to other records.

[jfn15]

Oops! Still having a problem. The combo box no longer works when the forms are opened from the command buttons. I've tried simply opening forms from the navigation pane, and they still work there. Curiously, one of the forms opens and works from the 'OpenForm' form, but the other 4 don't??? See code below for frmINSPECTION. Any ideas???

Dim rs As DAO.Recordset
If Not IsNull(Me.Combo49) Then
'Save before move.
If Me.Dirty Then
Me.Dirty = False
End If
'Search in the clone set.
Set rs = Me.RecordsetClone
rs.FindFirst "[ContactID] = " & Me.Combo49
If rs.NoMatch Then
MsgBox "Not found: filtered?"
Else
'Display the found record in the form.
Me.Bookmark = rs.Bookmark
End If
Set rs = Nothing
End If

[jfn15]

Blimey - just pasted the wrong window!

Code for combo box on frmInspection as follows:

Private Sub Combo16_AfterUpdate()
'Find the record that matches the control.
Dim rs As Object

Set rs = Me.RecordsetClone
rs.FindFirst "[InspectionID] = " & Str(Nz(Me![Combo16], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark


End Sub

[jfn15]

Think I'm getting there???
I've removed the On Load code, and modified the Click event for each button that opens a form, to the following (seems to be working)

'Open the form to a new record, but also allow combo box searches for existing records
DoCmd.OpenForm "frmINSPECTION"
DoCmd.GoToRecord acDataForm, "frmINSPECTION", acNewRec

[alcapps]

here is another way to get to a new record..
Private Sub Form_Open(Cancel As Integer)
Me.DataEntry = True
End Sub

[pbaldy]

Looks like you've got it.

[jfn15]

Many thanks to all for your assistance!