AccessTr.neT

Tam Versiyon: access'de butonlara kısayol tuşu atamak
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
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
Makrolar yardımıylada yapabilirsin.
verdiğiniz örnekte makroya rastlayamadım, gözümden kaçan birşey mi var acaba?
(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
ö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.
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

Sayfalar: 1 2