Discussion :

[gravier3000]

Rebonjour,

J'espère ne pas trop abuser de ce forum en posant ma troisième question en deux jours, mais j'ai beau chercher et...

Dans un formulaire, comment pourrais je afficher un message qui alerterait l'utilisateur qu'il passe sur un enregistrement antérieur ? (Ceci afin d'éviter qu'un utilisateur ne change des données antérieures sans s'en rendre compte...).

Merci d'avance !

[ClaudeLELOUP]

Bonjour,
Que veux-tu dire par "enregistrement antérieur" ?
Cela signifie-t-il que tu veux prévenir l'utilisateur de toute modification dans un enregistrement autre que celui qu'il est occupé à créer ?

[gravier3000]

Bonjour,

Oui c'est exactement ça.

[ClaudeLELOUP]

Bonjour,

Dès lors, pour tous les contrôles que tu veux protéger, tu dois les verrouiller.
Dans l'événement "sur activation" (current), tu testes si un champ indispensable (je veux dire un champ qui a sûrement une valeur si c'est un ancien enregistrement) est null.
Si oui, c'est un nouvel enregistrement, tu enlèves les verrous aux contrôles concernés.
Si non, c'est un ancien, tu poses les verrous .
Si tu n'es pas à l'aise avec le VBA, tu réalises cela en spécifiant explicitement chaque contrôle concerné.

Code :

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

1
2
3
4
5
6
7
8
If isnull(me.leChampIndispensable) then
 me.LeNomDuChamp1.Locked = False
 me.LeNomDuChamp2.Locked = False 
........
else
 me.LeNomDuChamp1.Locked = True
 ...........
end if

Si tu es à l'aise avec le VBA, tu lances une boucle sur tous les contrôles du formulaire et tu aménages leur propriété "Locked" s'ils en ont une.

[78chris]

Bonjour

Tu peux aussi déjà changer les propriétés de ton formulaire pour qu'il ne serve qu'au mode ajout.

[gravier3000]

Merci beaucoup pour cette réponse, je ai testé le code et il fonctionne. Cependant, le but n'est en fait pas de bloquer les champs d'un enregistrement encodé précédemment, mais juste de prévenir l'encodeur qu'il a changé d'enregistrement (il aurait donc la liberté de corriger un champ en cas d'erreur d'encodage...).

Une nouvelle idée ?

PS : N'étant effectivement pas à l'aise avec le VBA, j'apprécie tout de même la réponse précédente qui pourra certainement me servir à l'avenir, et puis comme ça j'en apprend sur le VBA en général... merci

[Renardo]

bonjour
Un exemple si tu utilise un num auto

[gravier3000]

Merci pour cette dernière réponse, moyennant une petite rectification ça marche à merveille. Avec le code proposé :

If Me.ID < DMax("ID", "Obs_Species_Rhopalocera") Then
MsgBox ("Warning, you are moving to a previous record")

Le passage d'un enregistrement vierge (qui ne possède pas encore d'ID) au dernier enregistrement ne crée pas le message d'alerte. En rajoutant simplement un +1 cela fonctionne...

If Me.ID < (DMax("ID", "Obs_Species_Rhopalocera") + 1) Then
MsgBox ("Warning, you are moving to a previous record")

Merci beaucoup