Formulaire et .AllowEdits

**Guizbizet** · 26/12/2006, 10h48

Bonjour,

J'ai un petit soucis de code.

Explications : J'ai un formulaire F_FACTURATION et un sous-Formulaire SsF_FACTURATION_Détails
Si le champ oui/non "Imprimée"du formulaire F_FACTURATION est coché je ne veux pas autoriser les modification du sous formulaire SsF_FACTURATION_Détails

voilà le code que j'ai mis sur activation du formulaire F_FACTURATION en utilisant la faq (http://access.developpez.com/faq/?pa...dirModifssForm)

Code :

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

1
2
3
4
5
6
7
Private Sub Form_Current()
    If Me.Imprimée = True Then
        Me.SsF_FACTURATION_Détails.AllowEdits = False
    Else
        Me.SsF_FACTURATION_Détails.AllowEdits = True
 
End Sub

Sur ".AllowEdits =" il me mets :

Erreur de compilation :
Membre de méthode ou de données introuvables

Comment corriger la fonction pour arriver au résultat voulu

Merci
mais cela ne fonctionne pas

**loufab** · 26/12/2006, 11h04

Bonjour,

Je te conseille de suivre à la lettre la syntaxe données par la FAQ !

Après correction tu verras que ça fonctionne.

Cordialement,

**Guizbizet** · 26/12/2006, 11h13

Envoyé par loufab

Je te conseille de suivre à la lettre la syntaxe données par la FAQ !
Après correction tu verras que ça fonctionne.

Quel con je fais !!!! ok plus de problème de débogage

Par contre cela ne fonctionne pas

Code :

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

1
2
3
4
5
6
7
8
Private Sub Form_Current()
    If Me.Coche_Imprimee = True Then
        Me.SsF_FACTURATION_Détails.Form.AllowEdits = False
    Else
        Me.SsF_FACTURATION_Détails.Form.AllowEdits = True
    End If
 
End Sub

Quand Coche_Imprimee est coché je peux toujours faire des modification dans mon sous-formulaire SsF_FACTURATION_Détails !!!

pourquoi ma fonction ne bloque pas ces modifications ?

Merci de votre aide

jnore · 26/12/2006, 11h35

essaie comme ceci

Private Sub Form_Current()
If Me!Coche_Imprimee = True Then
Me!SsF_FACTURATION_Détails.Form.AllowEdits = False
Else
Me!SsF_FACTURATION_Détails.Form.AllowEdits = True
End If

End Sub

**Heureux-oli** · 26/12/2006, 11h42

Code :

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

1
2
3
4
5
Private Sub Coche_imprimee_Afterupdate()
  If Me.Coche_Imprimee = True Then  Me.SsF_FACTURATION_Détails.Form.AllowEdits = False  
Else  Me.SsF_FACTURATION_Détails.Form.AllowEdits = True  
End If  
End Sub

Le test doit être refait lors de la mise à jour du checkbox.

**Guizbizet** · 26/12/2006, 12h00

je comprends pas bien.

Il faut faire le code de jnore ET de Heureux-oli ?
Parce que pour l'instant je les ai testé séparément et ça ne fonctionne pas

Si vous souhaitez je peux vous mettre la base à disposition ...

jnore · 26/12/2006, 12h02

il faut faire les 2
tu insère le code

If Me!Coche_Imprimee = True Then
Me!SsF_FACTURATION_Détails.Form.AllowEdits = False
Else
Me!SsF_FACTURATION_Détails.Form.AllowEdits = True
End If

dans l'événement "after update" de ton controle.

Fais attention aux points d'exclamation

**Heureux-oli** · 26/12/2006, 12h06

Le code s'exécute à certains moments.

Si tu le mets sur le OnCurrent du formulaire, il va s'exécuter lors de l'activation du formulaire, (ouverture, changement d'enregistrement) ce qui fait que si tu modifie l'enregistrement en cours, il ne se passera rien.
Il faut donc trouver un autre "déclencheur pour exécuter le code.
Comme dans ton cas c'est un test lorsqu'un checkbox est cochée ou nom, il est judicieux de refaire le test après la mise à jour de ce contrôle, d'où ma proposition de le faire Afterupdate du contrôle.

Pourquoi faire le test logique, si tu décoches, tu retrouve la possibilité de le mettre à jour.

**Guizbizet** · 26/12/2006, 12h14

Merci de vous penchez sur mon problème

Bon j'ai fais les modifications que vous m'avez donné mais cela ne focntionne toujours pas !!!

J'ai bien mis les points d'exclamation
J'ai bien mis les 2 fonctions
J'ai vérifié les nom de champ et de sous formulaire

Mon formulaire F_FACTURATION est standard et le sous-Formulaire est en en mode feuille de données.
je ne sais pas si ça peut changer quelque chose

Voulez-vous que je vous mette la base à disposition pour y controler ce que j'ai fait ?

Merci

Envoyé par Heureux-oli

Pourquoi faire le test logique, si tu décoches, tu retrouve la possibilité de le mettre à jour.

C'est bien e que je souhaite

**Heureux-oli** · 26/12/2006, 12h18

Mets la db, on y verra plus clair.

**Guizbizet** · 26/12/2006, 12h29

merci heureux oli

Bon ma bdd est sécurisée mais j'ai créé un compte tous droits
login : forum
pass : forum

url : modif

Au passage si tu sais comment "désécuriser" ma base pour que ce soit plus simple pour travailler

jnore · 26/12/2006, 13h06

tu ne peux pas la desecuriser.

Par contre, tu peux créer une nouvelle base de données et importer tous les objets de ta base sécurisée (formulaire, tables, modules, macros, requete...)

1) ouvre ta base securisée
2) crée une nouvelle base
3) tu importes. (fichier/données externes/importer/selection de ta base)

jnore · 26/12/2006, 13h17

ben ça a l'air de fonctionner!!!

Quand je coche, le sous formulaire devient en lecture seule et quand je décoche il devient modifiable.
Peut-être n'ai je pas bien compris ton prob!

**Guizbizet** · 26/12/2006, 13h49

Envoyé par jnore

ben ça a l'air de fonctionner!!!

Quand je coche, le sous formulaire devient en lecture seule et quand je décoche il devient modifiable.
Peut-être n'ai je pas bien compris ton prob!

Eh bien écoute quand imprimée est coché et que je souhaite rajouter un élément de facturation dans le sous formulaire j'y arrive sans problème !!!
Comment vois tu si le ss form est en lecture seule ou pas ?

jnore · 26/12/2006, 14h36

je vois.
En fait tu verrouilles les données déjà enregistrées mais pas les nouvelles.

Essaie ca:

If Me!Coche_Imprimee = True Then
Me!SsF_FACTURATION_Détails.Locked = True
Else
Me!SsF_FACTURATION_Détails.Locked = False
endif

**Guizbizet** · 26/12/2006, 14h54

YESSSSSSSSSSSSSSSSSSS

C'est axactement ça !!!

Merci beaucoup pour ton aide précieuse ainsi que celle de Heureux-oli et de loufab

jnore · 26/12/2006, 15h01

Ok

Félicitation pour l'aspect graphique de ta DBB

Moi je suis nul question esthétisme.

N'oublie pas de cocher "résolu"

**Guizbizet** · 26/12/2006, 15h07

Envoyé par jnore

Ok

Félicitation pour l'aspect graphique de ta DBB

Moi je suis nul question esthétisme.

N'oublie pas de cocher "résolu"

puis-je en même temps empecher les modif sur les autres champs (date facture, date paiement etc ...) du formulaire via la même fonction ou il faut que je créé une fonction par champ

jnore · 26/12/2006, 15h12

Envoyé par Guizbizet

puis-je en même temps empecher les modif sur les autres champs (date facture, date paiement etc ...) du formulaire via la même fonction ou il faut que je créé une fonction par champ

Pour ma part dans ce genre de circonstance je crée une ligne de code pour chacun des controles.

Peut-être y a t-il moyen de verrouiller tous les controles en même tps via une formule magique unique,.....mais je ne la connais pas!

Désolé

**loufab** · 26/12/2006, 15h51

pour le code pseudo magique le voici.

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
Function VerrouControl(frm As Form, Testctrl As Control)
Dim i, booLock
' verrouille ou dévérouille avant saisie.
On Error Resume Next
 
booLock = True
If Testctrl.Locked = True Then booLock = False
 
For i = 0 To frm.Controls.Count - 1
    frm.Controls.Item(i).Locked = booLock
    'Debug.Print frm.Controls.Item(i).Name & "=" & frm.Controls.Item(i).Locked
Next
' N'oubliez pas de dévérrouiller les controles independant
' Zl de recherche...
' Me.Modifiable20.Locked = False
VerrouControl = booLock
End Function

Si ça peut vous faire avancer dans votre réflexion.

Cordialement,

Formulaire et .AllowEdits

IHM

Discussions similaires

Partager

Partager