Trying to understand NewRecord

[GraeagleBill]

DoCmd.RunCommand acCmdSaveRecord works okay (i.e., record seen in table) but the FindFirst command does not, so the Me.Bookmark statement bombs because of "No current Record". I don't know what's the matter with "FindFirst".

And yes, I fixed the Function exiting path.

[Micron]

Kinda said that in my first post. Definitely said it in my next post

you must be doing something in code to cause that move or record commitment.

What "action" (code statement) will cause the record to commit

- acCmdSaveRecord (as you show)
- Me.Dirty = False
- Me.SetFocus (to any object that isn't part of that record)
- mouse or keyboard move off the record - including move from form to subform or the reverse of course.
- DoCmd.GoToRecord (next, previous or new)
- anything else I haven't thought of

I'm beginning to think you skim over what's being posted for you just a wee bit too much. Like I do sometimes, but maybe more so.
And no, not just because of this thread.

I'd be careful requerying a form when you're in the middle of creating or updating a record. You might find yourself losing your place and reloading the form and moving to the first record. Good luck with the rest of your project!

[GraeagleBill]

In the initial series of posts, it didn't penetrate my feeble mind the notion of "commit", so how that might relate to code escaped me as well. All these years and that was new to me.......... playing hooky from class that day?

Anyway, thanks so much for hanging in there with me. The code below seems to be getting the job done.

Private Function CommitNow(ID As Integer) As Boolean
'*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*
'  A new family named "scrubbed" so we can commit the new record and then make it the
'  current record.
'*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*

On Error GoTo CmtErr:

Me.Dirty = False

Me.RecordsetClone.FindFirst "FamilyID = " & ID
Me.AllowAdditions = False

intFamID = ID
CommitNow = True

ErrExit: Exit Function

CmtErr:
    MsgBox "Error attempting to save new family" & vbNewLine & _
           "Error number: " & Err.Number & vbNewLine & _
           "Error description: " & Err.Description
    CommitNow = False
    GoTo ErrExit

End Function

[Micron]

From one geezer to another, you're welcome.