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 !