Discussion :

[Auron89]

Bonjour,

voilà mon problème, j'essaie de faire un formulaire ayant pour but de créer des bons d'achat. Je voudrai qu'après avoir entré toutes les informations et cliqué sur un bouton de commande "Sauvegarder un enregistrement", on ne puisse plus modifier l'enregistrement (seulement le consulter et à la limite pouvoir le modifier avec un mot de passe).

J'ai cherché sur d'autres forums, je ne trouve aucune solution qui fonctionne.

Merci d'avance pour votre aide.

[micniv]

Une piste est de rajouter un champ 'statut' d'un bon d'achat et de gérer ce statut comme souhaité :
en création et tant que l'on n'a pas validé le bon d'achat le statut des 'modifiable' ,Quand le BA est validé le statut est basculé à 'consultable' : l'impact est que si tu le ré-ouvres tu ouvres en lecturev seule;
En résumé :
[statut] ='modifiable' => me.form.allowedit=true
[statut] ='consultable => me.form.allowedit=false

[Auron89]

Merci d'avoir répondu si vite.

Je suis loin d'être une flèche en Access.
J'ai bien créé le champ, mais comment faire pour entrer :
[statut] ='modifiable' => me.form.allowedit=true
[statut] ='consultable => me.form.allowedit=false

Et aussi comment faire pour n'avoir que le choix entre 'consultable' et 'modifable'? et ne pas pouvoir rentrer autre chose?

[sylvain.thibault]

Pour n'avoir le choix qu'entre 2 valeurs, tu crées une zone de liste avec ces 2 valeurs uniquement.

ensuite, pour "verrouiller" ton formulaire, tu dois passer par du code que tu mets à l'ouverture du formulaire et aussi dés que la valeur de ta zone de liste change (si consultable=verrouillé, sinon modifiable)

Sylvain Thibault

[Auron89]

J'ai rentré ce code là :

Code :

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

1
2
3
4
5
6
7
8
Private Sub Form_Open(Cancel As Integer)
    If bon![statut] = "consultable" Then
        Me.Form.allowedit = False
    Else
        Me.Form.allowedit = True
    End If
 
End Sub

Ça me donne un erreur 424 avec marqué "objet requis"

Que manque-t-il?

[Tofalu]

Qu'est ce que l'objet bon ? Un formulaire ouvert ?

Ne serait-ce pas plutot Me![Statut] ?

[Auron89]

bon est le nom de ma table.

Avec Me![status] j'obtiens l'erreur 2465; "ne trouve pas le champ status"

[Tofalu]

Oui, mais on ne peut pas travailler sur une table. La table n'a pas d'existence en programmation, il faut l'interroger : soit via des recordset, soit justement via le formulaire. Ajoute le champ Statut à la source de ton formulaire et remplace bon par me

[Auron89]

Comme ça?

Code :

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

1
2
3
4
5
If Me![Status] = "Modifiable" Then
        Me.Form.allowedit = True
    Else
        Me.Form.allowedit = False
    End If

[Tofalu]

Oui, sauf que c'est AllowEdits et non AllowEdit et que c'est à placer sur l'évènement Activation du formulaire.

[Auron89]

OK merci, je testerai demain matin.

[Auron89]

Bonjour,

J'ai à présent le code suivant

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
17
18
19
20
21
22
23
24
25
Private Sub Form_Open(Cancel As Integer)
    DoCmd.OpenForm "frm Password", acNormal, , , , acDialog
    Cancel = Not blnPasswordOK
    If Me![Status] = "Modifiable" Then
        Me.Form.AllowEdits = True
    Else
        Me.Form.AllowEdits = False
    End If
End Sub
 
Private Sub Nouveau_bon_Click()
On Error GoTo Err_Nouveau_bon_Click
 
    Me![Status] = "Consultable"
    DoCmd.GoToRecord , , acNewRec
    Me![Status] = "Modifiable"
 
Exit_Nouveau_bon_Click:
    Exit Sub
 
Err_Nouveau_bon_Click:
    MsgBox Err.Description
    Resume Exit_Nouveau_bon_Click
 
End Sub

Pour la partie Nouveau_bon, on commence par passer l'enregistrement actuel à "Consultable", ensuite on passe à un nouvel enregistrement et on lui atribut le status "Modifiable".
Le problème est que quand je retourne sur l'autre enregistrement, son status est bien "Consultable" mais on peut quand même le modifier. Que faire?

[Tofalu]

Tu n'as pas mis le code sur le bon évènement de formulaire.

Lit les réponses que l'on te donne en entier

Oui, sauf que c'est AllowEdits et non AllowEdit et que c'est à placer sur l'évènement Activation du formulaire.

[Auron89]

En fait ça marche! il faut relancer le formulaire. En faisant une actualisation auto ça devrait être bon!

(Autrement, j'ai essayé sur Activation, le problème c'est que j'ai protéger mon dernier formulaire par un mot de passe. Ça marche aussi mais dès que je veux créer un nouveau bon, il me redemande le mot de passe.)

Merci pour tout