Discussion :

[Wall-e38]

Bonjour à tous,

Tout d'abord je tiens à vous remercier de votre excellent forum qui m'a permis de nombreuses fois de trouver la solution à mes problèmes.

J'ai donc un problème qui est simple mais pour lequel je n'arrive pas à trouver la solution seul.

J'ai un formulaire saisie_reception_metal dans lequel il y a un sous formulaire bobine_fournisseur_sous_formulaire. Je voudrais en code vba atteindre un champ (refbobinefournisseur) qui se trouve dans ce sous formulaire.

J'ai donc utilisé ce code Forms!saisie_reception_metal.Form!bobine_fournisseur_sous_formulaire!refbobinefournisseur=valeur. Cependant, quand je l'exécute, Access me sort le message d'erreur suivant : impossible de trouver le champ 'bobine_fournisseur_sous_formulaire'.

Je serais enchanté si qq pouvais m'apporter ses lumières.

Merci. David

[rjamin]

Bonjour,
Je crois que .Form doit se trouver après le nom du sous formulaire plustôt qu'après celui du formulaire principal.

[Wall-e38]

Je viens d'essayer ça mais ça me marque le même message d'erreur.

Je pense que ça n'a pas d'importance mais la ligne totale est celle-ci:

Code :

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

1
2
3
If numfournisseur = 1 
Then Forms!Saisie_reception_metal!bobine_fournisseur_sous_formulaire!refbobinefournisseur = reflot 
Else: Texte20 = " "

Merci quand même de cette réponse rapide.

[rjamin]

Code :

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

1
2
3
If numfournisseur = 1 
Then Forms!Saisie_reception_metal!bobine_fournisseur_sous_formulaire!refbobinefournisseur = reflot 
Else: Texte20 = " "

Essayer un peu comme ceci

Code :

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

1
2
3
4
 
If numfournisseur = 1 
then bobine_fournisseur_sous_formulaire.Form!refbobinefournisseur = reflot 
else Texte 20 =""

[Wall-e38]

Merci pour cette réponse c'est la bonne puisque je revennais pour dire que c'est comme celà que j'avais procédé.

Merci en tout cas de votre contribution.

David