Discussion :

[Gérald03]

Bonjour à tous,

Voici mon problème. J'ai un Formulaire Devis sur lequel est posé un contrôle onglet avec 3 sous formulaires. Le 1er sous formulaire s'intitule commandes, le 2ème sous formulaire s'intitule bon de livraison et le 3ème sous formulaire s'intitule factures.
je souhaiterais que tant qu'un numéro de commande n'est pas saisie dans le champ N°commande du sous formulaire commande le bouton de création d'un bon de livraison du sous formulaire bon de livraison ne soit pas disponible. J'ai réussi à le faire sur une autre appli mais sur le même sous formulaire. Pouvez vous m'aider SVP ?

Merci pour vos réponses

GERALD

[marot_r]

Bonjour.

Tu peux faire cela de 2 manières :

1. Relative :
   

   Code :

   Sélectionner tout - Visualiser dans une fenêtre à part

   1
   2
   3
   4
   5
   if isnull(me.Parent.NomControlTonSousFormCommand.Form![IdCommand]) then
       me.TonBouton.enabled=false
     else
       me.TonBouton.enabled=true
   end if

2. Absolue
   

   Code :

   Sélectionner tout - Visualiser dans une fenêtre à part

   1
   2
   3
   4
   5
   if isnull([Forms]![NomTonForm]![NomControlTonSousFormCommand].Form![IdCommand]) then
       me.TonBouton.enabled=false
     else
       me.TonBouton.enabled=true
   end if

J'ai mis NomControlTonSousFormCommand car le contrôle qui contient le sous-formulaire peut ne pas porter le nom du sous-formulaire. Habituellement c'est le cas mais ce n'est pas une obligation.

A+

[Gérald03]

Bonjour,

Merci pour votre réponse rapide.
Je viens de tester le code mais cela ne fonctionne pas.
Voici mon code.
Message : "la référence d'une expression à la propriété Form/report n'est pas valide !"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
If IsNull([Forms]![Flm-devis]![Sflm-commandes].Form![N°Commande]) Then
    Me.Btn_Créer_le_bon_de_livraison.Enabled = False
  Else
    Me.Btn_Créer_le_bon_de_livraison.Enabled = True
End If

GERALD

[Gérald03]

Petites précisions

Mon formulaire principale se nomme "Flm-devis", le nom du contrôle onglet sur lequel est posé le sous formulaire commandes se nomme "controleonglet", le sous formulaire commandes se nomme "Sflm-commandes" et le champ du n° de commande se nomme "N°Commande".
J'ai insérer le code dans l’évènement sur activation du sous formulaire bon de livraison.

MERCI
GERALD

[tee_grandbois]

bonjour,

- tout le code créé dans un formulaire appartient à ce formulaire donc inutile de mettre le nom à chaque fois, on peut donc remplacer [Forms]![Flm-devis]! par Me!

- je pense qu'il faut aussi préciser la page de l'onglet contenant le sous-formulaire, soit par son index de 0 à n, soit par son nom entre guillemets :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
If IsNull([me!controleonglet.Pages(n).controls("Sflm-commandes").Form![N°Commande]) Then
    Me.Btn_Créer_le_bon_de_livraison.Enabled = False
  Else
    Me.Btn_Créer_le_bon_de_livraison.Enabled = True
End If

[Gérald03]

Bonjour,

Désolé mais le code ne fonctionne pas, il ne "trouve pas le champ auquel il est fait référence dans l'expression"

Voici le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If IsNull([Me.controleonglet.Pages(0).controls("Onglet mes commandes")].Form![N°Commande]) Then

GERALD

[tee_grandbois]

bonjour,

Désolé mais le code ne fonctionne pas, il ne "trouve pas le champ auquel il est fait référence dans l'expression"

désolé, mais le code fonctionne, il suffit de mettre le nom des contrôles à leur bonne place :

Mon formulaire principale se nomme "Flm-devis", le nom du contrôle onglet sur lequel est posé le sous formulaire commandes se nomme "controleonglet", le sous formulaire commandes se nomme "Sflm-commandes" et le champ du n° de commande se nomme "N°Commande".

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If IsNull([Me.controleonglet.Pages(0).controls("Onglet mes commandes")].Form![N°Commande]) Then

je ne crois pas que ton sous-formulaire "Sflm-commandes" ait changé de nom: .
Je suppose que "Onglet mes commandes" est le nom de la page, donc, soit tu le mets à la place de 0 (si c'est bien son index), soit tu mets le nom, mais ne le mets pas n'importe où:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If IsNull([Me.controleonglet.Pages("Onglet mes commandes").controls("Sflm-commandes").Form![N°Commande]) Then
' ou :
If IsNull([Me.controleonglet.Pages(0).controls("Sflm-commandes").Form![N°Commande]) Then

la syntaxe reste toujours:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me!NomControleOnglet.Pages(Index ou "NomdelaPage").Controls("NomduSousFormulaire").Form![NomduChamp]

[marot_r]

Bonjour tee_Grandbois,

Selon mon expérience les contrôles onglets sont invisibles dans la hiérarchie Form donc on n'a pas besoin de spécifier sur quelle page se trouve le contrôle sous-formulaire.

A+

[Gérald03]

Bonsoir,

merci pour votre aide mais cela ne fonctionne toujours pas !
I

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

f IsNull([Me.controleonglet.("Onglet mes commandes").Controls("Sflm-commandes")].Form![N°Commande]) Then

Toujours le meme msg d'erreur. il ne "trouve pas le champ auquel il est fait référence dans l'expression"

GERALD

[Gérald03]

Voici la suite,

j'ai modifié le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If IsNull(Me.Controleonglets.Pages("Onglet mes commandes").Controls("Sflm-commandes").Form![N°Commande]) Then

Msg d'erreur différent " membre de méthode ou de données introuvables"
visiblement il ne reconnais pas "Me.Controleonglets"

GERALD

[tee_grandbois]

comme on tourne en rond, peut-on avoir une impression d'écran en mode création du contrôle onglet et de la page contenant le sous-formulaire montrant la feuille de propriétés comme dans les exemples suivants ? :

[Gérald03]

Voici une copie d'écran




GERALD

[Gérald03]

Ce n'est pas très lisible mon image,

Mais le nom du contrôle d'onglet est bien "Controleonglets", l'onglet "Onglet mes commandes" index de page 0, sous formulaire "Sflm-commandes" nom du champ "N°Commande".

Le débogueur s'arrête systématiquement sur (Me.Controleonglets).

Je pense qu'il y a une erreur sur cette partie du code.

gerald

[tee_grandbois]

désolé c'est illisible car beaucoup trop grand, j'aurai préféré un zoom sur les feuilles de propriétés

[Gérald03]

VOILA

gerald

[tee_grandbois]

j'aurai préféré un zoom sur les feuilles de propriétés complètes pas tronquées
mon exemple d'impression me semblait pourtant clair ...

[tee_grandbois]

- ton onglet s'appelle Controleonglets
- la page "Onglet mes commandes" a l'index 0
- comment se nomme le sous-formulaire ? (et je parle de la propriété Nom, pas Objet source)
en attendant la confirmation du nom du sous-formulaire, cette syntaxe reste la bonne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If IsNull(Me.Controleonglets.Pages(0).Controls("Sflm-commandes").Form![N°Commande]) Then

[Gérald03]

Il se nomme

"Sflm-commandes"

JE VIENS DE TESTER DE NOUVEAU CELA NE MARCHE PAS. Toujours le message "membre de méthode ou de données introuvable"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If IsNull(Me.Controleonglets.Pages(0).Controls("Sflm-commandes").Form![N°Commande]) Then

GERALD

[Gérald03]

Je pense que la syntaxe n'est pas la bonne. Ce n'est pas grave, je trouverais une autre solution

Merci quand même pour votre aide.

GERALD

[tee_grandbois]

peux-tu poster ta base avec uniquement le formulaire et les sous-formulaires ?