Discussion :

[FCL31]

Sur ma BD, j'ai un formulaire principal "Saisi" et un sous formulaire "Presses Modif"
Dans ce dernier, j'ai un champ "Type machine".

Sur le formlaire "Saisi", je saisi un numéro de "contrat" qui est le champ pére du sous formulaire "Presses Modif" dont le champ fils et "N°Contat"

Lorsque je saisi un numéro de "contrat" (dans le formulaire principal), je voudrais que le code suivant s'exécute (en fait je sais pas vraiment où le mettre)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
If Me.Type_Machine = "Automotrice" Then
    Me.Étiquette38.Visible = False
    Me.Étiquette40.Visible = False
    Me.Texte37.Visible = False
    Me.Texte39.Visible = False
    Me.Étiquette57.Visible = True
    Me.Étiquette58.Visible = True
    Me.Étiquette59.Visible = True
    Me.Étiquette60.Visible = True
    Me.Étiquette61.Visible = True
    Me.Étiquette62.Visible = True
    Me.Étiquette63.Visible = True
    Me.Étiquette64.Visible = True
    Me.Rev_100h.Visible = True
    Me.Rev_500h.Visible = True
    Me.Rev_1000h.Visible = True
    Me.Rev_1500h.Visible = True
    Me.Rev_2000h.Visible = True
    Me.Rev_2500h.Visible = True
    Me.Rev_3000h.Visible = True
Else
If Me.Type_Machine <> "Automotrice" Then
    Me.Étiquette38.Visible = True
    Me.Étiquette40.Visible = True
    Me.Texte37.Visible = True
    Me.Texte39.Visible = True
    Me.Étiquette57.Visible = False
    Me.Étiquette58.Visible = False
    Me.Étiquette59.Visible = False
    Me.Étiquette60.Visible = False
    Me.Étiquette61.Visible = False
    Me.Étiquette62.Visible = False
    Me.Étiquette63.Visible = False
    Me.Étiquette64.Visible = False
    Me.Rev_100h.Visible = False
    Me.Rev_500h.Visible = False
    Me.Rev_1000h.Visible = False
    Me.Rev_1500h.Visible = False
    Me.Rev_2000h.Visible = False
    Me.Rev_2500h.Visible = False
    Me.Rev_3000h.Visible = False
End If
End If

Où doit je mettre le code pour qu'il s'exécute lors d'une nouvelle saisi sur le formulaire principal ?

Faut-il modifier le code ?


POUR INFO : J'ai essayé de le mettre sur ouverture du sous formulaire mais sa ne marche que lorsque je lance la BD (car ensuite aucuns formulaire n'est fermer lors de son utilisation : la base est basé sur une navigation des formulaire avec des onglets)

[nico84]

Bonjour,

Il me semble que le bon endroit est sur mise à jour du champ contrat :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
private sub contrat_afterupdate
If Me.Type_Machine = "Automotrice" Then
    Me.fillexx.Étiquette38.Visible = False
    Me.fillexx.Étiquette40.Visible = False
    Me.fillexx.Texte37.Visible = False
    ...
Else
' test inutile !!!! If Me.Type_Machine <> "Automotrice" Then
   ...
End If
end sub

[FCL31]

Il me semble que le bon endroit est sur mise à jour du champ contrat :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
private sub contrat_afterupdate
If Me.Type_Machine = "Automotrice" Then
    Me.fillexx.Étiquette38.Visible = False
    Me.fillexx.Étiquette40.Visible = False
    Me.fillexx.Texte37.Visible = False
    ...
Else
' test inutile !!!! If Me.Type_Machine <> "Automotrice" Then
   ...
End If
end sub

Il me semble que j'avais teste sans résultat mais a quoi correspond fillexx ?

[nico84]

C'est le nom de la sous-fenêtre dans la fenêtre !

[FCL31]

Désolé mais sa marche pas

Message en pièce jointe

"Presses Modif" correspond au nom du sous form

[nico84]

Quel est ton code ? C'est fille-- qu'il faut mettre (le nom associé à la sous fenêtre dans ses propriétés) et non "presse modif"

D'ailleurs access doit le proposer automatiquement en saisie !

[FCL31]

il manque pas un truc ici :

Code :

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

If Me.Type_Machine = "Automotrice" Then

[FCL31]

Désolé nico84 mais je n'arrive pas a appliquer ton code.

Suite a différentes recherche sur le forum et le net, j'ai trouvé un truc comme ca :

Code :

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

1
2
3
4
5
If Forms!Saisi![Presses Modif].Form![Type_Machine].Value = "Automotrice" Then
    Forms!Saisi![Presses Modif].Form![Étiquette38].visble = True
    Forms!Saisi![Presses Modif].Form![Étiquette40].visble = False
    Forms!Saisi![Presses Modif].Form![Text37].visble = True
    Forms!Saisi![Presses Modif].Form![Text].visble = True

Mais malheureusement sa marche toujours pas : sa me met le message en pièce jointe sur un post précédent.

Je n'arrive pa a trouver quoique se soit

existe t'il vraiment une solution ??

[nico84]

Effectivement avec Me.filleMachin on n'a pas accès aux propriétés des champs

Par contre ceci marche très bien (avec access 2000) :

Code :

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

Form_MaSousFenetre.monChamp.visible = false

Pourquoi il faut préfixer le nom des fenêtres avec "Form_" pour appeler leurs champs je ne sais pas mais c'est comme ça (d'ailleurs c'est aussi leur nom dans le projet VBA)

Normalement l'aide à la saisie en ligne doit d'ailleurs te proposer les champs automatiquement

Mais déjà il faut arrêter les espaces dans les noms

[FCL31]

Excuse moi mais qu'appelle tu "fenêtre"
Un sous formulaire ???

[nico84]

Exemple :

J'ai la form OF_lg qui contient le champ poste

Cette form est une sous-fenêtre de la form OF
A l'ouverture de OF je veux cacher le champ poste :

Code :

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

1
2
private sub form_open(cancel as integer)
form_of_lg.poste.visible = false

[FCL31]

Désolé nico84 mais malheureusement je n'ais pas su appliquer ton code à mon application (j'ai peut étre mal fais quelque chose).

Toutefois, j'ai trouver une solution a mon problème :

J'ai applique mon code (fourni dans mon premier post) sur l'événement "Activation" de mon sous-formulaire

et sa marche nikel

Merci à tous de votre aide