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