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şim
Güncelledim
önemli değil
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