Transfer Age problems

mctaguma

Registered User.
Local time
Tomorrow, 03:48
Joined
Dec 30, 2006
Messages
18
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:


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
 

Users who are viewing this thread

Back
Top Bottom