sous formulaire invisible si aucun enregistrement dans un autre sous formulaire

Bonjour,

j'ai un Formulaire principale M1_Vente qui contien 2 autre SOUS_formulaire

1-M1_VenteD "Contien les détails de la vente de "M1_VENTE"
2-M1_PaiementDClient " contien le détails de paiement

ce que je veux que formulaire "M1_PaiementDClient" soit invisible si je n'ai acun enrgistrement sur formulaire M1_VenteD

autrement forumulaire sois visible

Je ne sais pas comment dire en VBA

Est ce possible ?

Merci d'avance

Bonjour et bienvenue chez nous,

Par exemple comme ceci (dans M1_PaiementDClient) :

Code:

---

1 2 3 4 5 6 7 8 9 10

Option Compare Database Option Explicit   Private Sub Form_Current() If Me.Parent!ctnrM1_VenteD.Form.RecordsetClone.RecordCount = 0 Then Me.Visible = False Else Me.Visible = True End If End Sub

---

Regarde la P.J. pour voir le nom des objets utilisés dans mon exemple.

Bonjour,

tout d'abord je tiens a te remercie.

j'ai bien copier le code dans (M1_PaiementDClient) mais j'ai une erreur:

Erreur d'exuction '2465'
access ne trouve pas le champs 'ctnrM1_VenteD' auquel il est fait référence


j'ai bien consulter ton expemple, et la seule difference et la relation entre mes table ne fais pas l'integralité référentielle, j'ai une laison entre table "M1_Vente" et "M1_VenteD"

avec le champs [CVente] et une autre relation entre la table "M1_Vente" et la table "M1_PaiementDClient" avec le champs [CVente] et pas une relation entre table "M1_VenteD" et "M1_PaiementDClient"


et je ne peux pas faire l'integralité reférentielle j'ai seulement une relation simple,parce ce que je travaille avec des table liéé et pas avec des table locale, peu etre c'est ca le probleme non ?

et je me excuse parce que je suis nul en VBA.


cordialement Abdellah

Regarde comment j'ai appelé le container qui contient le formulaire « M1_VenteD ».

http://claudeleloup.developpez.com/&99/M043.jpg

Tu as sans choisi un autre nom.

:D:D waaaw Merci bien Claude ça marche comme une potion magique.:roll::roll:


c'est très gentil de votre part, et merci infiniment d'avoir consacré ton temps a m'aider t'es un super Modérateur, je ne sais pas quoi dire

cordialement Abdellah

Bonjour,
je remonte mon sujet, pour le premier probleme c'est bon.

Maintenant, je veux rendre M1_VenteD invisible si il n y a aucun enregistrement dans M1_Vente,

j'ai bien essayé d'appliquer la meme methode,qui m'a donné Monsier claude dans le premier exemple mais je n'ai pas réuissie a le faire, alors si il y a quelqu'un qui peu m'aider
et merci d'avance.

Bonjour,

Dans ton formulaire M1_VenteD, ajoute de code :

Code:

---

1 2 3 4 5 6 7 8 9 10

Option Compare Database Option Explicit   Private Sub Form_Current() If Me.RecordsetClone.recordcount = 0 Then Me.Visible = False Else Me.Visible = True End If End Sub

---

Merci bien Claude,

le code ca marche bien le formulaire est invisible, mais il ne veux pas s'afficher quand je saisie des donne sur mon formulaire principale, même si j’actualise les donnes,

je dois sortir, et rentré dans la formulaire principale, pour qui'l sois visible.

alors ma question est ce possible que le sous formulaire sois visible dés que je saisie le informations dans formulaire principale M1_Vente.

Encore Merci.

Montre une capture d'écran de ton formulaire, ce sera plus clair.

Veux-tu qu'on ajoute un bouton dans le formulaire principal et que si tu le cliques les deux sous-formulaires d'affichent même s'ils sont vides ?

Merci, c'est trés généreux de votre part..

ci-joint les capture de mon formulaire.

Le plus simple est d'ajouter un bouton dans le formulaire principal.
Quand tu cliques ce bouton, les deux sous-formulaires s'afficheront.
Voici le code à associer au clic du bouton pour rendre les deux containers visibles :

Code:

---

1 2 3 4 5 6 7

Option Compare Database Option Explicit   Private Sub BtAfficher_Click() Me.ctnrM1_PaiementDClient.Visible = True Me.ctnrM1_VenteD.Visible = True End Sub

---

Bonjour, et encore Merci bien pour ton aide.

oui c'est une méthode simple et efficace, mais ça ne résolue pas mon problème principale,

le problème c'est que parfois lorsque J'ouvre nouvelle commande "M1_Vente" si je ne fais pas attention, je saisie directement sur le détail de la commande "M1_VenteD"

et oublier de saisir les donnés de l’entête de la commande "M1_Vente", Alors les données du "M1_VenteD" ne prennent pas le numéro de la commande "M1_Vente"

c'est pourquoi je veux masquer le détail du "M1_VenteD" tant qu'il n y a pas des donné dans la commande "M1_Vente"

pour le problème du paiement c'est bon pour la méthode que tu ma donné ca marche A merveille.

Alors peut être une solution du bouton qui affiche le détail de la commande "M1_VenteD" mais le bouton ne sois pas visible que si il y a une validation d'une nouvelle commande "M1_Vente"

c'est a dire la saisie des infos client sur l'ente de "M1_Vente"

j’espère que j'ai bien expliquer mon problème,

je ne sais pas pourquoi ca n'a pas marché comme le problème de paiement.

en tous les cas je te remercie pour ton aide.

cordialement
Abdellah

Bonjour,

Dans l'image de ton billet N° 10, indique-moi quels champs doivent être remplis avant d'ouvrir les sous-formulaires et donne-moi leur propriété « Nom ».

Bonjour,

alors ce que je veux que le le sous-formulaire "M1_VenteD" qui contient Détails de la commande ne sois pas visible que s'il y'a un numéro

automatique comme l'exemple "186" la propriété Nom du champs est M1_CVente


cordialement

Remplace le code du bouton par celui-ci :

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub BtAfficher_Click() If Me.M1_CVente > 0 Then Me.ctnrM1_PaiementDClient.Visible = True Me.ctnrM1_VenteD.Visible = True Else MsgBox "Vous devez d'abord compléter le N°" DoCmd.GoToControl "M1_CVente" End If End Sub

---

Merci bien, Claude, :hola::hola:

c'est plus ce que parfait 100% ok et mieux maintenant avec le bouton, je sais pas comment te remercie d'avoir consacré ton temps a m'aider, c'est généreux de ta part,


encore Merci...:hola::hola:

cordialement