Discussion :

[Imitator92]

Bonjour

J'ai des enregistrements qui sont organisés par date
Pour des raisons juridiques je dois anonymiser mes données apres 5 jours d'enregistrement de telle sorte que les noms et prenoms pour ces dates sont remplacés par des XXXXXXXX (par l'intermédiaire d'une macro).

Cependant le reste des données reste intacte, de telle sorte qu'il est posssible de les consulter par requête.

J'aimerai cependant que si l'utilisateur, lors de la saisie du critère de date dans la requete (qui lance un Etat) saisit une date supérieure à la date du jour + 5, une messagebox vienne le prevenir que les enregistrements sollicités ont été anonymisés et lui propose soit de continuer soit d'arreter.

Pouvez vous m'aider en ce sens?


Merci

[LE VIEUX]

bonjour,
tout dépend sur quel évènement et sur quel objet ?
par exemple sur un contrôle d'un formulaire date sur formulaire :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub MonChampDate_BeforeUpdate(Cancel As Integer)
If Me.MonChampDate = Date + 5 Then
x = MsgBox("les enregistrements sollicités ont été anonymisés VOULEZ VOUS CONTINUER ?", vbYesNo)
If x = 6 Then
'Code pour ouvrir l'état
Else
Cancel = True
End If
End If
 
End Sub

[Imitator92]

Hello et merci de ta réponse

En fait c'est basé sur le champ d'interrogation d'une requête ( [Quelle date cherchez vous] )

Si je savais comment me baser sur cette interrogation cela serai mieux (mais pas possible de passer par une inputbox pour des raisons de code).

Si vous avez une idée pour se baser dessus, je suis preneur, sinon je mettrai cet avertissement systématiquement ...

Merci de votre aide

[LE VIEUX]

re,

mais pas possible de passer par une inputbox pour des raisons de code

le code est interdit ?.

[Imitator92]

re,

le code est interdit ?.

Non mais en fait initialement je passais par une inputbox, mais il s'avère que certaines choses que je dois faire ne sont pas possible par ce moyen, j'en suis donc revenu à la sollicitation par demande dans une requête qui satisfait a mes besoins d'utilisation