Discussion :

[tomatotep]

Salut,

J'ai mon formulaire principal "Dossier" et un sous formulaire "Sous formulaire dossier 1". Dans mon sous formulaire, il y a un champ texte qui se rempli automatiquement en fonction d'un menu déroulant du même sous formulaire. J'ai fait en sorte qu'il ne puisse prendre que 12 valeurs pré-rentrées, et je voudrais que pour une de ces valeurs, qu'on appellera "valeur 12", certains éléments du formulaire apparaissent et d'autre disparaissent.

Je pensais rentrer un code évènement "sur changement" du champ texte du sous formulaire (qui s’appelle Texte16), mais je ne sais pas trop quel code rentrer...En fait je ne sais pas comment identifier l'élément, quelle adresse rentrer...j'avais pensé a ça mais ça a pas l'air de marcher:

Code :

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

1
2
3
4
5
6
If Texte16= "valeur12" Then
Me.Element1.Visible=True
Me.Element2.Visible=False
.
.
.

[nico84]

Boujour,

Me. fait ici référence au sous-formulaire. Pour adresser le formulaire lui même, plusieurs solutions, par exemple :

Code :

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

1
2
3
Me.Parent.
Forms("Dossier").
Form_dossier.

[tomatotep]

Merci,

j'ai donc rentré ce code

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Texte16_Change()
If Texte16 = "VALEUR12" Then
Me.Parent.Etiquette146.Visible = True
Me.Parent.Subvention_CG83.Visible = True
End If
If Texte16 <> "VALEUR12" Then
Me.Parent.Etiquette146.Visible = False
Me.Parent.Subvention_CG83.Visible = False
End If
End Sub

Malheureusement ca n'a pas l'air de fonctionner. Je vais peut etre donner plus d'infos sur mon formulaire.

Au départ, lors de la saisie d'une nouvel enregistrement, on selectionne un propriétaire parmi une menu deroulant reprenant ceux d'une table PROPRIETAIRE, ensuite dans le sous formulaire, un menu déroulant nous propose de choisir parmi les immeubles de ce propriétaire (l'attribution propriétaires/immeubles est faite préalablement). Une fois l'immeuble selectionné, un champ texte affichera la commune dans laquelle se situe l'immeuble, c'est le champ "Texte16". Je souhaite que lorsque ce champ prend une valeur bien précise ("VALEUR12" par exemple), des champs apparaissent et disparaissent dans mon formulaire principal.

Le formulaire dispose aussi d'un menu déroulant permettant de choisir et consulter les enregistrements déjà existant(il s'agit de dossiers, chacun lié à un immeuble), lors de la selection d'un enregistrement, il faut que si la commune de l'immeuble correspond à "VAEUR12", le formulaire n'affichent que les éléments nécessaires.

Je pense que les code devront donc être entrés "sur changement" de "Texte16" et "sur changement" du menu déroulant ("Modifiable74"). Je me trompe peut etre...

[nico84]

"Texte16" et "Modifiable74"

c'est pas top pour la maintenance

A priori je mettrais le code sur modifiable74_afterupdate en testant texte16

Et sinon ELSE ça marche bien aussi

Mais en fait une sous-fenêtre n'a d'intérêt que si elle affiche une sous-liste, sinon des champs supplémentaires dans la fenêtre principale marchent aussi bien (mieux).

[tomatotep]

Oui j'ai laissé les intitulés par défaut, jusqu’à présent je m'en sort comme ça. Sinon mon sous formulaire "écrit" ou se réfère à une autre table que celle du formulaire principal, avec des champ pères et champ fils pour faire des attribution dossier-immeuble, etc etc

[tomatotep]

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Modifiable74_Change()
If Form.Sous_Formulaire_Travaux_Immeuble.Texte16 = "SAINT-ZACHARIE" Then
Me.Étiquette146.Visible = True
Me.Subvention_CG83.Visible = True
Else
Me.Étiquette146.Visible = False
Me.Subvention_CG83.Visible = False
End If
End Sub

Voila mon code exact pour "sur changement" du menu déroulant (modifiable74), quand je teste le fonctionnement du formulaire: message d'erreur>débogage: il me surligne la premiere ligne en jaune.Un probleme dans l'adresse de "Texte16"???

[nico84]

Un formulaire peut s'appuyer sur plusieurs tables (ou aucune d'ailleurs), par exemple sur une requête de type "dossier inner join immeubles"

[tomatotep]

Oui, mais le fait que j'ai utilisé ce sous formulaire m'empechera-t-il de pouvoir arriver à avoir ce que je souhaite? ou c'est juste que ca aurait peut etre simplifié...Ma base de donnée, formulaires, etats requetes, etait censée etre finie mais mon "commanditaire" (je suis en stage^^) m'a demandé tout recemment de rajouter encore des trucs...dont ce que je souhaite faire "via" ce post...

[nico84]

Form.Sous_Formulaire_Travaux_Immeuble

n'existe pas, c'est ou
Me. (la form courante, par défaut), ou Sous_Formulaire_Travaux_Immeuble.

Normalement Access ne propose automatiquement que ce qui existe !

[tomatotep]

Code :

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

If Me.Sous_Formulaire_Travaux_Immeuble.Texte16.Value = "SAINT-ZACHARIE" Then

J'ai utilisé ca mais la il me surligne ".Texte16" dans la première ligne, pourtant c'est bien le nom de la zone de texte, et son code source est [code_immeuble].[column](2) (Texte16 n'est pas proposé automatiquement lorsque je tape le code)

si je remplace "Texte16" par "[code_immeuble].[column](2)", il me surligne a nouveau toute la ligne...je comprends pas pourquoi il ne "reconnait pas" Texte16...

[nico84]

Si texte16 est dans le formulaire tartempion :

Code :

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

If forms("tartempion").Texte16 = "SAINT-ZACHARIE" Then

si ce code est dans le formulaire tartempion aussi :

Code :

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

1
2
3
If Texte16 = "SAINT-ZACHARIE" Then
ou 
If me.Texte16.value = "SAINT-ZACHARIE" Then

[tomatotep]

Bon, merci beaucoup, j'ai beau essayer les différentes syntaxes, j'ai le message d'erreur "2450" qui me dit que mon sous formulaire est introuvable, pourtant, dans le même code évènement j'utilise ce sous formulaires et aucun problème. Je ne comprends vraiment pas...

[tomatotep]

En fait quand je tape If Me.Sous_formulaire_Travaux_Immeuble. Il ne propose pas Texte 16, ni aucun éléments du sous formulaire, pourtant après avoir tapé Me. il propose le sous formulaire...

[nico84]

Modifiable74 est dans quel formulaire ? le père ou le fils (ou le saint esprit ) ?

[tomatotep]

modifiable74 est dans le pere, en fait seul Texte16 est dans le sous formulaire fils.

[nico84]

Quand une fenêtre est placée en sous-fenêtre, elle prend un nouveau nom "local", par défaut fille1

Normalement cette syntaxe marche aussi :

Code :

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

if me.fille1!texte16 = ...

[tomatotep]

Ca n'a pas marché non plus....Merci quand meme

[tomatotep]

Apres avoir essayé pas mal de syntaxes différentes, cela a fonctionné avec ceci:

Code :

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

1
2
If Form![Sous Formulaire Travaux Immeuble]![Texte16].Value = "SAINT-ZACHARIE" Then
Me.Subvention_CG83.Visible = True

Fallait pas mettre les "underscore"

Merci pour l'aide