Private Sub Form_Load()

'アクションクエリ時の警告メッセージを非表示
Application.SetOption "confirm action queries", False

DoCmd.OpenQuery "空白削除クエリ"
DoCmd.OpenQuery "経過日指定削除クエリ"

'テキスト12に今月の数字を代入
Me!テキスト12 = Month(Date)

If Me!テキスト12 = 1 Then
a.Visible = True

ElseIf Me!テキスト12 = 2 Then
b.Visible = True

ElseIf Me!テキスト12 = 3 Then
c.Visible = True

ElseIf Me!テキスト12 = 4 Then
d.Visible = True

ElseIf Me!テキスト12 = 5 Then
e.Visible = True

ElseIf Me!テキスト12 = 6 Then
f.Visible = True

ElseIf Me!テキスト12 = 7 Then
g.Visible = True

ElseIf Me!テキスト12 = 8 Then
h.Visible = True

ElseIf Me!テキスト12 = 9 Then
i.Visible = True

ElseIf Me!テキスト12 = 10 Then
j.Visible = True

ElseIf Me!テキスト12 = 11 Then
k.Visible = True

ElseIf Me!テキスト12 = 12 Then
l.Visible = True

End If

End Sub


---------------------------------------
月が変わる毎に、自動的に特定の画像が表示される。
あらかじめフォーム上に12個の画像ファイルを挿入しておく。
12個の画像ファイルの可視はNOにしておく