Discussion :

[Vaya-Caló]

Cordialement,

J'ai une forme principale avec un sous-formulaire appelé « MiniMenuVerticalDer » cela ne veut pas avoir attribué un objet jusqu'à ce que la souris est déplacé sur, c'est quand nous attribuons la forme « MiniMenuVerticalDer ». (Nom même)

Le formulaire "MiniMenuVerticalDer" peut être ouvert en tant que sous-formulaire à partir de plusieurs formulaires dans lesquels il est incorporé. Je peux donc ouvrir plusieurs instances du formulaire en même temps

La chose est que quand j'ouvre chacune des instances de la forme comme sous-formulaire souhaitez affecter un ensemble de valeurs, de modifier spécifiquement la couleur de fond de la section et pour cela, je l'ai fait ce qu'on appelle de la forme principale.

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
 
Option Comparer la base de données
Option explicite
FrmMiniMenuVerticalDer privé comme Form_MIniMenuVerticalDer
 
Private Sub Detail_MouseMove (bouton en entier, décalage en entier, X en simple et en simple)
En cas d'erreur GoTo Detalle_MouseMove_Error
 
Définir frmMiniMenuVerticalDer = Nouveau Form_MIniMenuVerticalDer
Avec frmMiniMenuVerticalDer
.Section (acDetail) .BackColor = Formulaires ("Panel"). Section (acDetail) .BackColor
.Picture = Formulaires ("Panel").
.PictureSizeMode = 1
'.Tag = "Panel"
.Repaint
Fin avec
MiniMenuVerticalDer.SourceObject = frmMiniMenuVerticalDer.Name
MiniMenuVerticalDer.Visible = True
MiniMenuVerticalDer.SetFocus
 
En cas d'erreur GoTo 0
Quitter Sub
Detail_MouseMove_Error:
MsgBox "Erreur" & err.Number & "(" & err.description & ") dans la procédure Detail_MouseMove du document VBA Form_Panel"
End Sub

Mais la chose ne marche pas ... des idées?

merci

[marot_r]

Bonjour.

As-tu passe ton code VBA dans Google Translate ?

Si oui, peux-tu poster le code d'origne, ca fait une espece de galimatia difficilement lisible.

Pour en revenir a ta question, je pense que tu n'as pas a te casser la tete.
Un sous-formulaire est, il me semble, automatiquement une instance de lui-meme.
Donc si tu t'en sers dans differents formulaires tu as directement plusieurs instances.
Tu n'as rien de special a faire.

Si tu veux changer ses proprietes dans un formulaire en particulier, il suffit de faire quelque chose comme :

Code :

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

1
2
3
4
set f as Form_TonSousForm
set f=me.NomTonControlSousForm.Form
f.Section(acDetail).BackColor = Me.Section(acDetail).BackColor 'Assigne la meme couleur de fond sous-formulaire qu'au formulaire.
set f=nothing

A+

[Vaya-Caló]

Excuses marot_ et tout le monde, la précipitation sont de mauvais conseillers.

le code final basé sur votre commentaire "Un sous-formulaire est, il me semble, automatiquement une instance de lui-meme"

Code :

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

1
2
3
4
5
6
            With Me.MiniMenuVerticalDer.Form
                .Section(acDetail).BackColor = Me.Form.Section(acDetail).BackColor
                .Picture = Me.Form.Picture
                .PictureSizeMode = 1
                .Repaint
            End With

Je m'excuse à nouveau, je n'écris ni ne parle français, même si je le lis et le traduit parfaitement

le code erroné traduit par google....

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
Option Compare Database
Option Explicit
Private frmMiniMenuVerticalDer As Form_MIniMenuVerticalDer
 
Private Sub Detalle_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error GoTo Detalle_MouseMove_Error
 
Set frmMiniMenuVerticalDer = New Form_MIniMenuVerticalDer
With frmMiniMenuVerticalDer
.Section(acDetail).BackColor = Forms("Panel").Section(acDetail).BackColor
.Picture = Forms("Panel").Picture
.PictureSizeMode = 1
'.Tag = "Panel"
.Repaint
End With
MiniMenuVerticalDer.SourceObject = frmMiniMenuVerticalDer.Name
MiniMenuVerticalDer.Visible = True
MiniMenuVerticalDer.SetFocus
 
On Error GoTo 0
Exit Sub
Detalle_MouseMove_Error:
MsgBox "Error " & err.Number & " (" & err.description & ") in procedure Detalle_MouseMove of Documento VBA Form_Panel"
End Sub

Bonjour.

As-tu passe ton code VBA dans Google Translate ?

Si oui, peux-tu poster le code d'origne, ca fait une espece de galimatia difficilement lisible.

Pour en revenir a ta question, je pense que tu n'as pas a te casser la tete.
Un sous-formulaire est, il me semble, automatiquement une instance de lui-meme.
Donc si tu t'en sers dans differents formulaires tu as directement plusieurs instances.
Tu n'as rien de special a faire.

Si tu veux changer ses proprietes dans un formulaire en particulier, il suffit de faire quelque chose comme :

Code :

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

1
2
3
4
set f as Form_TonSousForm
set f=me.NomTonControlSousForm.Form
f.Section(acDetail).BackColor = Me.Section(acDetail).BackColor 'Assigne la meme couleur de fond sous-formulaire qu'au formulaire.
set f=nothing

A+

[marot_r]

Bonjour.

Si tu consideres le sujet clos, merci de cliquer sur le bouton en bas de discussion.

Sinon, indique quelles difficulties tu rencontres encore.

A+