Se connecter avec
S'enregistrer | Connectez-vous

[VBA] Problème formulaire

Dernière réponse : dans Programmation
Lassé par la pub ? Créez un compte

En mode création :

Sélectionner le cadre du groupe d'options
Créer le code évenement "après maj"
et tu met le résultat dans une variable ;

Dim LeBoutonCoche As Integer

Private Sub Cadre_AfterUpdate()
LeBoutonCoche = Cadre
End Sub

La valeur retournée selon le bouton cliqué est définie dans la propriéte "Valeur Contrôle" de chaque case d'option. Par défaut 1 ou 2 dans ton cas.

Après tu prends l'évenement "sur clic" de ton bouton :

Private Sub BoutonDeCommande_Click()
Select Case LeBoutonCoche
Case Is = 1
DoCmd.OpenForm ("LesBouteilles")
Case Is = 2
DoCmd.OpenForm ("LesVendeurs")
End Select
End Sub

:-)
Lassé par la pub ? Créez un compte
Tom's guide dans le monde