Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Groupe d´options dans un formulaire

Groupe d´options dans un formulaire

8 réponses
Avatar
Mohamed
Bonjour,

J´ai un groupe d´options dans un formulaire.
Dans ce groupe d´options, j´ai trois boutons radio.
Voici Mon code :

Private Sub Valider_Click()

If Me.BoutonRadio1.OptionValue = True Then
MsgBox "Oui"

ElseIf Me.BoutonRadio2.OptionValue = True Then
MsgBox "Non"

ElseIf Me.BoutonRadio3.OptionValue = True Then
MsgBox "Maybe"

End If

End Sub

Le probleme, c´est que quand je sélectionne l´un des 3 boutons,
il n´y a rien qui s´affiche.
Est-ce normal?
Signaler un problème avec ce contenu

8 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Phil
Bonjour,
Les OptionValues sont du type Long ...
Remplace-les par 1, 2 et 3 comme :

Private Sub Valider_Click()

If Me.BoutonRadio1.OptionValue = 1 Then
MsgBox "Oui"

ElseIf Me.BoutonRadio2.OptionValue = 2 Then
MsgBox "Non"

ElseIf Me.BoutonRadio3.OptionValue = 3 Then
MsgBox "Maybe"

End If

End Sub


Salut,

Bonjour,

J´ai un groupe d´options dans un formulaire.
Dans ce groupe d´options, j´ai trois boutons radio.
Voici Mon code :

Private Sub Valider_Click()

If Me.BoutonRadio1.OptionValue = True Then
MsgBox "Oui"

ElseIf Me.BoutonRadio2.OptionValue = True Then
MsgBox "Non"

ElseIf Me.BoutonRadio3.OptionValue = True Then
MsgBox "Maybe"

End If

End Sub

Le probleme, c´est que quand je sélectionne l´un des 3 boutons,
il n´y a rien qui s´affiche.
Est-ce normal?




Avatar
Mohamed
J´ai essayé ce que tu m´a dit mais quelque soit
le bouton sur lequel je clique, le message indique "Oui".

Je sais pas d´où cela peut venir.

Merci d´avance
Mohamed




Bonjour,
Les OptionValues sont du type Long ...
Remplace-les par 1, 2 et 3 comme :

Private Sub Valider_Click()

If Me.BoutonRadio1.OptionValue = 1 Then
MsgBox "Oui"

ElseIf Me.BoutonRadio2.OptionValue = 2 Then
MsgBox "Non"

ElseIf Me.BoutonRadio3.OptionValue = 3 Then
MsgBox "Maybe"

End If

End Sub


Salut,

Bonjour,

J´ai un groupe d´options dans un formulaire.
Dans ce groupe d´options, j´ai trois boutons radio.
Voici Mon code :

Private Sub Valider_Click()

If Me.BoutonRadio1.OptionValue = True Then
MsgBox "Oui"

ElseIf Me.BoutonRadio2.OptionValue = True Then
MsgBox "Non"

ElseIf Me.BoutonRadio3.OptionValue = True Then
MsgBox "Maybe"

End If

End Sub

Le probleme, c´est que quand je sélectionne l´un des 3 boutons,
il n´y a rien qui s´affiche.
Est-ce normal?






Avatar
Raymond [mvp]
Bonjour.

Dans un groupe d'options on teste la valeur du groupe ( cadre....) et non la
valeur de chaque élément (option...).

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Mohamed" a écrit dans le message de
news:
J´ai essayé ce que tu m´a dit mais quelque soit
le bouton sur lequel je clique, le message indique "Oui".

Je sais pas d´où cela peut venir.

Merci d´avance
Mohamed


Avatar
Phil
Re,
Exact.
tu dois faire comme suit :
Private Sub Valider_Click()

If Me.Valider = 1 Then MsgBox "Oui"
If Me.Valider = 2 Then MsgBox "Non"
If Me.Valider = 3 Then MsgBox "Maybe"
End Sub

Salut,


J´ai essayé ce que tu m´a dit mais quelque soit
le bouton sur lequel je clique, le message indique "Oui".

Je sais pas d´où cela peut venir.

Merci d´avance
Mohamed




Bonjour,
Les OptionValues sont du type Long ...
Remplace-les par 1, 2 et 3 comme :

Private Sub Valider_Click()

If Me.BoutonRadio1.OptionValue = 1 Then
MsgBox "Oui"

ElseIf Me.BoutonRadio2.OptionValue = 2 Then
MsgBox "Non"

ElseIf Me.BoutonRadio3.OptionValue = 3 Then
MsgBox "Maybe"

End If

End Sub


Salut,

Bonjour,

J´ai un groupe d´options dans un formulaire.
Dans ce groupe d´options, j´ai trois boutons radio.
Voici Mon code :

Private Sub Valider_Click()

If Me.BoutonRadio1.OptionValue = True Then
MsgBox "Oui"

ElseIf Me.BoutonRadio2.OptionValue = True Then
MsgBox "Non"

ElseIf Me.BoutonRadio3.OptionValue = True Then
MsgBox "Maybe"

End If

End Sub

Le probleme, c´est que quand je sélectionne l´un des 3 boutons,
il n´y a rien qui s´affiche.
Est-ce normal?








Avatar
Mohamed
Alors si je comprends bien, je dois mettre :

If Me.[Nom du cadre].Value = 1 Then MsgBox "Oui"

Mais le problème, cést que la propriété Value n´existe pas.
Que dois-je mettre en échange?







Re,
Exact.
tu dois faire comme suit :
Private Sub Valider_Click()

If Me.Valider = 1 Then MsgBox "Oui"
If Me.Valider = 2 Then MsgBox "Non"
If Me.Valider = 3 Then MsgBox "Maybe"
End Sub

Salut,


J´ai essayé ce que tu m´a dit mais quelque soit
le bouton sur lequel je clique, le message indique "Oui".

Je sais pas d´où cela peut venir.

Merci d´avance
Mohamed




Bonjour,
Les OptionValues sont du type Long ...
Remplace-les par 1, 2 et 3 comme :

Private Sub Valider_Click()

If Me.BoutonRadio1.OptionValue = 1 Then
MsgBox "Oui"

ElseIf Me.BoutonRadio2.OptionValue = 2 Then
MsgBox "Non"

ElseIf Me.BoutonRadio3.OptionValue = 3 Then
MsgBox "Maybe"

End If

End Sub


Salut,

Bonjour,

J´ai un groupe d´options dans un formulaire.
Dans ce groupe d´options, j´ai trois boutons radio.
Voici Mon code :

Private Sub Valider_Click()

If Me.BoutonRadio1.OptionValue = True Then
MsgBox "Oui"

ElseIf Me.BoutonRadio2.OptionValue = True Then
MsgBox "Non"

ElseIf Me.BoutonRadio3.OptionValue = True Then
MsgBox "Maybe"

End If

End Sub

Le probleme, c´est que quand je sélectionne l´un des 3 boutons,
il n´y a rien qui s´affiche.
Est-ce normal?










Avatar
Phil
Re,
If Me.[Nom du cadre] = 1 Then MsgBox "Oui"
Salut,


Alors si je comprends bien, je dois mettre :

If Me.[Nom du cadre].Value = 1 Then MsgBox "Oui"

Mais le problème, cést que la propriété Value n´existe pas.
Que dois-je mettre en échange?







Re,
Exact.
tu dois faire comme suit :
Private Sub Valider_Click()

If Me.Valider = 1 Then MsgBox "Oui"
If Me.Valider = 2 Then MsgBox "Non"
If Me.Valider = 3 Then MsgBox "Maybe"
End Sub

Salut,


J´ai essayé ce que tu m´a dit mais quelque soit
le bouton sur lequel je clique, le message indique "Oui".

Je sais pas d´où cela peut venir.

Merci d´avance
Mohamed




Bonjour,
Les OptionValues sont du type Long ...
Remplace-les par 1, 2 et 3 comme :

Private Sub Valider_Click()

If Me.BoutonRadio1.OptionValue = 1 Then
MsgBox "Oui"

ElseIf Me.BoutonRadio2.OptionValue = 2 Then
MsgBox "Non"

ElseIf Me.BoutonRadio3.OptionValue = 3 Then
MsgBox "Maybe"

End If

End Sub


Salut,

Bonjour,

J´ai un groupe d´options dans un formulaire.
Dans ce groupe d´options, j´ai trois boutons radio.
Voici Mon code :

Private Sub Valider_Click()

If Me.BoutonRadio1.OptionValue = True Then
MsgBox "Oui"

ElseIf Me.BoutonRadio2.OptionValue = True Then
MsgBox "Non"

ElseIf Me.BoutonRadio3.OptionValue = True Then
MsgBox "Maybe"

End If

End Sub

Le probleme, c´est que quand je sélectionne l´un des 3 boutons,
il n´y a rien qui s´affiche.
Est-ce normal?












Avatar
Mohamed
ReSalut,

J´ai essayé mais cela marche pas. (If Me.[Nom du cadre] = 1 Then MsgBox
"Oui" )
Il me met "Erreur 438"

T´as essayé de ton côté?




Re,
If Me.[Nom du cadre] = 1 Then MsgBox "Oui"
Salut,


Alors si je comprends bien, je dois mettre :

If Me.[Nom du cadre].Value = 1 Then MsgBox "Oui"

Mais le problème, cést que la propriété Value n´existe pas.
Que dois-je mettre en échange?







Re,
Exact.
tu dois faire comme suit :
Private Sub Valider_Click()

If Me.Valider = 1 Then MsgBox "Oui"
If Me.Valider = 2 Then MsgBox "Non"
If Me.Valider = 3 Then MsgBox "Maybe"
End Sub

Salut,


J´ai essayé ce que tu m´a dit mais quelque soit
le bouton sur lequel je clique, le message indique "Oui".

Je sais pas d´où cela peut venir.

Merci d´avance
Mohamed




Bonjour,
Les OptionValues sont du type Long ...
Remplace-les par 1, 2 et 3 comme :

Private Sub Valider_Click()

If Me.BoutonRadio1.OptionValue = 1 Then
MsgBox "Oui"

ElseIf Me.BoutonRadio2.OptionValue = 2 Then
MsgBox "Non"

ElseIf Me.BoutonRadio3.OptionValue = 3 Then
MsgBox "Maybe"

End If

End Sub


Salut,

Bonjour,

J´ai un groupe d´options dans un formulaire.
Dans ce groupe d´options, j´ai trois boutons radio.
Voici Mon code :

Private Sub Valider_Click()

If Me.BoutonRadio1.OptionValue = True Then
MsgBox "Oui"

ElseIf Me.BoutonRadio2.OptionValue = True Then
MsgBox "Non"

ElseIf Me.BoutonRadio3.OptionValue = True Then
MsgBox "Maybe"

End If

End Sub

Le probleme, c´est que quand je sélectionne l´un des 3 boutons,
il n´y a rien qui s´affiche.
Est-ce normal?














Avatar
Mohamed
Oui c´est bon j´ai retrouvé mon erreur
en fait, j´avais pas sélectionné le cadre mais juste l´étiquette
c´est pour cela que cela marchait pas...

Merci en tous les cas


ReSalut,

J´ai essayé mais cela marche pas. (If Me.[Nom du cadre] = 1 Then MsgBox
"Oui" )
Il me met "Erreur 438"

T´as essayé de ton côté?




Re,
If Me.[Nom du cadre] = 1 Then MsgBox "Oui"
Salut,


Alors si je comprends bien, je dois mettre :

If Me.[Nom du cadre].Value = 1 Then MsgBox "Oui"

Mais le problème, cést que la propriété Value n´existe pas.
Que dois-je mettre en échange?







Re,
Exact.
tu dois faire comme suit :
Private Sub Valider_Click()

If Me.Valider = 1 Then MsgBox "Oui"
If Me.Valider = 2 Then MsgBox "Non"
If Me.Valider = 3 Then MsgBox "Maybe"
End Sub

Salut,


J´ai essayé ce que tu m´a dit mais quelque soit
le bouton sur lequel je clique, le message indique "Oui".

Je sais pas d´où cela peut venir.

Merci d´avance
Mohamed




Bonjour,
Les OptionValues sont du type Long ...
Remplace-les par 1, 2 et 3 comme :

Private Sub Valider_Click()

If Me.BoutonRadio1.OptionValue = 1 Then
MsgBox "Oui"

ElseIf Me.BoutonRadio2.OptionValue = 2 Then
MsgBox "Non"

ElseIf Me.BoutonRadio3.OptionValue = 3 Then
MsgBox "Maybe"

End If

End Sub


Salut,

Bonjour,

J´ai un groupe d´options dans un formulaire.
Dans ce groupe d´options, j´ai trois boutons radio.
Voici Mon code :

Private Sub Valider_Click()

If Me.BoutonRadio1.OptionValue = True Then
MsgBox "Oui"

ElseIf Me.BoutonRadio2.OptionValue = True Then
MsgBox "Non"

ElseIf Me.BoutonRadio3.OptionValue = True Then
MsgBox "Maybe"

End If

End Sub

Le probleme, c´est que quand je sélectionne l´un des 3 boutons,
il n´y a rien qui s´affiche.
Est-ce normal?