Private Sub Partenariat_Change()
Dim ré
If Partenariat = "DIRECT" Then
Préstataire.Visible = False
Préstataire.Text = "PAS"
ré = Cont * 10
Réference = "DI" & "-" & ré
End If
If Partenariat = "PRESTATAIRE" Then
Préstataire.Enabled = True
ré = Cont * 10
Réference = "PR" & "-" & ré
End If
End Sub
Public Sub Desa()
Nom.Enabled = False
Nom.BackColor = &HC0FFFF
Nom.ForeColor = &HFF80FF
Label8.Visible = False
Cont.Visible = False
Catégorie.Enabled = False
Catégorie.BackColor = &HC0FFFF
Partenariat.Enabled = False
Partenariat.BackColor = &HC0FFFF
Préstataire.Enabled = False
Préstataire.BackColor = &HC0FFFF
Adresse.Enabled = False
Adresse.BackColor = &HC0FFFF
Adresse1.Enabled = False
Adresse1.BackColor = &HC0FFFF
Département.Enabled = False
Département.BackColor = &HC0FFFF
Ville.Enabled = False
Ville.BackColor = &HC0FFFF
CP.BackColor = &HC0FFFF
Téléphone.Enabled = False
Téléphone.BackColor = &HC0FFFF
Fax.Enabled = False
Fax.BackColor = &HC0FFFF
Email.Enabled = False
Email.BackColor = &HC0FFFF
Web.Enabled = False
Web.BackColor = &HC0FFFF
BtnEnregistrer.Caption = "Modiffier"
BtnEnregistrer.Picture = Nothing
End Sub
Public Sub Acti()
Nom.Enabled = True
Nom.BackColor = &HD5BB9F
Nom.ForeColor = &HD5BB9F
Label8.Visible = True
Cont.Visible = True
Catégorie.Enabled = True
Catégorie.BackColor = &HD5BB9F
Partenariat.Enabled = True
Partenariat.BackColor = &HD5BB9F
Préstataire.Enabled = True
Préstataire.BackColor = &HD5BB9F
Adresse.Enabled = True
Adresse.BackColor = &HD5BB9F
Adresse1.Enabled = True
Adresse1.BackColor = &HD5BB9F
Département.Enabled = True
Département.BackColor = &HD5BB9F
Ville.Enabled = True
Ville.BackColor = &HD5BB9F
CP.BackColor = &HD5BB9F
Téléphone.Enabled = True
Téléphone.BackColor = &HD5BB9F
Fax.Enabled = True
Fax.BackColor = &HD5BB9F
Email.Enabled = True
Email.BackColor = &HD5BB9F
Web.Enabled = True
Web.BackColor = &HD5BB9F
BtnEnregistrer.Caption = "Modiffier"
'BtnEnregistrer.Picture = Nothing
End Sub