Skip to main content

AccessTr.neT


access'de butonlara kısayol tuşu atamak

access'de butonlara kısayol tuşu atamak

Çözüldü #1
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
.rar Kelime Öğrenme.rar (Dosya Boyutu: 321,89 KB | İndirme Sayısı: 17)
Son Düzenleme: 22/09/2011, 11:59, Düzenleyen: mehmetb84.
Cevapla
Çözüldü #2
Makrolar yardımıylada yapabilirsin.
.rar Kelime Öğrenme.rar (Dosya Boyutu: 322,97 KB | İndirme Sayısı: 20)
Application Engineer
Cevapla
Çözüldü #3
verdiğiniz örnekte makroya rastlayamadım, gözümden kaçan birşey mi var acaba?
Cevapla
Çözüldü #4
(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
Application Engineer
Cevapla
Çözüldü #5
ö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.
Cevapla
Çözüldü #6
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

GERİ SAYIM;Sen doğduğunda başladı ! Eğer (9) canlı bile olsaydın en fazla (8) kez kaçabilirdin Ölümden ! Bil ki (7) Düvele sultan dahi olsan yerin (6) Mekan olacak sana. En fazla (5) Metre kumaş götürebileceksin ! Kapatacaksın (4) açsanda gözlerini ! Bu (3) günlük fani dünyada Azraile (2) kat olup yalvarsanda nafile EceL geldiğinde (1) gün öleceksin ! İşte, o an herşey (0) dan başlayacak. Çünkü,
ÖLÜM BİR YOK OLUŞ DEĞİL,YENİDEN DOĞUŞTUR !
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da