Many thanks for previous help I have been given
Here is a link to my database:
Database
I want to calculate the Transfer Age of a member to the next section, from his/her Date Of Birth.
DateOfBirth is a textbox where the Date of Birth of the member is entered, on the Personal tab of frmHeader. This is the code I am using behind frmHeader:
I made TransferAge and TransferSection fields in the table PersonalName, and included them in QryPersonalName (where frmHeader gets its data from), and set the control source of TransferAgeText to TransferAge, and TransferSectionText to TransferSection
Now I find that whenever I try to delete a member; the usual confirmation dialog box to delete a record does not come up. The field data is deleted, but not the record in PersonalName.
Any help would be much appreciated
Matthew
Here is a link to my database:
Database
I want to calculate the Transfer Age of a member to the next section, from his/her Date Of Birth.
DateOfBirth is a textbox where the Date of Birth of the member is entered, on the Personal tab of frmHeader. This is the code I am using behind frmHeader:
Code:
Private Sub Form_Current()
On Error GoTo ErrorHandler
Dim SectionID As String
'SectionName.SetFocus
'= SectionName.Text
SectionID = Me![Section]
Select Case SectionID
Case "Kea"
Me.[TransferSectionText] = "Cub"
Me.[TransferDateText] = DateAdd("yyyy", 8, DateOfBirth)
Case "Cub"
Me.[TransferSectionText] = "Scout"
Me.[TransferDateText] = DateAdd("yyyy", 10.5, DateOfBirth)
Case "Scout"
Me.[TransferSectionText] = "Venturer"
Me.[TransferDateText] = DateAdd("yyyy", 14.5, DateOfBirth)
Case "Venturer"
Me.[TransferSectionText] = "Rover"
Me.[TransferDateText] = DateAdd("yyyy", 18, DateOfBirth)
Case Else
Me.[TransferSectionText] = "Adult"
End Select
Exit Sub
ErrorHandler:
MsgBox Err.Description
Resume Next
End Sub
I made TransferAge and TransferSection fields in the table PersonalName, and included them in QryPersonalName (where frmHeader gets its data from), and set the control source of TransferAgeText to TransferAge, and TransferSectionText to TransferSection
Now I find that whenever I try to delete a member; the usual confirmation dialog box to delete a record does not come up. The field data is deleted, but not the record in PersonalName.
Any help would be much appreciated

Matthew