Access2002:コマンドボタンがうまく設定できません
使い始めてから2週間目の初心者です。よろしくお願いします。
コマンドボタンウィザードでフォーム上にコマンドボタンを作成したのですが、クリックしても反応しません。
初めは問題なく作成できたのですが、突如としてうまく動作するボタンが作成できなくなってしまいました。
ウィザードで作成した「レコードの検索」ボタンですら無反応です。
あるフォームのイベントプロージャ(?)は以下のようになっています。
(★はコメントです)
Option Compare Database
Private Sub テスト15:09_Click()
End Sub
Private Sub 部番一覧→部番詳細フォーム_Click()★←正しく動作しているボタン★
On Error GoTo Err_部番一覧→部番詳細フォーム_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "部番詳細表示"
stLinkCriteria = "[部番]=" & "'" & Me![部番] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_部番一覧→部番詳細フォーム_Click:
Exit Sub
Err_部番一覧→部番詳細フォーム_Click:
MsgBox Err.Description
Resume Exit_部番一覧→部番詳細フォーム_Click
End Sub←★この下に区切り線が表示されません★
Private Sub テスト15:09_Click()★←無反応のボタン。文字色赤になっています★
On Error GoTo Err_テスト15:09_Click
Screen.PreviousControl.SetFocus
DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70
Exit_テスト15:09_Click:
Exit Sub
Err_テスト15:09_Click:
MsgBox Err.Description
Resume Exit_テスト15:09_Click
End Sub
単純ミスだと思うのですが、原因がわかりません。
どなたかわかりやすく教えいただけないでしょうか。ちなみにVBの知識は皆無です。よろしくお願いします。
お礼
大変助かりました。 教えていただいた通り、png画像をmouseEnabledをfalseにしたら目的通りのアクションをしてくれました。 感謝です!