変数VBA

Question

私はFrm_Dairyと呼ばれる形式とFrm_Bakery

私は値を保持し、それぞれのフィールドを持っていると呼ばれるフォームを持っているとして保存されたコードの行を実行する方法。各フォームのフィールドの名前は同じですが、フィールドは酪農場またはベーカリーの名前の冒頭にあります。

例： Frm_Dairy.Dairy_Sales または Frm_Bakery.Bakery_Sales私はこのコードを実行する

： M_Salesの=のFrm_Dairy.Dairy_Sales

これは十分に簡単ですが、私は第一に、プログラムをしたい場合どんな形が活発であるか把握しますか？

この場合M_Form = "乳製品"」

M_Formは= "乳製品" のであれば、コードは次のようになります。 M_Codeは= "M_Sales = Frm_" & M_Form & "" & M_Form &「_Salesは」

今どのように私は私が十分な詳細とあなたの助けに感謝してこの質問をしたと思っているM_Sales

に格納されたデータを取得するためにM_Code変数を実行してください！

Answer 1

特定のフォームが開いている場合を検討し、決定するには：

If CurrentProject.AllForms("Dairy").IsLoaded Then 
... 
ElseIf CurrentProject.AllForms("Bakery").IsLoaded Then 
... 
End If 

をあなたがフィールドを参照する必要性を説明し、おそらく本当にコントロールを参照する必要があります。

フォームおよびコントロール参照を動的に構築するいくつかの方法。 1つは、フォーカスするフォームにフォーカスがあると仮定して、ActiveFormプロパティを使用します。

Debug.Print Screen.ActiveForm.Controls(Screen.ActiveForm.Name & "_Sales")

別の手順の文字列引数としてフォーム名を渡すことであろう。コントロールは、フォーム名のプレフィックスを持っていない場合

Debug.Print Forms(strForm).Controls(strForm & "_Sales")

が簡単だろう。