Ş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 Temizle komutunda ise çalışıyor ancak komple veridende temizliyor. Genel olarak şu kodlara bakabilir misiniz ?

İyi çalışmalar.

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