Discussion :

[Gérald03]

Voici


Gestion.Métal.Version.2.zip
GERALD

[Gérald03]

Gestion.Métal.Version.2.zip

gerald

[tee_grandbois]

Pourquoi le code est dans le sous-formulaire Sflm-bons de livraison et pas dans le formulaire Flm-devis ?



c'est certainement l'explication ...

[Gérald03]

Bonjour,

je vien de mettre le code sur le formulaire DEVIS, idem cela ne fonctionne pas, il "ne trouve pas le champ auquel il est fait référence dans l'expression"

Code :

Code :

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

1
2
3
4
If IsNull([Me.controleonglets.Pages("Onglet mes commandes")].Controls("Sflm-commandes").Form![N°Commande]) Then
    Me.[Sflm-bons de livraison]![Btn_Créer_le_bon_de_livraison].Enabled = False
  Else
    Me.[Sflm-bons de livraison]![Btn_Créer_le_bon_de_livraison].Enabled = True

Je crois que que vais jeter l'éponge ! et trouver autre chose.

gerald

[tee_grandbois]

Je crois que que vais jeter l'éponge ! et trouver autre chose.

C'est quand même étrange mais rien n'est perdu ...
peux-tu envoyer ta base avec les tables (avec quelques enregistrements) nécessaires pour la faire fonctionner ?

[hyperion13]

Salut,
Selon les méthodes de références des objets d'un form, sform, etc. indiquées ici, il n'y a pas lieu de faire référence au contrôle d'onglets.
A tester

Code :

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

If IsNull(Me.Sflm-commandes.Form.[N°Commande]) Then

[Gérald03]

Bjr,

désolé mais cela ne fonctionne pas non plus

Il ne trouve pas le champ!

gerald

[Gérald03]

Bonjour,

voici l'application avec les tables principales et quelques exemples.
Merci.

voici mon adresse Email gerald.federhpil@sfr.fr

envoyez moi votre mail et je vous transmets une version complète de l'application.

gerald

essai.zip

[hyperion13]

A insérer dans flm-devis et non pas dans Sflm-bons de livraison et selon gestion.metal.v2

Code :

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

1
2
3
4
5
6
7
Private Sub Form_Current()
If IsNull(Me.Sflm-commandes.Form.[N°Commande]) Then
    Me.[Sflm-bons de livraison].Form.[Btn_Créer_le_bon_de_livraison].Enabled = False
    Else
    Me.[Sflm-bons de livraison].Form.[Btn_Créer_le_bon_de_livraison].Enabled = True
End If
End Sub

Et ça marche

Un conseil trouvez une méthode pour raccourcir le nom de vous vos objets et éviter les accents, espaces, etc.

[tee_grandbois]

le caractère moins (-) pose problème quand il n'y a pas de crochets autour du nom des objets.
Il y a ceci dans le code actuellement (est-ce la pareil dans ta version ?) :



c'est pour cela qu'il ne trouvait pas le nom du champ.
Maintenant le code fonctionne avec ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Form_Current()
If IsNull(Parent![Sflm-commandes].Form.[N°Commande]) Then
...
'ou ça:
If IsNull(Forms![Flm-devis]![Sflm-commandes].Form![N°Commande]) Then
...
'ou ça:
If IsNull(Parent!controleonglets.Pages("Onglet mes commandes").Controls("Sflm-commandes").Form![N°Commande]) Then
...
'ou ça:
If IsNull(Forms![Flm-devis]!controleonglets.Pages("Onglet mes commandes").Controls("Sflm-commandes").Form![N°Commande]) Then
...

J'ai testé les 4 méthodes et elles fonctionnent toutes.
Le plus qui bizarre, c'est que dans l'envoi précédent les crochets y étaient mais le code était faux et comme je ne pouvais pas l'exécuter, je ne l'ai pas vu :

Code :

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

If IsNull(Forms![Flm-devis]![Sflm-commandes].Form![Sflm-commandes]![N°Commande]) Then

autre erreur en passant dans flm-Devis:

Code :

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

1
2
3
4
5
6
7
Private Sub Acompte_AfterUpdate()
If Me.[Acompte] = OUI Then
Me.Forms![Sflm-commandes].[Accompte versé].Enabled = True
Else
Me.Forms![Sflm-commandes].[Accompte versé].Enabled = False
End If
End Sub

corrigé:

Code :

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

1
2
3
4
5
6
7
Private Sub Acompte_AfterUpdate()
If Me.[Acompte] = OUI Then
Me.[Sflm-commandes].Form.[Accompte versé].Enabled = True
Else
Me.[Sflm-commandes].Form.[Accompte versé].Enabled = False
End If
End Sub

[Gérald03]

merci pour vos réponses, je viens de tester les quatre versions, aucune ne fonctionne !!!
vous allez me prendre pour un âne !

"La référence d'une expression à la propriété Form/report n'est pas valide"

Voila le msg

GERALD

[tee_grandbois]

je viens de tester les quatre versions, aucune ne fonctionne !!!

juste en copiant/collant le code et sans rien changer ?
peux-tu faire une impression d'écran du message lorsque l'instruction est surlignée exactement comme celle-ci :

[Gérald03]

Voila !

[tee_grandbois]

NOOOON !! j'avais dit exactement, il manque la fenêtre de gauche

[Gérald03]

Voilà cette fois ci !

[Gérald03]

Mieux

[tee_grandbois]

est-ce que la base ci-jointe plante ?
essai_UP.rar
attention, il y a 3 messages qui sont "normaux" vu que les objets sont manquants:

[hyperion13]

Re
Ceci fonctionne plus que parfaitement dans essai.zip
A insérer dans Flm-devis

Code :

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

1
2
3
4
5
6
7
Private Sub Form_Current()
If IsNull(Me.[Sflm-commandes].Form.[N°Commande]) Then
    Me.[Sflm-bons de livraison].Form.[Btn Créer le bon de livraison].Enabled = False
    Else
    Me.[Sflm-bons de livraison].Form.[Btn Créer le bon de livraison].Enabled = True
End If
End Sub

Je vous conseille vivement de changer de technique dans le nommage de tous les objets formulaire. Cela ressemble plus à une prise de tête qu'à autre chose pour essayer de corriger quelque chose dans votre bdd. On perd du temps. Un coup vous mettez des espaces dans les noms, des accents (le pire), un coup des "underscore", un coup des traits d'union mis bout à bout ou alors espacés, etc.

[Gérald03]

ca ne fonctionne pas, j'abandonne, je vais trouver autre chose

Merci de m'avoir consacrer du temps !

GERALD

[tee_grandbois]

c'est comme tu veux, mais poses-toi la question: pourquoi nous arrivons tous à faire fonctionner le formulaire et pas toi ... il y a un problème latent dans ta base