Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access proprieté visible

proprieté visible

6 réponses
Avatar
dfcena
Bonjour

Je souhaite mettre un champs visible suivant si le sous-
formulaire poss=E8de des enregistrements car sinon le=20
champs me retourne #erreur
Voici la proc=E8dure que j'ai appliqu=E9 mais rien ne se passe

Private Sub Form_AfterUpdate()
Me!nbre.Visible =3D Me.formulaires!detainN=B0(recordcont > 0)
End Sub
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Raymond [mvp]
Bonsoir.
essaie ceci:

Me.sous_formulaire.Visible (Me.sous_formulaire.Form.RecordsetClone.RecordCount > 0)

remplace sous_formulaire par le nom de ton controle sous-formulaire

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


"dfcena" a écrit dans le message de
news:154dc01c3fa3c$f93b9840$
Bonjour

Je souhaite mettre un champs visible suivant si le sous-
formulaire possède des enregistrements car sinon le
champs me retourne #erreur
Voici la procèdure que j'ai appliqué mais rien ne se passe

Private Sub Form_AfterUpdate()
Me!nbre.Visible = Me.formulaires!detainN°(recordcont > 0)
End Sub
Avatar
dfcena
Bonsoir
C'est un champs du formulaire principal que je veut
rendre visible si mon sous-formulaire contient des
enregistrements car si il est vide le champs du
formulaire principal me renvoit #erreur (normal vu mon
expression) donc sur ton idée j'ai essayé l'expression
suivante
Private Sub Form_AfterUpdate()
Me!nbre.Visible =
(Me.detailN°.Form.RecordsetClone.recordcont > 0)
End Sub
"nbre" étant le nom du champs du formulaire principale
et "detailN°" le nom du sous formulaire mais sans
résultat mais je ne suis pas sur que j'applique la bonne
formule sur le bon événement (afterupdate)

-----Message d'origine-----
Bonsoir.
essaie ceci:

Me.sous_formulaire.Visible =
(Me.sous_formulaire.Form.RecordsetClone.RecordCount > 0)

remplace sous_formulaire par le nom de ton controle sous-
formulaire


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


"dfcena" a écrit
dans le message de

news:154dc01c3fa3c$f93b9840$
Bonjour

Je souhaite mettre un champs visible suivant si le sous-
formulaire possède des enregistrements car sinon le
champs me retourne #erreur
Voici la procèdure que j'ai appliqué mais rien ne se
passe


Private Sub Form_AfterUpdate()
Me!nbre.Visible = Me.formulaires!detainN°(recordcont >
0)

End Sub



.



Avatar
Raymond [mvp]
Bonjour.
il faut aussi le placer sur form_Current dans le sous-formulaire.

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


"dfcena" a écrit dans le message de
news:1562d01c3fa51$9666cb80$
Bonsoir
C'est un champs du formulaire principal que je veut
rendre visible si mon sous-formulaire contient des
enregistrements car si il est vide le champs du
formulaire principal me renvoit #erreur (normal vu mon
expression) donc sur ton idée j'ai essayé l'expression
suivante
Private Sub Form_AfterUpdate()
Me!nbre.Visible (Me.detailN°.Form.RecordsetClone.recordcont > 0)
End Sub
"nbre" étant le nom du champs du formulaire principale
et "detailN°" le nom du sous formulaire mais sans
résultat mais je ne suis pas sur que j'applique la bonne
formule sur le bon événement (afterupdate)

-----Message d'origine-----
Bonsoir.
essaie ceci:

Me.sous_formulaire.Visible >(Me.sous_formulaire.Form.RecordsetClone.RecordCount > 0)

remplace sous_formulaire par le nom de ton controle sous-
formulaire


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


"dfcena" a écrit
dans le message de

news:154dc01c3fa3c$f93b9840$
Bonjour

Je souhaite mettre un champs visible suivant si le sous-
formulaire possède des enregistrements car sinon le
champs me retourne #erreur
Voici la procèdure que j'ai appliqué mais rien ne se
passe


Private Sub Form_AfterUpdate()
Me!nbre.Visible = Me.formulaires!detainN°(recordcont >
0)

End Sub



.



Avatar
dfcena
re
J'ai essayé la formule suivante de le sous-formulaire sur
Form_current mais mon controle dans le formulaire
principale reste visible je l'ai essayé dans le
formulaire rien y fait il reste visible

If (détailN°.Form.RecordsetClone.recordcont) > 0 Then
Me!définir_N°.Form.nbre.Visible = True
Else
Me!définir_N°.Form.nbre.Visible = False

End If

Je sèche et perds espoir de faire disparaitre enfin ce
controle
PS: définir_N° est mon formulaire principal

-----Message d'origine-----
Bonjour.
il faut aussi le placer sur form_Current dans le sous-
formulaire.


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


"dfcena" a écrit
dans le message de

news:1562d01c3fa51$9666cb80$
Bonsoir
C'est un champs du formulaire principal que je veut
rendre visible si mon sous-formulaire contient des
enregistrements car si il est vide le champs du
formulaire principal me renvoit #erreur (normal vu mon
expression) donc sur ton idée j'ai essayé l'expression
suivante
Private Sub Form_AfterUpdate()
Me!nbre.Visible =
(Me.detailN°.Form.RecordsetClone.recordcont > 0)
End Sub
"nbre" étant le nom du champs du formulaire principale
et "detailN°" le nom du sous formulaire mais sans
résultat mais je ne suis pas sur que j'applique la bonne
formule sur le bon événement (afterupdate)

-----Message d'origine-----
Bonsoir.
essaie ceci:

Me.sous_formulaire.Visible =
(Me.sous_formulaire.Form.RecordsetClone.RecordCount > 0)

remplace sous_formulaire par le nom de ton controle
sous-


formulaire

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


"dfcena" a écrit
dans le message de

news:154dc01c3fa3c$f93b9840$
Bonjour

Je souhaite mettre un champs visible suivant si le sous-
formulaire possède des enregistrements car sinon le
champs me retourne #erreur
Voici la procèdure que j'ai appliqué mais rien ne se
passe


Private Sub Form_AfterUpdate()
Me!nbre.Visible = Me.formulaires!detainN°(recordcont >
0)

End Sub



.




.




Avatar
Raymond [mvp]
passe moi ta base en zip (obligatoire) que je vois; donne moi bien le
formulaire et les explications. Enlève le XYZ. dans l'adresse

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


"dfcena" a écrit dans le message de
news:00c401c3fa58$9f731010$
re
J'ai essayé la formule suivante de le sous-formulaire sur
Form_current mais mon controle dans le formulaire
principale reste visible je l'ai essayé dans le
formulaire rien y fait il reste visible

If (détailN°.Form.RecordsetClone.recordcont) > 0 Then
Me!définir_N°.Form.nbre.Visible = True
Else
Me!définir_N°.Form.nbre.Visible = False

End If

Je sèche et perds espoir de faire disparaitre enfin ce
controle
PS: définir_N° est mon formulaire principal
Avatar
Raymond [mvp]
ci-joint base en retour avec
1 bouton Commande1 sur le formulaire principal
le code suivant dans le sous-formulaire:
Private Sub Form_Current()
If Forms!formulaire1!détailN°.Form.RecordsetClone.RecordCount = 0 Then
Forms!formulaire1!Commande1.SetFocus
Forms!formulaire1!détailN°.Visible = False
Forms!formulaire1!nbre.Visible = False
Else
Forms!formulaire1!détailN°.Visible = True
Forms!formulaire1!nbre.Visible = True
End If
End Sub

le code suivant dans le formulaire:
Private Sub Commande1_Click()
Forms!formulaire1!détailN°.Visible = True
End Sub

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