Cannot Close Form or Navigate to Other Records

[MichaelA]

I have a Form Books which is set to open to a New Record. When I try to navigate away from the New Record either by closing the form or by going to a previous or next record, I get the following (You cannot add or change a record because a related record is required in table "Authors.") I have not tried to make any changes to the new record on any fields, only opened it and then tried to navigate away.



Thank you in advance for your help.

[Micron]

My guess is that one or more controls on that form have a default value set. When you're in a new record mode, you've started one if there are defaults (I believe that is true even if the defaults are at the table field level) and it seems that the record is a child of some other related table. The message is telling you that parent table has no record related to the one you're likely unintentionally starting.

[MichaelA]

OK, so I found the problem it is coming from this code:

Private Sub chkLoaned_AfterUpdate()
Me.txtLoanedTo.Visible = Me.chkLoaned
Me.txtDateOut.Visible = Me.chkLoaned
If Me.chkLoaned = True Then
Me.txtDateOut = Date
Else: Me.chkLoaned = False
Me.txtDateOut = ""
End If
End Sub


Private Sub Form_Current()
Me.txtLoanedTo.Visible = Me.chkLoaned
Me.txtDateOut.Visible = Me.chkLoaned
If Me.chkLoaned = True Then
Me.txtDateOut = Date
Else: Me.chkLoaned = False
Me.txtDateOut = ""
End If
End Sub

This is in the form to make two text boxes invisible unless a checkbox is checked. It also inserts the current date into one of the textboxes. Is there a way, short of eliminating this feature, from preventing this error?

Thank you for your help!

[moke123]

It also inserts the current date into one of the textboxes.

By setting a value in code you are dirtying the form which causes what Micron described.

If Me.chkLoaned = True Then
Me.txtDateOut = Date
Else: Me.chkLoaned = False
Me.txtDateOut = ""
End If

[MichaelA]

Is there a way around this?

[MichaelA]

I think I figured it out. I just deleted:

Thank you!

Else: Me.chkLoaned = False
Me.txtDateOut = ""