Click sur Label / Click sur commandbutton [Résolu]

[Glherbier]

Bonjour,

Je crée un formulaire dynamique, et j'aimerais qu'en cliquant sur un control de type 'acLabel', un autre formulaire s'ouvre. J'ai donc écrit une fonction pour créer ce second formulaire. Jusque là, aucun problème. Or quand je clique sur ce label, le formulaire se crée mais ne s'ouvre pas (il reste en petit dans un coin de l'écran), tandis que si j'affecte cette même fonction à la propriété 'onclick' d'un commandbutton, la page s'ouvre tout à fait normalement ! (alors que le code de la fonction est rigoureusement le même).

Pourquoi access réagit-il comme ca? Comment le forcer à m'afficher ce second formulaire comme je le souhaite?

J'écris ci-dessous des bouts de code que j'utilise:

Pour les labels sur lesquels l'utilisateur clique :

Code :

1
2
3
4
5
Set ctr_BB(compteur) = CreateControl(frm.Name, acLabel, , "", "", gauche * 10 + (i - 1) * (largeur + decal_gauche), decal_haut * j + (hauteur) * (j - 1), largeur, hauteur)
ctr_BB(compteur).BackStyle = 1
ctr_BB(compteur).TextAlign = 2
ctr_BB(compteur).Name = "BB_" & j & "_" & mois & "_" & annee
ctr_BB(compteur).OnClick = "=Formulaire_detail(" & mois & "," & annee & ", 1)"

Pour la création du formulaire :

Code :

1
2
3
4
5
6
7
8
9
10
11
Public Function Formulaire_detail(mois As Long, annee As Long, choix As Long)
 
Dim frm As Form
 
Set frm = CreateForm()
frm.Section(0).BackColor = RGB(220, 220, 220)
 
DoCmd.OpenForm frm.Name, acNormal
DoCmd.MoveSize 0, 5000, 8000, 5000
 
End Function

Merci beaucoup de votre aide,

GL

[keita]

bonjour
Ajoute ceci pour voir DoCmd.Restore

Code :

1
2
3
4
5
6
7
8
9
10
11
Public Function Formulaire_detail(mois As Long, annee As Long, choix As Long)
 
Dim frm As Form
 
Set frm = CreateForm()
frm.Section(0).BackColor = RGB(220, 220, 220)
 
DoCmd.OpenForm frm.Name, acNormal
DoCmd.MoveSize 0, 5000, 8000, 5000
DoCmd.Restore
End Function

@+

[Glherbier]

Merci, c'est parfaitement ce qu'il me fallait.



Bonne journée