Salut à tous ,
S'il vous plait, comment peut changer l'affichage par défaut ( Formulaire unique, Formulaires continus, Feuille de données ....) d'un formulaire ou d'un sous formulaire en vba .
D'avance merci
Salut à tous ,
S'il vous plait, comment peut changer l'affichage par défaut ( Formulaire unique, Formulaires continus, Feuille de données ....) d'un formulaire ou d'un sous formulaire en vba .
D'avance merci
Bonjour,
c'est la propriété DefaultView. Cependant, tu pourras la modifier uniquement en mode création.
Quand on est derrière l'écran on n'a aucun clavier sous les mains ...
ah non ? donc devant l'écran c'est la connectique ?
Merci pour votre réponse , mais s'il vous plait comment procède t-on ?
Merci
Voici:
Les valeurs possibles
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 DoCmd.OpenForm ("TonFormulaire"), acDesign, , , , acHidden Forms("TonFormulaire").DefaultView = 1 DoCmd.Close acForm, "TonFormulaire"
Mode simple 0
Mode continu 1
Feuille de données 2
Tableau croisé dynamique 3
Graphique croisé dynamique 4
Quand on est derrière l'écran on n'a aucun clavier sous les mains ...
ah non ? donc devant l'écran c'est la connectique ?
Merci c'est vraiment génial , mais le problème c'est que quand exécute le code ci-dessus le formulaire se ferme.
En faite, j'ai un formulaire principal et un sous formulaire et j'aimerais sur click d'un bouton placé sur le formulaire principal changer le mode d'affichage du sous formulaire.
Est-il possible ?
Bonjour,
Si c'est à partir d'un bouton, la modification est plus facile :
le controle du sous-formulaire (nom dans le formulaire principal) est : ctlTonSousForm
le nom formulaire du sous-formulaire est : TonSousForm
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15 Private Sub Commande0_Click() ' Exemple de passage de mode continu en mode Feuille de données Me.ctlTonSousForm.SourceObject = "" ' ouverture en mode création et caché du sous-formulaire DoCmd.OpenForm ("TonSousForm"), acDesign, , , , acHidden If Forms("TonSousForm").DefaultView = 2 Then Forms("TonSousForm").DefaultView = 1 Else Forms("TonSousForm").DefaultView = 2 End If ' sauvegarde, puis réaffectation du contrôle du sous-formulaire DoCmd.Close acForm, "TonSousForm", acSaveYes Me.ctlTonSousForm.SourceObject = "TonSousForm" End
Quand on est derrière l'écran on n'a aucun clavier sous les mains ...
ah non ? donc devant l'écran c'est la connectique ?
Ok ça marche .
Merci beaucoup pour votre disponibilité .
Bye
Bonjour , et le mode modal quel est son numéro ?
Cordialement.
Salut
C'est une valeur booléenne Oui/Non
Sinon WindowMode de cette méthode.
"Le savoir est la seule matière qui s'accroit quand on la partage" (Socrate)
UR - ESIROI - GPME/CG/DCG8
QTH :21°19'18"S - 055°25'32"E
Inutile de me contacter par MP
Merci de cliquer sur si la réponse vous a permis de résoudre votre problème et n'oubliez pas de clôturer le fil en cliquant sur
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager