Discussion :

[4rocky4]

Bonjour,

J'ai fait une procédure en y mettant la présentation de mes formulaires dedans :

Code :

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

1
2
3
4
5
6
7
Sub presentation()
Détail.BackColor = RGB(246, 212, 133)
EntêteFormulaire.BackColor = RGB(246, 212, 133)
PiedFormulaire.BackColor = RGB(246, 212, 133)
bt_menu.BackColor = RGB(255, 154, 133)
DoCmd.GoToRecord , , acNewRec
End Sub

Et j'appel donc cette procédure sur le chargement de chaque formulaire :

Code :

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

1
2
3
Private Sub Form_Load()
presentation
End Sub

Mais le problème, c'est que dans la procédure, il me dit que la variable "Détail" est non défini, cela sera pareil pour entête formulaire, piedformulaire...

Comment dois-je faire ?

[Alain36]

Bonjour,

Regarde l'aide au sujet de la propriété Section des formulaires. Tu verras par exemple qu'en VBA la section détail est invoquée par :

Code :

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

Me.Section(acDetail)

ou encore

Code :

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

Me.Section(0)

Les en-têtes et les pieds sont invoqués de manière analogue.

[4rocky4]

J'ai essayé ...

Code :

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

Me.Section(acDetail)

ne marche pas.

Code :

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

Me.Section(0)

non plus

Je fait la procédure dans un module et je l'appel au chargement des formulaires.

[Invité]

Bonjour

C'est normal, il faut faire quelque chose de ce type :

Il faut passer en paramètre ton formulaire

Code :

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

1
2
3
4
5
6
7
8
9
Public Sub presentation(frm As Form)
    With frm
        .Section(acDetail).BackColor = RGB(246, 212, 133)
        .Section(acHeader).BackColor = RGB(246, 212, 133)
        .Section(acFooter).BackColor = RGB(246, 212, 133)
        .bt_menu.BackColor = RGB(255, 154, 133)
    End With
    DoCmd.GoToRecord , , acNewRec
End Sub

et l'appel doit se faire de la manière suivante en passant ton formulaire à la routine.

Code :

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

Call presentation(Me)

Par contre j'ai un doute sur l'utilisation de

Code :

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

DoCmd.GoToRecord , , acNewRec

dans ta routine. Si cela fonctionne tant mieux.

Starec

[4rocky4]

Par contre j'ai un doute sur l'utilisation de

Code :

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

DoCmd.GoToRecord , , acNewRec

dans ta routine. Si cela fonctionne tant mieux.

J'ai mis ça pour que le formulaire s'ouvre en mode Ajout.
Cela n'est-il pas "popre" ?
Ya-t-il mieux ?

[Invité]

Re

Ce n'est pas ce que je veux dire, je le mettrais dans le Load du formulaire et non dans la routine.

Sinon, est-ce que cela fonctionne mieux ?

Starec

[4rocky4]

je l'ai mis là car je veux que chaque formulaire s'ouvre en mode Ajout c'est pour ca. Je pourrais le mettre dans le form mais bon j'utilise le principe d'appel de procédure comme ça.

Oui oui tout fonctionne.

J'ai une autre question mais j'vais ouvrir un autre sujet.


Merci beaucoup