AccessTr.neT

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

(19/01/2017, 18:04)mustim1547 yazdı: [ -> ]Buldum.  'SendKeys "{esc}", True               bunu sildim artık numlock kapanmıyor.

Sorunu siz mi çözdünüz acaba??

(19/01/2017, 00:02)atoz112 yazdı: [ -> ]sayın mustim1547,

bahsettiğiniz talebinize yönelik olarak;
bir ihtimal bunu tetikleyici kod ya da fonksiyon olabilir.(örneğin;SENDKEYS gibi)

(19/01/2017, 21:12)accessdelisi yazdı: [ -> ]

(19/01/2017, 18:04)mustim1547 yazdı: [ -> ]Buldum.  'SendKeys "{esc}", True               bunu sildim artık numlock kapanmıyor.

Sorunu siz mi çözdünüz acaba??

(19/01/2017, 00:02)atoz112 yazdı: [ -> ]sayın mustim1547,

bahsettiğiniz talebinize yönelik olarak;
bir ihtimal bunu tetikleyici kod ya da fonksiyon olabilir.(örneğin;SENDKEYS gibi)

Tabiki sayenizde ama acceste cok yeniyim , geç anliyorum İlginize cok tesekkur ederim..