Ce que j'essaie d'atteindre est pour une sélection de boîte déroulante (COMBO_SF) pour dicter le formulaire dans la commande de sous-formulaire (SF_Record), j'ai environ 10 formulaires, leurs noms sont dans les données de la boîte déroulante. Je suis nouveau à VBA et je ne suis pas sûr que mon approche a raison:
Private Sub Combo_sf_AfterUpdate()
Dim strLoadTable As String
strLoadTable = "Form." & Me.Combo_sf.Value
MsgBox strLoadTable
Forms![frm_Mnu_Manage Configuration Settings]!sf_record.Form.SourceObject = strLoadTable
End Sub
3 Réponses :
Votre approche devrait travailler. Je mettais une liste déroulante nommée cbxsubform sur ma forme principale et ajouté une ligne de code à son AfterupDate () gestionnaire d'événements ... msgbox ou un debug.print pour vérifier.)
Merci, je pense que la question de mes macros n'a pas été allumée, mais cette information a été très utile merci pour toute votre aide!
Ce peut être cette ligne qui vous trébuche:
strLoadTable = "Form." & Me.Combo_sf.Value
Dans cette ligne, il semble que le code tente de modifier la propriété Toutefois, < Code> SourceObject est une propriété d'un sous-formulaire Control , pas le formulaire contenu dans ce contrôle. Donc, si la commande de sous-formulaire est nommée sf_record , faites-le de cette façon. aussi, si la procédure après la mise à jour est exécutée de enfin, si sourceObject d'un objet objet . [frm_mnu_manage Paramètres de configuration] , vous pouvez utiliser me pour se référer au formulaire. me.combo_sf. Valeur est le nom d'un formulaire, vous n'avez pas besoin de préfixer son nom avec "formulaire". . Cela a fonctionné de toute façon dans mon test, mais je voudrais juste laisser tomber "forme". .