1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32
| '-----------
Private Sub btn_Modif_Et_Click()
'déclaration variables
Dim num_Et As Long
Dim formulaire As Form
'prend la valeur du nom d'un négociateur pour l'ouverture du formulaire
num_Et = Forms![frm_Ej_Org_New].Form![frm_Et_Org sous-formulaire_1]![et-no_cna].Value
'test si il y a un négociateur ciblé
If num_Et = 0 Then
MsgBox "Vous n'avez pas sélectionné de numéro d'établissement !"
Exit Sub
End If
'ouverture du formulaire négociateur
DoCmd.OpenForm "frm_Etablissements", , , "[et-no_cna] = " & num_Et & ""
'retrait des protections de modification
'Set formulaire = Forms![frm_Etablissements]
'formulaire.AllowEdits = True
'formulaire.AllowAdditions = True
'formulaire.AllowDeletions = False
'Set formulaire = Nothing
'remise en place des protections de modification
'Set formulaire = Forms![frm_Etablissements]
'formulaire.AllowEdits = False
'Set formulaire = Nothing
End Sub |
Partager