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