Discussion :

[Elstak]

bonjour,

voilà je cherche à voir quelle case a été cochée dans un groupe d'option

mon groupe s'appele options1

voilà mon code que j'ai repris d'un sujet d'un autre site (apparement il fonctionnait)

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Enregistrer_Click()
 
    If Me.Options1.Value = 1 Then
        msgobox "1"
    Else
        MsgBox "pas 1"
    End If
 
End Sub

j'ai une erreur quand je clique sur mon bouton (c'est pas une erreur de code, c'est plutot une erreur access je pense)

erreur :
l'expression sur clic entrée comme parametre de la propriete de type evenement est à l'origine d'une erreur. un probleme est survenu durant la communication entre microsoft access et le serveur ole ou le controle activeX.

- le resultat de l'expression n'est pas le nom d'une macro, le nom d'une fonction definie par l'utilisateur ou [event procedure]
-une errreur a peut etre ete commise lors de l'evaluation d'une fonction, d'un evenement ou d'une macro



voilà moi je comprend pas pourquoi il me mets ca

merci d'avance

[Renardo]

A tu essaye sans le .Value

[Elstak]

jviens d'essayer

mais meme erreur

c'est bien sur le groupe d'option de toute facon qu'il faut faire le test?


EDIT :

j'ai testé mon code sur une autre bd où j'ai recréé un formulaire et là tout fonctione...

je met le meme sur ma bonne bd et hop erreur... je génére les formulaire et les boutons et cases automatiquement mais j'utilise les bons noms.... jcomprends pas

EDIT 2 :

sur mon formulaire où j'ai tous mes groupe d'options etc... j'ai supprimé options1 je l'ai recréé manuellement et jai remis manuellement des case d'option dedans (ainsi que le bouton commande) et toujours l'erreur quand je clique sur mon bouton. J'ai testé ce code

Code :

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

1
2
3
4
5
6
Private Sub huhu2_Click()
    MsgBox "huhu"
    If Me.Options1.Value = 2 Then
        MsgBox "2"
    End If
End Sub

j'ai meme pas le premier msgbox

[Elstak]

Me revoilà,

j'ai fais quelques recherches google sur mon erreur mais ca n'a rien donné (enfin ca ne correspond pas à mon cas... ce n'est pas à cause de norton ou autre comme j'ai pu trouver sur des forum )

je joins des captures qui pourraient etre utiles.

voici le code de mon formulaire :

Code :

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

1
2
3
4
5
6
Option Compare Database
 
Private Sub Enregistrer_Click()
    Call EnregistrerReponses("Remplir_Reponses", 21)
 
End Sub

enfin ca c'est mon code final mais pour tester j'ai mis celui là

Code :

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

1
2
3
4
 MsgBox "testt"
    If Me.Options1.Value = 2 Then
        MsgBox "2"
    End If

de toute facon je pense qu'il n'entre meme pas dans le code...

erreur quand je clique sur le bouton:


nom de l'option que je veux tester


nom et options du bouton...
Pièce jointe 14543


en esperant que ca puisse aider et qu'on puisse m'aider car là... sans ca je bloque je peux plus avancer sur mon projet

merci d'avance