Make checkbox hold old value when form is opened to edit

Hi Experts,

This one is a little crazy.  I have a form that can be edited.  There are five checkboxes on the form and I put some code in the form load event to make the checkboxes false which is perfect unless the user is opening the form in edit mode.  I want the form to hold the value of the checkbox if the form is being edited but I don't want any checks in those boxes is the form is a new record.  Below is what I have, I included all the code for the form.  Thanks for your help.

Laura

Option Compare Database
 
Private Sub chkQuenchWaterOff_Click()
 
    If Me.chkQuenchWaterOff = True Then
       Me.chkQuenchWaterOn = False
    End If
    
End Sub
 
Private Sub chkQuenchWaterOn_Click()
 
    If Me.chkQuenchWaterOn = True Then
       Me.chkQuenchWaterOff = False
    End If
    
End Sub
 
Private Sub chkShoesEngagedStationFour_Click()
 
    If Me.chkShoesEngagedStationFour = True Then
       Me.chkShoesEngagedStationOne = False
       Me.chkShoesEngagedStationThree = False
       Me.chkShoesEngagedStationTwo = False
    End If
    
End Sub
 
Private Sub chkShoesEngagedStationOne_Click()
 
    If Me.chkShoesEngagedStationOne = True Then
       Me.chkShoesEngagedStationFour = False
       Me.chkShoesEngagedStationThree = False
       Me.chkShoesEngagedStationTwo = False
    End If
       
End Sub
 
Private Sub chkShoesEngagedStationThree_Click()
 
    If Me.chkShoesEngagedStationThree = True Then
       Me.chkShoesEngagedStationFour = False
       Me.chkShoesEngagedStationOne = False
       Me.chkShoesEngagedStationTwo = False
    End If
    
End Sub
 
Private Sub chkShoesEngagedStationTwo_Click()
 
    If Me.chkShoesEngagedStationTwo = True Then
       Me.chkShoesEngagedStationFour = False
       Me.chkShoesEngagedStationOne = False
       Me.chkShoesEngagedStationThree = False
    End If
    
End Sub
 
Private Sub cmbCancel_Click()
 
    Me.Undo
    DoCmd.Close acForm, "frmSetupLogsheetAnnealing"
    
End Sub
 
Private Sub cmbSubmitAnnealing_Click()
On Error GoTo Err_cmbSubmitAnnealing_Click
 
    DoCmd.Save
    DoCmd.Close acForm, "frmSetupLogsheetAnnealing"
 
Exit_cmbSubmitAnnealing_Click:
    Exit Sub
 
Err_cmbSubmitAnnealing_Click:
    MsgBox Err.Description
    Resume Exit_cmbSubmitAnnealing_Click
    
End Sub
 
Private Sub Form_Current()
    
    If AddNew = True Then
        DoCmd.GoToRecord , , acNewRec
    End If
    
    Me.cboToolingCart.Value = [Forms]![frmSetupHistory].[cboToolingCart].Value
    Me.txtHiddenDescription.Value = [Forms]![frmSetupHistory].[txtHiddenTCDesc].Value
 
    
End Sub
 
Private Sub Form_Load()
 
    If AddNew = False Then
        Me.cboToolingCart.Value = [Forms]![frmSetupHistory].[lstSetupHistory].Column(2)
    End If
    
    Me.chkShoesEngagedStationOne = False
    Me.chkShoesEngagedStationTwo = False
    Me.chkShoesEngagedStationThree = False
    Me.chkShoesEngagedStationFour = False
    
    Me.chkQuenchWaterOn = False
    Me.chkQuenchWaterOff = False
    
End Sub
 
Private Sub txtArgon_AfterUpdate()
 
     If Me.txtArgon.Value > 1 Then Me.txtArgon.Value = Me.txtArgon.Value / 100
     
End Sub
 
Private Sub txtArgon_LostFocus()
    
    'If Me.txtArgon.Value < 1 Or Me.txtArgon.Value > 100 Then
        'MsgBox "Please enter a value between 1 and 100 for the Argon data entry."
    'End If
 
    
End Sub
 
Private Sub txtFreq_AfterUpdate()
 
    If Me.txtFreq.Value > 1 Then Me.txtFreq.Value = Me.txtFreq.Value / 100
    
End Sub
 
Private Sub txtFreq_BeforeUpdate(Cancel As Integer)
 
End Sub
 
Private Sub txtGain_LostFocus()
 
    If Me.txtGain.Value < 1 Or Me.txtGain.Value > 100 Then
        MsgBox "Please enter a value between 1 and 100 for the Gain data entry."
    End If
 
End Sub
 
Private Sub txtHydrogen_AfterUpdate()
 
    If Me.txtHydrogen.Value > 1 Then Me.txtHydrogen.Value = Me.txtHydrogen.Value / 100
    
End Sub
 
Private Sub txtHydrogen_LostFocus()
 
    'If Me.txtHydrogen.Value < 1 Or Me.txtHydrogen.Value > 100 Then
        'MsgBox "Please enter a value between 1 and 100 for the Hydrogen data entry."
    'End If
    
End Sub
 
Private Sub txtIO_AfterUpdate()
 
    If Me.txtIO.Value > 1 Then Me.txtIO.Value = Me.txtIO.Value / 100
    
End Sub
 
Private Sub txtIO_BeforeUpdate(Cancel As Integer)
 
End Sub
 
Private Sub txtPO_AfterUpdate()
 
    If Me.txtPO.Value > 1 Then Me.txtPO.Value = Me.txtPO.Value / 100
    
End Sub
 
Private Sub txtPO_BeforeUpdate(Cancel As Integer)
 
End Sub
 
Private Sub txtVO_AfterUpdate()
 
    If Me.txtVO.Value > 1 Then Me.txtVO.Value = Me.txtVO.Value / 100
    
End Sub
 
Private Sub txtVO_BeforeUpdate(Cancel As Integer)
 
End Sub

Select allOpen in new window