Discussion :

[romulus34]

Bonjour à tous,
aprés de longues recherches sur le forum je n'ai pas trouvé la réponse à ma question. Je suis désolé par avance si ce pb a déja été posé mais je ne connais pas trop le vba.

Dans ma base access, j'ai crée un formulaire à partir d'une requête.
Dans ce formulaire je dispose d'une case à cocher qui récupère la valeur True/false du champ CreationTel_Edit (sourcecontrole à partir de la requête).

Pour cela j'ai fait une procédure sur clic :

Code :

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

1
2
3
4
5
6
7
Private Sub Check1_Click()
    If Check.Value = 1 Then
        CreationTel_Edit.Value = True
    Else
        CreationTel_Edit.Value = False
    End If
End Sub

Lorsque je coche cette case je souhaite que la valeur du champ CreationTel_Edit passe à True dans la table d'origine.
La case se coche bien mais il m'ouvre la fenetre du débogage, si je la ferme sans rien faire mon champ est quand même modifié dans la table.
Est que dans mon code quelque chose ne vas pas?

Je vous remercie par avance.

P.S : j'utilise access 2000

[Dolphy35]

Bonjour,

Sans ton code et sans la ligne où se trouve l'erreur, il nous sera difficile de t'aider.

Ton code ne sert pas à grand chose car tu reproduit la fonction de la case à cocher

Dolphy

[romulus34]

En fait le formulaire je l'ai généré à partir de l'assistant de création.
Le seul code que j'ai utilisé c'est celui pour la Procédure événementielle sur clic de la case à cocher.

Quand j'utilise la case à cocher une erreur d'execution 424 : objet requis apparait.

[Invité]

Salut

Sur quel ligne apparait le message en déboguage ?

Starec

[mout1234]

Il y a une petite erreur dans ton code:

Code :

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

1
2
3
4
5
6
7
Private Sub Check1_Click()  
    If Check1.Value = 1 Then  
                CreationTel_Edit.Value = True  
    Else  
                CreationTel_Edit.Value = False  
     End If 
End Sub

Au dela de cela, à quoi correspond Check1. S'agit-il d'une autre case à cocher?
Si c'est le cas, il vaudrait mieux tester

Code :

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

If Check1.Value = -1

ou

Code :

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

If Check1.Value  = true

ou encore

Code :

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

If Check1.Value

[romulus34]

Sur celle ci : CreationTel_Edit.Value = False

[romulus34]

check1 correspond à la seule case à cocher du formulaire.
P.S : j'ai oublié le k de check lorsque j'ai recopié mon code sur le forum dsl.

[mout1234]

Pourquoi faire simple quand on peut faire compliqué?

Pourquoi ne pas directement mettre une case à cocher liée au champ CreationTel_Edit ? dans ce cas, aucun code à mettre...

[romulus34]

Trés bonne remarque ça marche en passant comme ça.
Mais je serais curieux de voir comment ça marche avec une procédure.
je ne connais pas grand chose au vba et ça m'aiderai de savoir où ça bloque dans le code.

[mout1234]

Mais je serais curieux de voir comment ça marche avec une procédure.
je ne connais pas grand chose au vba et ça m'aiderai de savoir où ça bloque dans le code.

Franchement je ne vois pas l'intéret... car il faudrait:
- créer un controle indépendant de type Case à cocher (mettons check1)
- initialiser ton controle indépendant à chaque fois que nécessaire. typiquement quelque chose dans le form_current du genre:

Code :

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

Me!check1 = Me!CreationTel_Edit

- mettre à jour le champ de la source à chaque modif de la case

Code :

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

1
2
3
Private Sub Check1_Click()  
    Me!CreationTel_Edit = Me!Check1
End Sub

[romulus34]

Merci pour toutes vos réponses.
En effet je vais opter pour la solution la plus simple.