Je veux créer au moins un contrôle dans un état au moment de son ouverture.
Pour cela, j'ai placé un bouton de commande dans un formulaire.
Le code associé est le suivant:
Private Sub Commande0_Click()
'****************************
Dim NomEtat
Dim Etat As Report
Dim rct As Rectangle
NomEtat = "Temps"
DoCmd.OpenReport NomEtat, acViewDesign
Set Etat = Application.Reports(NomEtat)
DoCmd.SelectObject acReport, NomEtat
Set rct = CreateControl(NomEtat, aclabel, , "", "", 200, 200, 3000, 9400) rct.BackColor = vbBlack
DoCmd.Close acReport, NomEtat,acSaveYes
DoCmd.OpenReport NomEtat, acViewPreview
Set rct = Nothing
End Sub
L'exécution du code ci-après provoque une erreur d'exécution 2450 à la ligne Set rct = CreateControl........:
"Impossible de trouver le formulaire 'Temps' auquel il est fait référence dans une expression de macro ou un code Visual Basic."
Quelqu'un peut-il me dire l'erreur commise et la bonne façon de procéder pour créer un contrôle dans un état avec VBA au moment de l'exécution ?
Partager