Option Compare Database
Option Explicit

'========================================
'このモジュールはご自由にお使いください。
'転載の場合はご連絡ください。
'
'Copyright(C) 2000,Loadsystem Inc.
'Email info@loadsystem.net
'Site  www.loadsystem.net/
'========================================

Dim btn As String
Dim cmd As Control

Private Sub CmdBtnVisible(cmd As Control)
    If cmd.Transparent = False Then Exit Sub
    If btn > "" Then Me(btn).Transparent = True
    cmd.Transparent = False
    btn = cmd.Name
End Sub

Private Sub cmd印刷_Click()
    Me!cmdDummy.SetFocus
    '処理
End Sub

Private Sub cmd印刷_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    CmdBtnVisible Me!cmd印刷
End Sub

Private Sub cmd印刷p_Click()
    Me!cmdDummy.SetFocus
    '処理
End Sub

Private Sub cmd印刷p_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    CmdBtnVisible Me!cmd印刷p
End Sub

Private Sub cmd開く_Click()
    Me!cmdDummy.SetFocus
    '処理
End Sub

Private Sub cmd開く_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    CmdBtnVisible Me!cmd開く
End Sub

Private Sub cmd開くp_Click()
    Me!cmdDummy.SetFocus
    '処理
End Sub

Private Sub cmd開くp_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    CmdBtnVisible Me!cmd開くp
End Sub

Private Sub cmd終了_Click()
    Me!cmdDummy.SetFocus
    '処理
    DoCmd.Close
End Sub

Private Sub cmd終了_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    CmdBtnVisible Me!cmd終了
End Sub

Private Sub cmd終了p_Click()
    Me!cmdDummy.SetFocus
    '処理
    DoCmd.Close
End Sub

Private Sub cmd終了p_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    CmdBtnVisible Me!cmd終了p
End Sub

Private Sub Form_Open(Cancel As Integer)
    Me!cmdDummy.SetFocus
End Sub

Private Sub 詳細_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If btn = "" Then Exit Sub
    Me(btn).Transparent = True
    btn = ""
End Sub