Discussion :

[beautygurlqc]

Bonjour à vous,

je suis une novice en programmation. J'ai monté une base de donnée en apprenant jusqu'à maintenant par moi-même. J'ai réussie à faire mes liens, mes formulaires, mes requêtes et etc..

J'ai cependant un problème qui je crois doit être règler en programmation. Je dois faire en sorte d'avoir un bouton qui lorsque je cliquerai donnera accès pour modifier mes champs contenu dans mon formulaire. J'ai tenter votre approche avec AllowEdit mais cela ne fonctionne pas j'ai toujours un message d'erreur.
J'ai avant tout utiliser la méthode décrite ici, en verrouillant le formulaire dans les propriété. Donc, je ne peux plus modifier les cases sauf si je retourne dire oui.

Je vous joints une image de mon formulaire que je veux absolument protéger contre les erreurs de modifications sans le vouloir.

Pourriez-vous m'aider, s'il-vous-plaît, cela serait très apprécier.

Merci à l'avance,

Si vous avez besoin d'autres informations n'hésitez surtout pas.

[RobiPMS]

Bonjour.

Voici comment je procède pour arriver au résultat que tu souhaites :

1. Dans les propriétés du formulaire, tu ne verrouilles pas.

2. Tu mets ce code sur ouverture du formulaire:

Code :

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

1
2
3
Private Sub Form_Load()
Me.AllowEdits = False
End Sub

3. Tu crées un bouton (dans cet exemple, je l'ai nommé "Libérer") pour permettre les modifications, avec ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Libérer_Click()
If Forms![MonForm].Form.AllowEdits = False Then
Me.AllowEdits = True
Libérer.ForeColor = RGB(0, 200, 0)  'le texte du bouton est en vert
Else
Me.AllowEdits = False
Libérer.ForeColor = RGB(255, 0, 0)  'Le texte du bouton est en rouge
End If
DoCmd.RunCommand acCmdRefresh
End Sub

Je pense que tu devrais sans difficulté y arriver ainsi.

[beautygurlqc]

Bonjour RobiPMS, le code ne fonctionne pas cela me fait une erreur.
Pour cette phrase : If Forms![MonForm].Form.AllowEdits = False Then

J'ai changer [MonForm] pour mon nom de formulaire qui s'apelle PIC-2011REFAITE

et rien à y faire cela me fait toujours une erreur.

Pouvez-vous m'aider ?
ou quelqu'un d'autres si possible pour aujourd'hui.
Merci à l'avance,

Beautygurlqc

[Marc_27]

Bonjour RobiPMS, le code ne fonctionne pas cela me fait une erreur.

Quel est la message d'erreur?

[beautygurlqc]

Le message d'erreur lorsque je clique sur mon bouton est le suivant :

Erreur d'exécution '2450'

Impossible de trouver le formulaire 'Form_PIC2011' auquel il fait référence dans une expression de macro ou un code Visual Basic.

[beautygurlqc]

Marc_27, désolé j'ai finalement réussie
J'avais oublier de changer toute les noms de formulaires
Voilà ça fonctionne maintenant.

Le seul problème que je viens de voir, c'est que j'avais mis plusieurs formulaires mais en onglets et pour ceux-ci le bouton modifier ne fonctionne pas. Avez-vous une idée pourquoi cela ? Est-ce que je devrai faire un bouton pour chacun des formulaires ?

Merci,

Beautygurlqc