OVH Cloud OVH Cloud

Les boutons d'options en vba

8 réponses
Avatar
morgan
Bonjour j 2 boutons d'options et je c'est pas comment les utilisés.

J'essaye de faire comme sous VB mais ca marche pas.


On peut le faire en DAO ?

8 réponses

Avatar
Raymond [mvp]
Bonjour.

précise quel type de boutons, bascule.. groupe d'options ....
que veux-tu faire exactement avec ces deux boutons ?

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"morgan" a écrit dans le message de news:
d5q028$ink$
Bonjour j 2 boutons d'options et je c'est pas comment les utilisés.

J'essaye de faire comme sous VB mais ca marche pas.


On peut le faire en DAO ?




Avatar
morgan
groupes d'options

je voulais faire un code comme ca comme sous vb mais ca marche pas.

If Option36.Value = False Then
Commande41.Visible = False
Else
Commande41.Visible = True
End If




"Raymond [mvp]" a écrit dans le message de
news:
Bonjour.

précise quel type de boutons, bascule.. groupe d'options ....
que veux-tu faire exactement avec ces deux boutons ?

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"morgan" a écrit dans le message de news:
d5q028$ink$
Bonjour j 2 boutons d'options et je c'est pas comment les utilisés.

J'essaye de faire comme sous VB mais ca marche pas.


On peut le faire en DAO ?








Avatar
morgan
précision j'ai mis l'évènement sur souris appuyé du bouton d'option, j'ai
pas sur click



"morgan" a écrit dans le message de news:
d5q0td$jcd$
groupes d'options

je voulais faire un code comme ca comme sous vb mais ca marche pas.

If Option36.Value = False Then
Commande41.Visible = False
Else
Commande41.Visible = True
End If




"Raymond [mvp]" a écrit dans le message
de

news:
Bonjour.

précise quel type de boutons, bascule.. groupe d'options ....
que veux-tu faire exactement avec ces deux boutons ?

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"morgan" a écrit dans le message de news:
d5q028$ink$
Bonjour j 2 boutons d'options et je c'est pas comment les utilisés.

J'essaye de faire comme sous VB mais ca marche pas.


On peut le faire en DAO ?












Avatar
Raymond [mvp]
les boutons d'option d'un groupe ont une valeur numérique positive de type
Long. si tu testes true toutes les valeurs des boutons seront à true car la
valeur n'est pas 0 et toute valeur <> 0 renvoie true. Il faut que tu testes
la valeur numérique des bouton que tu trouveras dans l'onglet données.

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"morgan" a écrit dans le message de news:
d5q0td$jcd$
groupes d'options

je voulais faire un code comme ca comme sous vb mais ca marche pas.

If Option36.Value = False Then
Commande41.Visible = False
Else
Commande41.Visible = True
End If


Avatar
morgan
il sagit de bouton cocher excuser moi





"morgan" a écrit dans le message de news:
d5q14j$jfi$
précision j'ai mis l'évènement sur souris appuyé du bouton d'option, j'ai
pas sur click



"morgan" a écrit dans le message de news:
d5q0td$jcd$
groupes d'options

je voulais faire un code comme ca comme sous vb mais ca marche pas.

If Option36.Value = False Then
Commande41.Visible = False
Else
Commande41.Visible = True
End If




"Raymond [mvp]" a écrit dans le
message


de
news:
Bonjour.

précise quel type de boutons, bascule.. groupe d'options ....
que veux-tu faire exactement avec ces deux boutons ?

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"morgan" a écrit dans le message de news:
d5q028$ink$
Bonjour j 2 boutons d'options et je c'est pas comment les utilisés.

J'essaye de faire comme sous VB mais ca marche pas.


On peut le faire en DAO ?
















Avatar
Raymond [mvp]
il faut tester les événements pour le groupe et non pour un bouton. tu
testes la valeur du groupe et l'événement sur le groupe.

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"morgan" a écrit dans le message de news:
d5q14j$jfi$
précision j'ai mis l'évènement sur souris appuyé du bouton d'option, j'ai
pas sur click



"morgan" a écrit dans le message de news:
d5q0td$jcd$
groupes d'options

je voulais faire un code comme ca comme sous vb mais ca marche pas.

If Option36.Value = False Then
Commande41.Visible = False
Else
Commande41.Visible = True
End If




"Raymond [mvp]" a écrit dans le message
de

news:
Bonjour.

précise quel type de boutons, bascule.. groupe d'options ....
que veux-tu faire exactement avec ces deux boutons ?

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"morgan" a écrit dans le message de news:
d5q028$ink$
Bonjour j 2 boutons d'options et je c'est pas comment les utilisés.

J'essaye de faire comme sous VB mais ca marche pas.


On peut le faire en DAO ?
















Avatar
morgan
J'ai expression sans paramètres voici mon code :

Private Sub Cadre33_Click()

If Option36.Value = True Then
Commande41.Visible = True
Else
Commande41.Visible = False
End If


If Option38.Value = True Then
Commande41.Visible = False
Else
Commande41.Visible = False
End If









"morgan" a écrit dans le message de news:
d5q028$ink$
Bonjour j 2 boutons d'options et je c'est pas comment les utilisés.

J'essaye de faire comme sous VB mais ca marche pas.


On peut le faire en DAO ?




Avatar
Raymond [mvp]
le plus simple en vba est:
Private Sub Cadre33_Click()
Select Case Cadre33
Case 1 ' bouton 1
Commande41.Visible = True
Case 2 ' bouton 2
Commande41.Visible = False
Case 3 'bouton 3
Commande41.Visible = True
Case 4 'bouton 4
Commande41.Visible = False
Case Else
Commande41.Visible = False
End Select
End Sub


--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"morgan" a écrit dans le message de news:
d5q212$k6v$
J'ai expression sans paramètres voici mon code :

Private Sub Cadre33_Click()

If Option36.Value = True Then
Commande41.Visible = True
Else
Commande41.Visible = False
End If


If Option38.Value = True Then
Commande41.Visible = False
Else
Commande41.Visible = False
End If









"morgan" a écrit dans le message de news:
d5q028$ink$
Bonjour j 2 boutons d'options et je c'est pas comment les utilisés.

J'essaye de faire comme sous VB mais ca marche pas.


On peut le faire en DAO ?