AccessTr.neT
access'de butonlara kısayol tuşu atamak - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: access'de butonlara kısayol tuşu atamak (/konu-access-de-butonlara-kisayol-tusu-atamak.html)

Sayfalar: 1 2

access'de butonlara kısayol tuşu atamak - mehmetb84 - 22/09/2011

merhaba arkadaşlar daha önce bu konuyu açmıştım,ve çözüme kavuşturmuştuk fakat geçen gün tesadüf eseri ediindiğim ve sizinle paylaştığım kelime ezberleme veritabınna bu yöntemi eklemek istedim başaramadım.f3 tuşuna basıldığında yeni kelime ekleme butonunun aktif olmasını istiyorum. Veritabanının frmkelime formunda,yine

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyF3
.......
Case Else
End Select
End Sub

yöntemini denedim fakat burada çalışmadı.Yardımcı olabilirseniz sevinirim.

Tşkler

Cvp: access'de butonlara kısayol tuşu atamak - emturker - 22/09/2011

Makrolar yardımıylada yapabilirsin.


Cvp: access'de butonlara kısayol tuşu atamak - mehmetb84 - 22/09/2011

verdiğiniz örnekte makroya rastlayamadım, gözümden kaçan birşey mi var acaba?

Cvp: access'de butonlara kısayol tuşu atamak - emturker - 22/09/2011

(22/09/2011, 13:01)mehmetb84 yazdı: verdiğiniz örnekte makroya rastlayamadım, gözümden kaçan birşey mi var acaba?

Özür Dilerim Yanlış Dosyanızı EklemişimImg-grin Güncelledim

Cvp: access'de butonlara kısayol tuşu atamak - mehmetb84 - 22/09/2011

önemli değil Img-grin ilgilenmen yeter, benim çözemediğim yeni form açılması değil, yeni kayıt eklenmesi,yaptığın makroyu yenikayıt olarak değiştirdim hata veriyor.

Cvp: access'de butonlara kısayol tuşu atamak - Coskun0559 - 22/09/2011

syn mehmetb84;
odak formda olmadığı için çalışmaz
ben ID alanı için kod yazdım denermisin.
Private Sub ID_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = vbKeyF3 Then





    Me.CmdKayıtBul.Enabled = False

    Me.CmdVazgec.Enabled = True

    Me.CmdDuzelt.Enabled = False

    Me.cmdKaydet.Enabled = False

    Me.CmdSil.Enabled = False

    Me.cmdKaydet.Enabled = True

    Me.cmdKaydet.SetFocus

    Me.CmdKayitEkle.Enabled = False

    

    Call AlanAcik

    Me.RecordSource = "SELECT * FROM DATA where ID=99999999"

    Me.AllowAdditions = True



    DoCmd.GoToRecord , , acNewRec

    

    Me.ID.SetFocus

        

    Sql_Calistir ("Select Max(ID) AS Toplam from Data")

    If rst("Toplam") > 0 Then

    rst.MoveFirst

    Me.ID = rst("Toplam") + 1

    Else

        Me.ID = 1

    End If

    End If

End Sub