Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

737 / 9994

←次へ　｜　前へ→


	【12566】オプションボックスがうまく動かない

likehi

- 14/6/23(月) 17:28 -


	引用なし

	パスワード

環境　ACCESS2010
ACCESSでオプショングループを利用して指定のデータだけを画面に一覧形式で出したいと考えています。

実行したことは
１．一覧形式フォームを作成
２．フォームの下にオプショングループを作成しました。
３．VBAで以下のコードを書きました。

Private Sub 誕生月_AfterUpdate()
With CodeContextObject
　　　　If (.誕生月 = 1) Then
　　　　　 DoCmd.ApplyFilter "," & [月設定] = 1
　　　　　 End If
　　　　If (.誕生月 = 2) Then
　　　　　 DoCmd.ApplyFilter "," & [月設定] = 2
　　　　　 End If
　　　　If (.誕生月 = 3) Then
　　　　　　DoCmd.ApplyFilter "," & [月設定] = 3
　　　　End If
End With
End Sub

　月設定は日付から月だけが出るようにした列です。
誕生月はオプショングループの名前です。

コードの書き方がおかしいのでしょうか。
どなたかご教授お願いします。

180 hits

▼

【12566】オプションボックスがうまく動かない likehi 14/6/23(月) 17:28