Discussion :

[Salsaboy60]

Bonjour,

J'ai un formulaire Machines, ou l'utilisateur peut rentree les données concernant des machines qui rentre.
Pour des raison propre à notre organisation, je ne peux pas utiliser le document en Add only pe.
Donc l'utilisateur doit pourvoir scroller dans les anciens enregistrements et éventuellement faire des modification.
J'ai protégé le changement d'un numéro identificatief avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If Not Me.NewRecord Then
  MsgBox "Vous n'avez pas le droit de changer ce numéro!!!"
  Me.NumSeeben = Me.NumSeeben

Maintenant, quand une machine est vendue, j'ajoute la date de sortie dans la base et a se moment, on ne devrais plus pouvoir modifier le contenu.

J'utilisé ceci sur un champs de type text :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
If Not Me.Date_sortie = "" Then
  KeyCode = 0
  MsgBox "Vous n'avez plus le droit de modifier les données! "
  End If

Ca ne marche pas pour une champs de liste déroulante.

Deux question.
Quoi écrire pour une liste déroulante, et
Est-ce qu'il y a moyen de protéger tout les champs au même temps si la condition est rempli, ou est-ce que je suis obligé de le faire champs par champs.

J'espère que j'etais assez clair.

Merci d'avance pour vos remarques.

Hans

[Salsaboy60]

Ok, sorry

La discussion sur Formulaire modification champs comportait déjà le début de ma solution.

j'ai ajouter dans l'évenement Sur activation ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
If Date_sortie.Value <> "" Then
     Me.AllowEdits = False
     Me.AllowAdditions = False
     Me.AllowDeletions = False
 Else
     Me.AllowEdits = True
     Me.AllowAdditions = True
     Me.AllowDeletions = True
 End If

Et ça marche.

Merci