ACCESS2000 ボタンメッセージについて

2011/09/17 23:57

このQ&Aのポイント

ACCESS2000を使用しており、フォームのボタンを押すとレポートが開くようになっています。しかし、フォームのフィールド「終了日」がうるう年の2/28だった場合に、ボタンを押した時に警告のメッセージが出るようにしたいです。
現在、終了日を更新した時にメッセージが出るようにしていますが、ボタンの方でも同様のチェックを行いたいです。
マウスボタン解放時のイベントに警告メッセージのコードを入れたところ、エラーが発生しました。具体的には、実行時エラー'2185'が発生しました。どこを修正すれば良いか教えてください。

ACCESS2000　ボタンメッセージについて

ACCESS2000を使用しております。フォームのボタンを押すとレポートが開くようになっています。フォームのフィールド「終了日」がうるう年の2/28だったら、ボタンを押した時に警告のメッセージが出るようにしたいです。現在は以下の通り、「終了日」を更新した時にメッセージが出るようにしています。 --- Private Sub 終了日_BeforeUpdate(Cancel As Integer) Const cMsg = "うるう年ですけど、2/29じゃなくて大丈夫ですか？" If Format(Me.終了日.Text, "mdd") = "228" And _ IsLeapYear(Year(Me.終了日.Text)) Then If MsgBox(cMsg, vbYesNo) = vbNo Then Cancel = True End If End If End Sub --- これをボタンの方にも流用しようと思い、（終了日を更新しない状態でもボタンを押すことがある為、その時点でもチェックを掛けたい）以下を「マウスボタン解放時」に入れてみましたが、エラーが出てしまいました。 --- Private Sub Ctl_新_証書新規_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Const cMsg = "うるう年ですけど、2/29じゃなくて大丈夫ですか？" If Format(Me.終了日.Text, "mdd") = "228" And _ IsLeapYear(Year(Me.終了日.Text)) Then If MsgBox(cMsg, vbYesNo) = vbNo Then Cancel = True End If End If End Sub --- エラー内容は以下の通りです。実行時エラー'2185' コントロールがフォーカスを取得していない時に、コントロールのプロパティまたはメソッドを参照することはできません。そのままコピペしたので、値の更新をするとかしないとか、ボタンを押した場合では関係ないので、その辺がエラーになっているのだと思うのですが、どこを直したら良いのか分からず、お知恵をお貸し下さい。要は、ボタンを押した時に警告メッセージを出し、「はい」であればレポートを開き（クリック時に開くマクロが入ってます）、「いいえ」であれば、開かずに元の画面のままが良いです。宜しくお願いいたします。

du-sama
お礼率52% (57/108)

Skype
回答数3
ありがとう数2

みんなの回答 （3）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

piroin654
ベストアンサー率75% (692/917)

2011/09/19 14:03 回答No.3

http://www.accessclub.jp/property/event/Click.html 上記にボタンをクリックするときのイベント順序がかいてあります。つまり、 MouseDown ⇒ MouseUp ⇒ Click ⇒ DblClick ⇒ MouseUp ⇒ Click の順序で起りますから、MouseUp ⇒ Click　なので、先にMouseUpが拾われてClickイベントが無視されてしまいます。したがって、No2のような方法か、あるいは、 Call Ctl_新_証書新規_Click をマクロの呼び出しのかわりに入れます。以下のように。 Private Sub Ctl_新_証書新規_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Const cMsg = "うるう年ですけど、2/29じゃなくて大丈夫ですか？" Me.終了日.SetFocus If Format(Me.終了日.Text, "mdd") = "228" And _ IsLeapYear(Year(Me.終了日.Text)) Then If MsgBox(cMsg, vbYesNo) = vbNo Then Exit Sub Else MsgBox "レポートを開きます" Call Ctl_新_証書新規_Click End If End If End Sub

質問者

お礼 2011/09/20 23:19

解決しました。ありがとうございます！マクロを呼び出すというのがヒントとなりました。ボタンを押してレポートを開くマクロの中に、”終了日にフォーカスを移動する”を追加し、終了日の方はフォーカス喪失時にセットしたらうまくいきました。基本的にうるう年なのに2/28になることは”ほぼ”ありえないので、この挙動で大丈夫でした。ありがとうございました。

ログインすると、全ての回答が全文表示されます。

その他の回答 (2)

piroin654
ベストアンサー率75% (692/917)

2011/09/19 13:49 回答No.2

以下ではどうですか。 Private Sub Ctl_新_証書新規_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Const cMsg = "うるう年ですけど、2/29じゃなくて大丈夫ですか？" Me.終了日.SetFocus If Format(Me.終了日.Text, "mdd") = "228" And _ IsLeapYear(Year(Me.終了日.Text)) Then If MsgBox(cMsg, vbYesNo) = vbNo Then Exit Sub Else MsgBox "レポートを開きます" 'ここにレポートを開くマクロ名を記述 End If End If End Sub

ログインすると、全ての回答が全文表示されます。

piroin654
ベストアンサー率75% (692/917)

2011/09/18 02:07 回答No.1

＞コントロールがフォーカスを取得していない時に、＞コントロールのプロパティまたはメソッドを参照することはできません。ならば、フォーカスを移せばいいのでは。 Me.終了日.SetFocus If Format(Me.終了日.Text, "mdd") = "228" And _ それから、＞Cancel = True これはエラーが出ます。プロシージャの引数にCancelが設定されていません。変数扱いになります。変数宣言もされていないのでエラーが出る、ということになります。 If MsgBox(cMsg, vbYesNo) = vbNo Then 'Cancel = True End If >Cancel = True のかわりに、 Exit Sub あるいは、 Me.Undo Exit Sub のような感じですか。

質問者