OVH Cloud OVH Cloud

Champ masque dans un etat

8 réponses
Avatar
sem1
Bonjour a tous,

Je souhaite masquer un champ (who) dans un etat si la valeur de son code
(refwho) est a 1.
En m'inspirant des fils de Google Groupes sur le sujet, j ai ecrit ceci :

Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)

'Masquage du champ Who si celui du N°1 de la table
If Me.Section(acDetail).RefWho = 1 Then
Me.Section(acDetail).Who.Visible = False

Else
Me.Section(acDetail).Who.Visible = True
End If

End Sub

Et cela ne fonctionne pas. Pouvez vous me dire ou j ai fait une erreur?
D avance merci

--
SEM1
Pour me répondre directement, enlever [PAS DE SPAM] de l'adresse et
remplacer FAI par wanadoo

8 réponses

Avatar
Raymond [mvp]
Bonjour.

essaie ceci:
If Me.RefWho = 1 Then
Me.Who.Visible = False
Else
Me.Who.Visible = True
End If

si RefWho est une valeur booléenne on peut faire:
Me.Who.Visible = Not Me.RefWho

--
@+
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


"sem1" <cimeo[PAS DE SPAM]@FAI.fr> a écrit dans le message de news:
417ca5d9$0$1020$
Bonjour a tous,

Je souhaite masquer un champ (who) dans un etat si la valeur de son code
(refwho) est a 1.
En m'inspirant des fils de Google Groupes sur le sujet, j ai ecrit ceci :

Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)

'Masquage du champ Who si celui du N°1 de la table
If Me.Section(acDetail).RefWho = 1 Then
Me.Section(acDetail).Who.Visible = False

Else
Me.Section(acDetail).Who.Visible = True
End If

End Sub

Et cela ne fonctionne pas. Pouvez vous me dire ou j ai fait une erreur?
D avance merci

--
SEM1
Pour me répondre directement, enlever [PAS DE SPAM] de l'adresse et
remplacer FAI par wanadoo



Avatar
sem1
Merci Raymond, cela marche enfin!

Je cherche aussi comment afficher la feuille en zoom ajuste (Affichage Zoom
Largeur de page)
je l ai affichee en pleine page d abord par la routine suivante

Private Sub Report_Open(Cancel As Integer)
DoCmd.Maximize
'DoCmd.DoMenuItem acMenuBar, acViewMenu, 5, 6, acMenuVer70
End Sub

Mais je ne me sors pas de la syntaxe de DoCmd
Y a t il un site simple pour les debutants qui expliquerait cela?

J ai encore deux questions simples :
1* a l ouverture de la base de donnees, j ai un formulaire Menu et je
voudrais minimiser ou cacher la fenetre Base de donnees
je suppose que je dois placer un code dans Private Sub Form_Current()
Lequel? RunCmd quelque chose?

2* Si je veux fermer le formulaire Menu quand j ai clique sur un bouton de
ce formulaire qui m'a ouvert un autre formulaire, que dois je faire?

Merci d avance de vos reponses qui vont bien m aider car la description des
evenements Access et la syntaxe RunCmd et surtout DoCmd n est pas immediate

Raymond [mvp] wrote:
Bonjour.

essaie ceci:
If Me.RefWho = 1 Then
Me.Who.Visible = False
Else
Me.Who.Visible = True
End If

si RefWho est une valeur booléenne on peut faire:
Me.Who.Visible = Not Me.RefWho


"sem1" <cimeo[PAS DE SPAM]@FAI.fr> a écrit dans le message de news:
417ca5d9$0$1020$
Bonjour a tous,

Je souhaite masquer un champ (who) dans un etat si la valeur de son
code (refwho) est a 1.
En m'inspirant des fils de Google Groupes sur le sujet, j ai ecrit
ceci :

Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)

'Masquage du champ Who si celui du N°1 de la table
If Me.Section(acDetail).RefWho = 1 Then
Me.Section(acDetail).Who.Visible = False

Else
Me.Section(acDetail).Who.Visible = True
End If

End Sub

Et cela ne fonctionne pas. Pouvez vous me dire ou j ai fait une
erreur? D avance merci

--
SEM1
Pour me répondre directement, enlever [PAS DE SPAM] de l'adresse et
remplacer FAI par wanadoo




Avatar
Raymond [mvp]
lance les docmd à partir du formulaire qui lance l'état.
DoCmd.OpenReport "etat1", acViewPreview
DoCmd.Maximize
DoCmd.RunCommand acCmdZoom200
pour tout connaître sur les docmd voir : http://home.clara.net/tkwickenden/

pour cacher la base de données,
menu outils , démarrage,
décocher la case afficher la fenêtre base de données

pour fermer le formulaire que lequel on se trouve:
DoCmd.Close acForm, Me.Name
qi'il ait le focus ou non.
--
@+
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


"sem1" <cimeo[PAS DE SPAM]@FAI.fr> a écrit dans le message de news:
417cd353$0$15152$
Merci Raymond, cela marche enfin!

Je cherche aussi comment afficher la feuille en zoom ajuste (Affichage
Zoom
Largeur de page)
je l ai affichee en pleine page d abord par la routine suivante

Private Sub Report_Open(Cancel As Integer)
DoCmd.Maximize
'DoCmd.DoMenuItem acMenuBar, acViewMenu, 5, 6, acMenuVer70
End Sub

Mais je ne me sors pas de la syntaxe de DoCmd
Y a t il un site simple pour les debutants qui expliquerait cela?

J ai encore deux questions simples :
1* a l ouverture de la base de donnees, j ai un formulaire Menu et je
voudrais minimiser ou cacher la fenetre Base de donnees
je suppose que je dois placer un code dans Private Sub Form_Current()
Lequel? RunCmd quelque chose?

2* Si je veux fermer le formulaire Menu quand j ai clique sur un bouton de
ce formulaire qui m'a ouvert un autre formulaire, que dois je faire?

Merci d avance de vos reponses qui vont bien m aider car la description
des
evenements Access et la syntaxe RunCmd et surtout DoCmd n est pas
immediate


Avatar
sem1
Merci pour tout...Tout est OK

Apparemment, il n y a pas moyen d ajuster la fenetre de l etat par une
acCmdZoom___?
Je ne l ai pas trouvee sur le site twickenden. En attendant j ai fixe a 75%.


Raymond [mvp] wrote:
lance les docmd à partir du formulaire qui lance l'état.
DoCmd.OpenReport "etat1", acViewPreview
DoCmd.Maximize
DoCmd.RunCommand acCmdZoom200
pour tout connaître sur les docmd voir :
http://home.clara.net/tkwickenden/

pour cacher la base de données,
menu outils , démarrage,
décocher la case afficher la fenêtre base de données

pour fermer le formulaire que lequel on se trouve:
DoCmd.Close acForm, Me.Name
qi'il ait le focus ou non.

"sem1" <cimeo[PAS DE SPAM]@FAI.fr> a écrit dans le message de news:
417cd353$0$15152$
Merci Raymond, cela marche enfin!

Je cherche aussi comment afficher la feuille en zoom ajuste
(Affichage Zoom
Largeur de page)
je l ai affichee en pleine page d abord par la routine suivante

Private Sub Report_Open(Cancel As Integer)
DoCmd.Maximize
'DoCmd.DoMenuItem acMenuBar, acViewMenu, 5, 6, acMenuVer70
End Sub

Mais je ne me sors pas de la syntaxe de DoCmd
Y a t il un site simple pour les debutants qui expliquerait cela?

J ai encore deux questions simples :
1* a l ouverture de la base de donnees, j ai un formulaire Menu et je
voudrais minimiser ou cacher la fenetre Base de donnees
je suppose que je dois placer un code dans Private Sub Form_Current()
Lequel? RunCmd quelque chose?

2* Si je veux fermer le formulaire Menu quand j ai clique sur un
bouton de ce formulaire qui m'a ouvert un autre formulaire, que dois
je faire?

Merci d avance de vos reponses qui vont bien m aider car la
description des
evenements Access et la syntaxe RunCmd et surtout DoCmd n est pas
immediate




Avatar
Raymond [mvp]
tu peux toujours essayer ceci:

DoCmd.OpenReport "etat1", acViewPreview
DoCmd.Maximize
DoCmd.RunCommand acCmdFitToWindow
ou
DoCmd.RunCommand acCmdZoomNNN


--
@+
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


"sem1" <cimeo[PAS DE SPAM]@FAI.fr> a écrit dans le message de news:
417d40de$0$3816$
Merci pour tout...Tout est OK

Apparemment, il n y a pas moyen d ajuster la fenetre de l etat par une
acCmdZoom___?
Je ne l ai pas trouvee sur le site twickenden. En attendant j ai fixe a
75%.



Avatar
sem1
J ai trouve c est acCmdFitToWindow


Raymond [mvp] wrote:
lance les docmd à partir du formulaire qui lance l'état.
DoCmd.OpenReport "etat1", acViewPreview
DoCmd.Maximize
DoCmd.RunCommand acCmdZoom200
pour tout connaître sur les docmd voir :
http://home.clara.net/tkwickenden/

pour cacher la base de données,
menu outils , démarrage,
décocher la case afficher la fenêtre base de données

pour fermer le formulaire que lequel on se trouve:
DoCmd.Close acForm, Me.Name
qi'il ait le focus ou non.

"sem1" <cimeo[PAS DE SPAM]@FAI.fr> a écrit dans le message de news:
417cd353$0$15152$
Merci Raymond, cela marche enfin!

Je cherche aussi comment afficher la feuille en zoom ajuste
(Affichage Zoom
Largeur de page)
je l ai affichee en pleine page d abord par la routine suivante

Private Sub Report_Open(Cancel As Integer)
DoCmd.Maximize
'DoCmd.DoMenuItem acMenuBar, acViewMenu, 5, 6, acMenuVer70
End Sub

Mais je ne me sors pas de la syntaxe de DoCmd
Y a t il un site simple pour les debutants qui expliquerait cela?

J ai encore deux questions simples :
1* a l ouverture de la base de donnees, j ai un formulaire Menu et je
voudrais minimiser ou cacher la fenetre Base de donnees
je suppose que je dois placer un code dans Private Sub Form_Current()
Lequel? RunCmd quelque chose?

2* Si je veux fermer le formulaire Menu quand j ai clique sur un
bouton de ce formulaire qui m'a ouvert un autre formulaire, que dois
je faire?

Merci d avance de vos reponses qui vont bien m aider car la
description des
evenements Access et la syntaxe RunCmd et surtout DoCmd n est pas
immediate




Avatar
sem1
Merci Raymond, j ai effectivement trouve sur le site twickenden
acCmdFitToWindow

Tout va bien mainetnant

Bonne soiree


Raymond [mvp] wrote:
tu peux toujours essayer ceci:

DoCmd.OpenReport "etat1", acViewPreview
DoCmd.Maximize
DoCmd.RunCommand acCmdFitToWindow
ou
DoCmd.RunCommand acCmdZoomNNN



"sem1" <cimeo[PAS DE SPAM]@FAI.fr> a écrit dans le message de news:
417d40de$0$3816$
Merci pour tout...Tout est OK

Apparemment, il n y a pas moyen d ajuster la fenetre de l etat par
une acCmdZoom___?
Je ne l ai pas trouvee sur le site twickenden. En attendant j ai
fixe a 75%.




Avatar
Raymond [mvp]
C'est bien d'avoir cherché, mais je te l'avais donné il y a 2 heures
environ.

--
@+
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


"sem1" <cimeo[PAS DE SPAM]@FAI.fr> a écrit dans le message de news:
417d5c37$0$3638$

J ai trouve c est acCmdFitToWindow