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