AfterUpdate Event Data Record Problems

[john999]

I am running the following code in a Data entry form. All of the Records
are from a single table. With the exception of PhLBDay & SoberDate they are
text values. PhLBDay & SoberDate are dates in Medium format. My data
changes in all the fields except the Date types "Private Sub
Check8_AfterUpdate()". I've checked and re-checked names, formats, locks,
enables, etc. No joy. I did add the field PhLBDay "after the fact" (control
was already set up but unbound in form). BUT I also added the field PLSpons
the same way with no trouble.

So, is my problem the fact that I'm trying to handle the dates
inappropriately in VB, Or?...

Private Sub Check8_AfterUpdate()
If BPhL = True Then
PhLBDay = SoberDate
Else
PhLBDay = Null
End If
End Sub

Private Sub Check40_AfterUpdate()
If Sponsor = True Then
PLSpons = "Yes"
Else
PLSpons = ""
End If
End Sub

Private Sub Check16_AfterUpdate()
If FNPhL = True Then PhLName = FullName
End Sub

Private Sub Text43_AfterUpdate()
If MidName <> "" Then
FullName = FirstName + " " + MidName + " " + LastName
Else
FullName = FirstName + " " + LastName
End If
End Sub

Private Sub Text45_AfterUpdate()
If MidName <> "" Then
FullName = FirstName + " " + MidName + " " + LastName
Else
FullName = FirstName + " " + LastName
End If
End Sub

Private Sub Text47_AfterUpdate()
If MidName <> "" Then
FullName = FirstName + " " + MidName + " " + LastName
Else
FullName = FirstName + " " + LastName
End If
End Sub