• ベストアンサー

列固定の設定

「単票型メインフォーム」+「データシート型サブフォーム」 宜しかったら、続きお願い致します。

質問者が選んだベストアンサー

  • ベストアンサー
  • DexMachina
  • ベストアンサー率73% (1287/1744)
回答No.2

すみません、遅くなりました。 (プロバイダに引っ越し連絡をしていなかった為、自宅でネット接続ができなくなってしまったもので・・・) 1)新規フォームを作成し、「対象月度」テキストボックス、「予定」サブフォームを設置。  (全て詳細領域に設置可、フォームヘッダ・フォームフッタは不要です) 2)「MF_出勤予定B」として保存(仮) 3)再度新規フォームを作成し、フォームのプロパティシートで以下の通り設定: ・「書式」タブ・既定のビュー=データシート ・「データ」タブ・レコードソース= SELECT 出勤予定A.* FROM 出勤予定A WHERE (((出勤予定A.月度)=[Forms]![MF_出勤予定B]![対象月度])); 4)「SF_出勤予定1」としてフォームを保存(仮) 5)前回作成した「MF_出勤予定A」をデザインビューで開いて「社員ID(又は社員)」「1日」・・・「31日」の各コンボボックスをコピー 6)「SF_出勤予定」フォームをデザインビューで開いて上記コンボボックス群を貼り付けたら、データシートビューに切り替え  (「対象月度」を求めるダイアログが出るが、特に入力せず「OK」をクリック) 7)固定したいフィールド(社員ID又は社員)にカーソルを置いた状態で、メニューの「書式(O)」→「列の固定(Z)」をクリックした後、「SF_出勤予定1」を上書き保存 8)「SF_出勤予定1」を別名保存(又はCopy&Paste)して、「SF_出勤予定2」フォームと「出勤予定3」フォームを作成 9)「SF_出勤予定2」フォームをデザインビューで開き、「31日」を削除 10)「SF_出勤予定3」フォームをデザインビューで開き、「30日」「31日」を削除 11)「MF_出勤予定B」を開き、「予定」サブフォームのプロパティシートで以下を設定: ・リンク子フィールド=月度 ・リンク親フィールド=対象月度 12)「対象月度」テキストボックスのプロパティシートで、「イベント」タブの「更新後処理」にカーソルを移動して「...」(ビルダ)をクリックしたら、「コードビルダ」を選択して以下の文を貼り付け: Private Sub 対象月度_AfterUpdate() Form!予定.SourceObject = "" If 対象月度 = 1 Or 対象月度 = 3 Or 対象月度 = 5 Or 対象月度 = 7 Or 対象月度 = 8 Or 対象月度 = 10 Or 対象月度 = 12 Then Form!予定.SourceObject = "SF_出勤予定1" If 対象月度 = 2 Then Form!予定.SourceObject = "SF_出勤予定3" If 対象月度 = 4 Or 対象月度 = 6 Or 対象月度 = 9 Or 対象月度 = 11 Then Form!予定.SourceObject = "SF_出勤予定2" End Sub 13)「MF_出勤予定」フォームを上書き保存 これで、社員ID(又は社員)フィールドを列固定させた状態で予定を確認するフォームができると思います。

CELSIOR_2005
質問者

補足

遅くなり申し訳ございません。 仕事で出ておりました。 実際にDexMachina様のアドバイス通りやってみたいと思います。 そこで、一点お伺いしたいのですが上記の「予定」サブフォームとはどのことでしょうか? お手数ですが宜しくお願い致します。 また、お時間があり分かるようでしたら下記も閲覧していただけたら幸いです。 http://oshiete1.goo.ne.jp/kotaeru.php3?q=1606604

その他の回答 (1)

  • DexMachina
  • ベストアンサー率73% (1287/1744)
回答No.1

どうも、DexMachinaです。 お引き受けしたいと思いますが、今はちょっと組んで確かめる時間がとれないのですが、それでも宜しければ少しお待ち下さい。 (先週で夏期休暇がおわったもので) なお、新規で質問を立てるのでしたら、前回の質問のNoを表示されるか、リンクを張った方がよいと思います。 (他の方では答えようにも答えられませんし、質問自体が削除される危険性もありますので・・・(汗)) あと、前回の件でお応えしたサブフォームで対応する他に、「社員ID」コンボボックスをCopy&Pasteして右端におくことで対処する方法もありますので、参考までにお伝えしておきます。

CELSIOR_2005
質問者

お礼

ありがとうございます。 申し訳ございませんが宜しくお願い致します。 大変失礼しました。すっかり忘れていました。 ********************************************** この質問に関しての詳しい全体の構造は http://oshiete1.goo.ne.jp/kotaeru.php3?q=1575942 の#6を見てくださると助かります。 **********************************************

関連するQ&A