'-------------------------

'フレーム内の位置を指定する

Me!フレーム = 1

'-------------------------

'サブフォーム内のコントロール

Forms!サブフォーム名!コントロール名.SetFocus

'-------------------------

'フォームを開く時レコードソース（クエリ1）を指定する

DoCmd.OpenForm "フォーム"

Forms("フォーム").RecordSource = "クエリ1"

'-------------------------

'SQLをレコードソースにする

Me.RecordSource = mySQL

'-------------------------

'平日　１週間後

Dim dayname As Integer

dayname = Weekday(Date)

  If dayname = 6 Then   'dayname = 金曜日ならば

  Me.一週間予定日 = Date + 10

  Else

  Me.一週間予定日 = Date + 8

  End If

'-------------------------

'その月の一日を表示

DateSerial(Year(Date()),Month(Date()),1)

'その月の末日を表示

'（翌月の一日を計算し、-1をして、その前日を表示）

DateSerial(Year(Date()),Month(Date())+1,1)-1

'-------------------------

'印刷する。

Dim stDocName As String

stDocName = "リポート"

DoCmd.OpenReport stDocName, acNormal

'-------------------------

'入力チェック

If IsNull(Me.担当者) Or IsNull(Me.日付) Then

  MsgBox "担当者、日付を入力してください。", 16, "入力"

  Exit Sub

End If

'-------------------------

Me![日付(週)] = 日付計算

'↑コントロール名に括弧「（）」があると、「［］」で囲わなくてはならないみたい。