19/01/2017, 18:04
mustim1547
Buldum. 'SendKeys "{esc}", True bunu sildim artık numlock kapanmıyor.
Private Sub Komut149_Click()
C = MsgBox("Programı Kapatmak İstiyor musunuz?", vbYesNo + vbCritical, "ACENTEM2017")
Undo
'SendKeys "{esc}", True
If C = vbNo Then
Cancel = True
ElseIf C = vbYes Then
Dim Msg As String
DoCmd.ShowToolbar ("Menü Çubuğu"), acToolbarYes
Application.CommandBars.FindControl
Application.Quit
End If
End Sub
Private Sub Komut149_Click()
C = MsgBox("Programı Kapatmak İstiyor musunuz?", vbYesNo + vbCritical, "ACENTEM2017")
Undo
'SendKeys "{esc}", True
If C = vbNo Then
Cancel = True
ElseIf C = vbYes Then
Dim Msg As String
DoCmd.ShowToolbar ("Menü Çubuğu"), acToolbarYes
Application.CommandBars.FindControl
Application.Quit
End If
End Sub