Passage formulaire et etat avec condition
Fermé
dranok
Messages postés
7
Date d'inscription
mardi 12 avril 2011
Statut
Membre
Dernière intervention
20 mai 2011
-
13 avril 2011 à 12:32
castours Messages postés 2955 Date d'inscription lundi 18 septembre 2006 Statut Membre Dernière intervention 31 août 2019 - 15 avril 2011 à 22:01
castours Messages postés 2955 Date d'inscription lundi 18 septembre 2006 Statut Membre Dernière intervention 31 août 2019 - 15 avril 2011 à 22:01
A voir également:
- Passage formulaire et etat avec condition
- Excel cellule couleur si condition texte - Guide
- Formulaire de réclamation facebook - Guide
- Passage qwerty azerty - Guide
- État - Guide
- L'état actuel de votre sim ne requiert aucune activation ✓ - Forum Mobile
1 réponse
castours
Messages postés
2955
Date d'inscription
lundi 18 septembre 2006
Statut
Membre
Dernière intervention
31 août 2019
217
15 avril 2011 à 22:01
15 avril 2011 à 22:01
Bonjour
Je te joins un exemple de code de bouton qui imprime les choix faits au paravant dans une liste deroulante a choix multiple.
C'est une procedure que j'utilise dans une base de données personnelle
Nom Du Bouton : Btn_OpenSelect
Nom de la liste:lstNomsFamilles
Nom de l'état: E_ActivitéChoisies
acViewNormal pour imprimer
acViewPreview pour visualiser
Private Sub Btn_OpenSelect_Click()
If Not PrepareList(Me.Name, Me.lstNomsFamilles.Name) Then
MsgBox "SELECTIONNEZ UN ADHERENT DANS LA LISTE"
Else
DoCmd.OpenReport "E_ActivitésChoisiesSanSelectExel", acViewNormal
'DoCmd.OpenReport "E_ActivitésChoisiesSanSelectExel", acViewPreview
DoCmd.OpenQuery "R_MajActChoi"
End If
End Sub
Je te joins un exemple de code de bouton qui imprime les choix faits au paravant dans une liste deroulante a choix multiple.
C'est une procedure que j'utilise dans une base de données personnelle
Nom Du Bouton : Btn_OpenSelect
Nom de la liste:lstNomsFamilles
Nom de l'état: E_ActivitéChoisies
acViewNormal pour imprimer
acViewPreview pour visualiser
Private Sub Btn_OpenSelect_Click()
If Not PrepareList(Me.Name, Me.lstNomsFamilles.Name) Then
MsgBox "SELECTIONNEZ UN ADHERENT DANS LA LISTE"
Else
DoCmd.OpenReport "E_ActivitésChoisiesSanSelectExel", acViewNormal
'DoCmd.OpenReport "E_ActivitésChoisiesSanSelectExel", acViewPreview
DoCmd.OpenQuery "R_MajActChoi"
End If
End Sub