Private Sub Add_Member_Click()
   Dim action As Variant
   Dim MemberID, MemberName, MemberAddress, MemberGender, MemberExpire As Variant
   Dim PaymentDate, PaymentAmount, PaymentActivate, PaymentExpire, SchemeID As Variant
   Dim EnrolledServices(5) As Integer, i, totalServices
   Dim rs As ADODB.Recordset
   
   
   
   If Forms![SelectOperationType]![actionRequest] = 1 Then
     action = "Update"
   Else
     action = "Create"
   End If
   
   
   
   MemberID = Forms![EnterMember]![MemberID]
   
   MemberName = Left(Forms![EnterMember]![MemberName], 50)
   MemberAddress = Left(Forms![EnterMember]![MemberAddress], 50)
   MemberExpire = Forms![EnterMember]![PaymentExpire]
   MemberGender = Left(Forms![EnterMember]![MemberGender], 1)
   
   
   PaymentAmount = Forms![EnterMember]![PaymentAmount]
   PaymentActivate = Forms![EnterMember]![PaymentActivate]
   PaymentExpire = Forms![EnterMember]![PaymentExpire]
   PaymentDate = Forms![EnterMember]![PaymentDate]
   SchemeID = Forms![EnterMember]![SchemeID]
   
   totalServices = 2
   
   EnrolledServices(1) = 1
   EnrolledServices(2) = 2
 
   If SchemeID >= 4 Then
       totalServices = 4
      
       EnrolledServices(3) = 3
       EnrolledServices(4) = 4
   End If
   
   If SchemeID >= 7 Then
       totalServices = 5
      
       EnrolledServices(5) = 5
   End If
   
   Set rs = New ADODB.Recordset
   
   If action = "Create" Then
       rs.Open "Insert into GymMembers Values (" & MemberID & ",'" & MemberName & "','" & MemberAddress & "',#" & MemberExpire & "#,'" & MemberGender & " ')", CurrentProject.Connection
      
   Else
      rs.Open "Update GymMembers set MemberName = '" & MemberName & "', MemberAddress = '" & MemberAddress & "', MemberExpire = #" & MemberExpire & "#, MemberGender ='" & MemberGender & " ' WHERE memberID = " & MemberID, CurrentProject.Connection
      
   End If

   If IsNumeric(PaymentAmount) Then
        rs.Open "Insert into MemberPayment (MemberID,PaymentAmount,PaymentActivate,PaymentExpire,PaymentDate,SchemeID) Values (" & MemberID & "," & PaymentAmount & ",#" & PaymentActivate & "#,#" & PaymentExpire & "#,#" & PaymentDate & "#," & SchemeID & ")", CurrentProject.Connection
   End If

   If action = "Update" Then
      rs.Open "Delete from MemberService where MemberID = " & MemberID, CurrentProject.Connection
   End If

   For i = 1 To totalServices
      rs.Open "Insert into MemberService (MemberID,ServiceID) Values (" & MemberID & "," & EnrolledServices(i) & ")", CurrentProject.Connection
      
   Next
   
   MsgBox ("Information updated!")
  
  DoCmd.Close acForm, "EnterMember", acSaveNo

End Sub