Ｐａｇｅ 378 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼サブフォームのソースオブジェクト共通化 イカンガ〜 03/9/16(火) 12:19 ┗Re:サブフォームのソースオブジェクト共通化 よろずや 03/9/16(火) 21:08 ┗Re:サブフォームのソースオブジェクト共通化 イカンガ〜 03/9/17(水) 16:47 ┗Re:サブフォームのソースオブジェクト共通化 YU-TANG 03/9/17(水) 20:11 ┗Re:サブフォームのソースオブジェクト共通化 イカンガ〜 03/9/18(木) 14:07 ┗Re:サブフォームのソースオブジェクト共通化 YU-TANG 03/9/18(木) 23:29 ─────────────────────────────────────── ■題名 ： サブフォームのソースオブジェクト共通化 ■名前 ： イカンガ〜 ■日付 ： 03/9/16(火) 12:19 -------------------------------------------------------------------------
| 一つのフォーム(FRM_SUB)を複数サブフォーム(SUB_01〜)を持つフォーム(FRM_MAIN) のサブフォームのソースとして共通にしたいのですが成功しません。 Dim A as New FRM_SUB Dim B as New FRM_SUB Dim C as New FRM_SUB FRM_MAIN.SUB_01.SourceObject = A FRM_MAIN.SUB_02.SourceObject = B FRM_MAIN.SUB_03.SourceObject = C と記述したんですがNGなんです。 FRM_MAIN.SUB_01.SourceObject = A.Name FRM_MAIN.SUB_02.SourceObject = B.Name FRM_MAIN.SUB_03.SourceObject = C.Name とすると全てFRM_SUBとして認識されます。 どなたかアドバイスお願いします。 アクセス超初心者でスミマセン。 |
| 何をやろうとしているのか、いまいち分からないのですが... なんで、共通化なんて高度なことを考えたのでしょうか？ 初心者があまり奇抜なことを考えて、時間を浪費するのも考え物です。 |
| ▼よろずや さん： >何をやろうとしているのか、いまいち分からないのですが... VBで同様のことをやっていたんですよ。 アクセスでも同じことが出来るのでは？っと思い試したんですよ。 >なんで、共通化なんて高度なことを考えたのでしょうか？ 1）少しでも工数を減らしたい 2) 同種の修正は一箇所で済ます。 アクセスって結構VBと相違点が多いんですね〜 |
| 単に考えすぎでは？ 別に複数のサブフォーム コントロールのソースに同じフォームを 指定して別々に動かすだけなら、プログラミングも何もしなくても そのまま出来ますけど。 |
| YU-TANG さん！ レスありがとうございます。 ほぼ同じサブフォームなんですが微妙に変えたいんですよ。 1.レコードソースとなるSQL文のWHERE句 2.ラベルの背景色 3.あるサブフォームでは表示しないテキストボックスもある でも基本的な制御は一緒なんで複数フォームを持ちたくないんですよ。 |
| たとえば 2 つのサブフォームコントロールに同じソースオブジェクトを 指定しておいて、下記のようなコードを流すとか。 Private Sub Form_Open(Cancel As Integer) With Me.subf1.Form .RecordSource = "T1" .lbl.Caption = "AAAAA" .lbl.BackStyle = 1 .lbl.BackColor = vbBlue End With With Me.subf2.Form .RecordSource = "T2" .lbl.Caption = "BBBBB" .lbl.BackStyle = 1 .lbl.BackColor = vbRed .txt1.Visible = False ' テキストボックス非表示 End With End Sub # だから考えすぎですってば。^^;) やった方が早い。 |