Discussion :

[PAUL87]

Bonjour,
dans un formulaire en mode ajout,modifs
comment faire pour rajouter un bouton qui "gèlerai" uniquement l'enregistrement concerné....(avec un message du type:" attention enregistrement définifif...toutes modifications ultérieures impossibles pour cette fiche"
(cad : pour uniquement cet enregistrement, plus de modifs possibles..)
et comment faire pour créer un form qui liste uniquement les enregistrements non "gelés"
Je pense qu'il faut rajouter un champ (oui/non) à la table....mais après?
Merci

[cafeine]

réponse ici http://www.developpez.net/forums/vie...431054#2431054

[PAUL87]

Bonjour et merci
certes le code suivant sur before_update

Code :

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

1
2
3
4
5
6
Private Sub Form_BeforeUpdate(Cancel As Integer)
  If MsgBox("Voulez-vous confirmer la modification", vbQuestion + vbYesNo, "CONFIRMATION") = vbNo Then
    Me.undo
    Cancel = true
  End if
End Sub

fonctionne tres bien....mais je souhaite qu'après il n'y ai plus de modifs possibles..définitivement .et dans ce cas si on relance le form ..ça reste possible

[cafeine]

mais tu veux empécher cet enregistrement ou bien tous ?

[PAUL87]

Non pas tous,
je souhaite que lorsque l'utilisateur juge que suffisament de champs sont remplis (ou actualisés) dans un enregistrement (présenté en form) il puisse cliquer sur un bouton qui verouille définitivement cet enregistrement sans possibilité ultérieure de modifs.
merci

[cafeine]

dans ce cas, crée dans ta table un champ de type booléen (Oui / Non) qui indiquera si l'enregistrement est verrouillé ou non, il suffira alors de tester la valeur de ce champ pour verrouiller le formulaire ...

[PAUL87]

Merci cafeine,
j'était déja parti dans cette direction
merci....à suivre...

[PAUL87]

bonjour,
donc, j'ai rajouté un champ appelé "verrou" de type oui/non
à ma table
puis une condition "verrou"=0 à ma requete
comment avoir maintenant (à l'ouverturedu formulaire) lors de la requete sur le champ"nom" une msgBox qui informe "cette fiche est verrouillée..pas de modifications possibles" et surtout que le form ne souvre pas en mode modif.
Merci

[keita]

salut
Tu selectionnes les noms à partir d'une zone de liste modif?

[PAUL87]

bonjour,
Non, dans une requête parametree

[PAUL87]

en fait c'est ceci que je ne sais pas faire

tester la valeur de ce champ pour verrouiller le formulaire ...

[keita]

Je suppose donc que tu rentre la valeur du parametre quand la requete te la demande et ton form s'ouvre;c'est ça? Parce que c'est là qu'il faut qu'on se comprenne.dans ce cas, tu mets ceci dans l'evenement "ouverture" de ton form:

Code :

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

1
2
3
4
If Me!Verou.value=-1 then
msgbox "cette fiche est verrouillée..pas de modifications possibles.",vbExclamtion,"PAUL87"
Me.enabled=false
end if

tu insere le champ verrou dans ton form evidemment;tu peux le cacher si tu veux.
J'espere t'avoir compris.
@+

[PAUL87]

oui! oui! c'est exactement ça!!!!!
mais là avec le code que tu m'a fourni
j'aiun message ....erreur de compilation... sur

Code :

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

Me.enabled

Merci

[keita]

Alors ça:

Code :

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

me.AllowEdits=False

@+

[PAUL87]

ça fonctionne nettement mieux
lorsqu'une fiche est verrouillée ça affiche bien la msgBox puis le form sans possibilité de modifs...super!!
par contre
lorsque je tape un nom dont la fiche n'est pas verrouillée, cela n'affiche pas la msgBox (c'est normal) mais cela affiche le form vide !!!sans les infos sur l'enregistrement correspondant......WHY

[keita]

Alors on retouche un peu le code:

Code :

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

1
2
3
4
5
6
If Me!Verou.value=-1 then 
msgbox "cette fiche est verrouillée..pas de modifications possibles.",vbExclamtion,"PAUL87" 
me.AllowEdits=False
else
me.AllowEdits=true
end if

Dis moi PAUL87 puorqoui ne pas faire ta recherche directement à partir de ton form; que de passer par la requete d'abord?
@+

[PAUL87]

ce coup ci ça marche pratiquement...maintenant c'est ok pour les fiches non verrouillées.
par contre je n'avait pas vu
certains champs des fiches verrouillees restent modifiables...c'est bizzare
et de plus lorsque j'ai plusieurs enregistrements qui correspondent au meme nom je n'ai plus la possibilite de passer au suivant (bouton enregistrement suivant)
suis largué....!!!

[PAUL87]

dans ma requête, dois-je mettre un critère??? si oui lequel??

[Faw]

Salut,
si tu as access > 97 utilise tout simplement la mise en forme conditionnelle qui te permet de vérouiller tes champs si ton Booléen = 0.
Avec ça plus besoin de jouer sur la propriété AllowEdits.
Enfin si j'ai bien compris le blème...
http://warin.developpez.com/

[keita]

Ecoute on va faire ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
If Me!Verou.value=-1 then 
msgbox "cette fiche est verrouillée..pas de modifications possibles.",vbExclamtion,"PAUL87" 
Me!MonControl01.Enabled=false
Me!MonControl02.Enabled=false
Me!MonControl03.Enabled=false
Me!MonControl04.Enabled=false
............................................
Me!MonControln.Enabled=false
else 
Me!MonControl01.Enabled=True
Me!MonControl02.Enabled=True
Me!MonControl03.Enabled=True
Me!MonControl04.Enabled=True
............................................
Me!MonControln.Enabled=True
end if

Où control01......Controln sont tes controls sur ton form.
ce n'est pas très élégant mais............
@+