The problem is that you are going to a new record every time you load the form. Look at this:
Code:
Private Sub Form_Load()
DoCmd.Maximize
btnThisBusiness.Caption = DLookup("BusinessNameA", "q01ThisBusiness")
DoCmd.GoToRecord , , acNewRec
ReSizeForm Me
If Not IsNull(Me.OpenArgs) Then
Me.cboSubjectSuggestedB = Me.OpenArgs
End If
If MsgBox(Prompt:="Select YES to capture a DIARY ENTRY on the SUBJECT SUGGESTED, otherwise select NO and SELECT A SUBJECT. Then capture a DIARY ENTRY. If no DIARY ENTRY is going to be captured anymore, select NO and CLOSE.", Buttons:=vbYesNo, Title:="From PERFAC") = vbYes Then
Me!cboUnkcom_IDb = Me!cboSubjectSuggestedB
'--------------------------------------------------------------------
If Not IsNull(Me!RecordingsDiaryNoA) Then
Exit Sub
Else
If DCount("RecdiaID", "t01RecordingsDiary") = 0 Then
Me!RecordingsDiaryNoA = 1
Else
Me!RecordingsDiaryNoA = DMax("RecordingsDiaryNoA", "t01RecordingsDiary") + 1
End If
End If
'--------------------------------------------------------------------
MsgBox "Capture a DIARY ENTRY about the SELECTED SUBJECT."
Else
MsgBox "Select a subject from the list, then capture a DIARY ENTRY."
End If
End Sub
The reason this is a problem is because your field DateCapturedB in table t01TrnsctnTbls has Now() as default value, since you are going to a new record on load, the record must be commited before saving the output of Now(). If you comment out that line, it all works as you expect.