Case à cocher

bonjour à tous

J'ai un sous formulaire qui doit s'ouvrir avec une case à cocher active a l'ouverture du formulaire, je n'arrive pas à le faire voici mon code:

Private Sub Form_Open(Cancel As Integer)

If Forms![frm_Encaissements]![sfrm_Tresorerie_Enc_Prod]![Prime_Totale] > 1 Then
Forms![frm_Encaissements]![sfrm_Tresorerie_Enc_Prod]![NonRglée] = True
End If

End Sub

merci pour votre aide