Option Compare Database



Private Sub KatDuzenle_Click()



    If Not (Me.SubKategori.Form.Recordset.EOF And Me.SubKategori.Form.Recordset.BOF) Then

        With Me.SubKategori.Form.Recordset

        Me.IDKategorif = .Fields("IDKategori")

        Me.Kategorif = .Fields("Kategori")

        Me.Kesintif = .Fields("Kesinti")

        Me.IDKategorif.Tag = .Fields("IDKategori")

        Me.KatEkle.Caption = "Güncelle"

        Me.KatDuzenle.Enabled = False

        End With

    End If

End Sub



Private Sub KatEkle_Click()

    If Me.IDKategorif.Tag & "" = "" Then

    

    CurrentDb.Execute "INSERT INTO Kategori(IDKategori, Kategori, Kesinti) " & _

            " VALUES(" & Me.IDKategorif & ",'" & Me.Kategorif & "','" & Me.Kesintif & "')"

    Else

    CurrentDb.Execute "UPDATE Kategori " & _

        "Set IDKategori=" & Me.IDKategorif & _

        ", Kategori='" & Me.Kategorif & "'" & _

        ", Kesinti='" & Me.Kesintif & "'" & _

        " Where IDKategori='" & Me.IDKategorif.Tag & "'"

    End If

    Me.SubKategori.Form.Requery

    KatTemizle_Click

        

End Sub



Private Sub katkapat_Click()

    DoCmd.Close

End Sub



Private Sub KatSil_Click()

       If Not (Me.SubKategori.Form.Recordset.EOF And Me.SubKategori.Form.Recordset.BOF) Then

        If MsgBox("Bu Kategoriyi Silmek istiyormusun?", vbYesNo) = vbYes Then

            CurrentDb.Execute "DELETE From Kategori " & _

                " WHERE IDKategori='" & Me.SubKategori.Form.Recordset.Fields("IDKategori") & "'"

                Me.SubKategori.Form.Requery

        End If

       End If



End Sub



Private Sub KatTemizle_Click()

    Me.IDKategorif = ""

    Me.Kategorif = ""

    Me.Kesintif = ""

    Me.IDKategorif.SetFocus

    Me.KatDuzenle.Enabled = True

    Me.KatEkle.Caption = "Ekle   "

    Me.IDKategorif.Tag = ""

    

End Sub

Birde şu kodlar ile düzenle, yeni kayıt temizle kapat komutlarını kullandım ancak ekle dedikten sonra veriyi giriyor ve sonrasına boş bir tane daha veri giriyor. Sıkıntı nerede bakabilir misiniz ?

---

Ve her yeni kayıt yaptığımda ID Numarayı formda nasıl otomatik yaparım ?

Teşekkür ederim
İyi çalışmalar