Microsoft Access 掲示板

次にアドバイスいただいてOpenRecordsetのSQL文に抽出条件を加えたのですが、ここで躓いています。

氏名ID フィールドが数値型とするなら、下記のようなコードになります。

Dim strWhere As String

strWhere = "日付 > #" & FirstDay & "# AND 日付 <=#" & FirstDay + 42 & "# And 氏名ID = " & Me.txt氏名ID

Set rs = CurrentDb.OpenRecordset( _
    "SELECT 日付,予定または実績2,氏名,お客様名,時間 FROM Q_ScheSubForm_ko WHERE " & strWhere, _
    dbOpenForwardOnly, dbReadOnly)

VBAコード内に、SQL文を記述するときは、SQL文は単なる文字列になるということを留意してください。
その文字列がSQLとして正しいものになるように記述します。

コード内での、文字列と変数の扱いについては、下記に詳しく解説してますので、熟読して理解を深めてください。

Access上のコード内で引用符(")と単引用符(')の使い分けについて - hatena chips

txt氏名ID に氏名IDを入力しておく必要があります。規定値にも氏名IDを設定しておいて試してみてください。

あと、下記の点にも教えてください。
予定フィールドの 氏名ID フィールドは数値型ですか、テキスト型ですか。

ありがとうございます。

予定フィールドの氏名IDは数値型でサブフォームにはコンボボックスで作成しています。

>txt氏名ID に氏名IDを入力しておく必要があります。規定値にも氏名IDを設定しておいて試してみてください。

txt氏名IDのコントロールソースと規定値に[氏名ID]にすると、
実行時エラー'2424'
指定した式にMicrosoftAccessが見つけることができないフィールド、コントロール、プロパティ名が含まれています。
になります。
txt氏名IDのコントロールソースと規定値に=[F_calendarSF].[Form]![氏名ID]を設定しましたが同じく3075の実行時エラーが出ます。
サブフォームの氏名IDの規定値に数字を入れていくと、メインフォームサブフォームとも規定値のIDのスケジュールだけが表示されました。

出来れば入力フォームを開くときにIDを聞かれてそれを表示するという形にしたいです。

txt氏名ID のコントロールソースには何も設定しません。
既定値には、実際に存在する 氏名ID を設定しておいてください。
その個人のデータが開いた直後に表示されます。

あるいは、下記の式を設定しておいてもいいでしょう。

=DLookup("氏名ID","個人マスター")

テーブルの先頭の個人のデータが表示されます。

ありがとうございます。
今日は何もできなかったのでまた来週検証してみます。

いろいろ複雑なこともあると思いますので、よろしかったら、現状のフォームを右のファイル送信フォームから送ってもらえれば、内容を見て、具体的にアドバイスができると思います。

ありがとうございます。
フォームを送りたいのですが会社のセキュリティ上ページが開けません。
今は別フォームでIDを入力するフォームを作成して、txt氏名IDの規定値に =[Forms]![F_ID]![txtID] を設定したら入力されたIDが表示されました。
menu画面 ⇒ ID入力画面 ⇒ カレンダー表示　となるのでもう少しスマートな方法がないかと模索中です。（＾＾；）

色々お気遣いいただきありがとうございました。
今回はMENU画面で個別のフォームを開くボタンの前にポップアップで番号を入力する画面を作成しました。
この形でOKが出たのでこのままにしておこうと思います。（＾＾；）

またお聞きすることがたくさん出てくると思いますのでよろしくお願いします。