Discussion :

[overdoze]

Bonjour à tous et à toutes,

J'ai réaliser un formulaire sur access pour faire plus aisementla mise à jour de mes données. L'application tourne bien mais voilà je trouve que ca manque un peu de sécurité; en effet il est possible de changer les données puis de passer à un autre enrégistrement sans que le système ne nous demande de confirmer cette modification ou non.

Ce que je voudrais faire maintenant, c'est à chaque fois qu#une modification est faite sur un enrégistrement, avant que l'utilisateur ne passe à un autre enrégistrement ou ne ferme la fenetre en cours, qu'une procédure se lance dans laquelle un msgbox me demande si oui ou non je souhaite confirmer cette modification.

quelqu'un pourrait me dire la marche à suivre ou me dirigé vers tuto ou encore une discussion similaire? Ce serais vraiment cool

merci à tous

[Dafbau]

bonjour
pour ma part je gere ce genre de probleme en créant un evenement sur chaque controle (prealablement verrouillé) qui se déclenche sur clic et demande la confirmation avant de changer la valeur, mais c'est un peu lourd lorsque tu dois changer plusieurs controles de ton formulaire

[overdoze]

je ne comprend pas très bien cette méthode. Si le control est vérouillé d`s le départ c'est qu'en principe la donnée qu'elle affiche (Dans le cas d'un text box) ne peut etre modifiée. Comment arrive tu donc à faire la modification?

[overdoze]

j'ai trouvé une piste mais je suis confronté à nouveau à un mur.
Voilà, au niveau du formulaire il existe l'évenement "si modification" dans lequel j'y ai mis le code suivant:

Code :

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

1
2
3
4
 
Private sub Form_Dirty (Cancel as Integer)
MsgBox " Voulez vous vraiment modifier cet enrégistrement?, "" & vbCr & vbCr &", vbInformation + vbYesNo, "Confirmation"
End Sub

la procédure se déclenche à la premiere modification mais ne prend pas en compte le fait que je click sur "oui" ou sur "non", à savoir valider ou non la modification.

Qu#es ce qu'il faut que je fasse pour ca?

[loufab]

Bonjour,

Si tu ne joue pas avec la variable Cancel ce code ne fait qu'afficher le message.

ACCESS ne comporte pas de moteur extra-lucide !

Cordialement,

[overdoze]

Qu'es ce que tu veux dire par là au juste? Excuse moi mais j'ai du mal á saisir ce que tu me dit. cela signifierait t-il que pour que les bouton yes et no fonctionne il faudrait que j'utilise ce code ci dessous?

Code :

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

1
2
3
4
 
Private sub Form_Dirty (Cancel as Integer)
MsgBox " Voulez vous vraiment modifier cet enrégistrement?, "" & vbCr & vbCr &", vbInformation + vbYesNoCancel, "Confirmation"
End Sub

[ludooo]

salut overdoze,

il faut faire un test pour agir en fonction de la reponse du msgbox, ce qui donne:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
 
reponse=MsgBox(" Voulez vous vraiment modifier cet enrégistrement?, "" & vbCr & vbCr &", vbInformation + vbYesNo, "Confirmation")
 
if reponse = vbyes then
    'ton code de modif
elseif reponse = vbno then
    'pas de modif
endif
 
End Sub

salut

[overdoze]

merci infiniment ludoooo je vais completer ce code et voir si c ok

[loufab]

On peut également faire :

Code :

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

1
2
3
4
5
if msgbox("mon message",vbInformation + vbYesNo,"mon titre") then
  cancel = false
else
  cancel = true
endif

En tout cas sans le traitement du cancel le code ne fera toujours qu'afficher le message.

Cordialement,

[overdoze]

Déjà pour répondre au dernier message, cancel est déclaré comme étant integer de ce fait il ne peut prendre les valeurs true et false (Enfin selon moi).
De plus j'ai essayer d'implémenter mais ca n'a rien changer au résultat.

En suivant la méthode de Ludoooo J'ai fait ceci:

Code :

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

1
2
3
4
5
6
7
 
Dim Reponse As Integer
Reponse = MsgBox("Voulez vous réellement modifier l'enregistrement courant?", vbYesNo + vbExclamation, "Confirmation")
If Reponse = vbYes Then
    TYPE.Text = Choose
End If
End Sub

Ici type c'est le nom du controle où l'on change la donnée. C'est un combobox dans lequel est listé les différents éléments acceptable. Mais voilà le compilateur m'affiche ce message "Erreur de compilation" "Erreur de syntaxe" au niveau de cette ligne

Code :

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

TYPE.Text = Choose

Quelqu'un peut -il me dire pourquoi?

[loufab]

Déjà pour répondre au dernier message, cancel est déclaré comme étant integer de ce fait il ne peut prendre les valeurs true et false (Enfin selon moi).

Entre ACCESS et toi je choisi ACCESS...
Pour t'en convaincre tu peux toujours tester le type de True et False, ce sera une perte de temps bien inutile.

De plus j'ai essayer d'implémenter mais ca n'a rien changer au résultat.

Si modification est différent de Avant Mise à Jour, dans ton cas il faut utiliser le 2ème. Pour t'en convaincre regarde l'application Chasseur d'événement, tu comprendra le méchanisme des événements et surtout l'ordre de leur déclenchement.

Code :

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

1
2
3
4
5
6
7
 
Dim Reponse As Integer
Reponse = MsgBox("Voulez vous réellement modifier l'enregistrement courant?", vbYesNo + vbExclamation, "Confirmation")
If Reponse = vbYes Then
    TYPE.Text = Choose
End If
End Sub

Quelqu'un peut -il me dire pourquoi?

.text est le contenu temporaire (avant validation) Type est un champ.
Pour y faire référence il faut que le champ soit actif, ce n'est visiblement pas toujours le cas (là n'est pas le problème... pour l'instant).

Qui est choose si ce n'est un mot réservé (fonction Choose()) ? Là est le problème.

Si tu utilise des mots réservés, je pense qu'ACCESS ne sera pas ton ami.

Cordialement,

[ludooo]

re- overdoze,

avant de te rediriger vers un tutoriel ou te donner d'autres explications, je te propose de baptiser la touche F1 de ton clavier
va voir dans l'aide la syntaxe de "Choose", et on en rediscute si je peux t'aider...

a+