マクロを取得するにはどのようにクエリレコード/行ごとにアクションを行う？

Question

私はアクセスの部屋予約システムを構築しています、私はクエリに関するマクロの助けが必要です。

をこれが正常に動作します：

これは、彼らが部屋を予約するようになったときに、フォームの人々が表示されますです。

私がやったことは、その日に応じて、特定の部屋の予定時間を返すクエリを作成することです。

この特定のクエリでは、ルーム111今日のためです。ここでは、今日、部屋111は期間3,4,6で利用できないことを示しています。

これらの行をそれぞれ見て、フォーム上の関連するテキストボックスコントロールを空白にするマクロを作成する必要があります。

だから、このように見える終わる必要があります。

これは、マクロを使用して可能である場合、私は知らない、または私はVisual Basicのを使用する必要があります場合。私はマクロを取得する必要があります/コードと言って：

"各行に対しての、IF 111ScheduleCheck.TimeSlot =" 期間1" 、THEN FORMAT背景TO 111_P1 =黒 "の行ごとに

"、IF 111ScheduleCheck .TimeSlot = "期間2"、THEN背景TO FORMAT 111_P2 =ブラック」

などなど

しかし私はそれが動作しません、これを試してみた：

私はそれを実行すると、私はちょうどこのエラーが表示されます：

誰かが私を助けることができますか？

おかげで、

ローワン:)

Answer 1

は、テキストボックスには館内フィールドで期間フィールドとなる連続/複数項目フォームの下に旋回したクエリにフォームの境界を考えてみましょう。また、すべての会議室が1つのスケジュールテーブルを使用することで、ユニオンのクエリを避けることができるように、テーブルを正規化する余地があるかもしれません。

SELECT dT.Room, dT.Day, 
     Max(IIF(dT.[Time Slot] = 'Period 1', 'Yes', NULL)) AS [Period 1], 
     Max(IIF(dT.[Time Slot] = 'Period 2', 'Yes', NULL)) AS [Period 2], 
     Max(IIF(dT.[Time Slot] = 'Period 3', 'Yes', NULL)) AS [Period 3], 
     Max(IIF(dT.[Time Slot] = 'Period 4', 'Yes', NULL)) AS [Period 4], 
     Max(IIF(dT.[Time Slot] = 'Period 5', 'Yes', NULL)) AS [Period 5], 
     Max(IIF(dT.[Time Slot] = 'Period 6', 'Yes', NULL)) AS [Period 6] 
FROM 
    (SELECT 'Room 111' As Room, [Day], [Time Slot] FROM Schedule111 
    UNION SELECT 'Room 121' As Room, [Day], [Time Slot] FROM Schedule121 
    UNION SELECT 'Room 122' As Room, [Day], [Time Slot] FROM Schedule122 
    UNION SELECT 'Room 125' As Room, [Day], [Time Slot] FROM Schedule125) AS dT 
GROUP BY dT.Room, dT.Day 

そしてconditionally format背景色と6期のテキストボックスの各：

[Field Value Is] equal to "Yes". 

最後に、フォームのOnCurrentのトリガイベントを使用して、現在のページの日の値でフォームをフィルタリングします。日付ヘッダーコントロールは、テキストボックスにフォーマット真の日であることを確認してください：

DoCmd.ApplyFilter , "[Day]='" _ 
     & WeekdayName(WeekDay(Forms!YourForm!YourDateControl,2)) &"'")