AccessTr.neT
VBA da Ekle komutu fazladan satır atıyor. - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: VBA da Ekle komutu fazladan satır atıyor. (/konu-vba-da-ekle-komutu-fazladan-satir-atiyor.html)

VBA da Ekle komutu fazladan satır atıyor. - Berkt - 12/09/2014

Ş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


Cvp: VBA da Ekle komutu fazladan satır atıyor. - C*e*l*o*y*c*e - 12/09/2014

bence örnegini de girmelisin ki tamamı ile bakılsın

Cvp: VBA da Ekle komutu fazladan satır atıyor. - Berkt - 12/09/2014

(12/09/2014, 10:59)C*e*l*o*y*c*e yazdı: bence örnegini de girmelisin ki tamamı ile bakılsın

Örnek dosya ektedir. Yapmak istediğim bu şekilde bir şey. Bunu normal liste şeklinde yapan 1 örnek görmüştüm bi ara şuan bulamıyorum ama o liste halinde nasıl yapabilirim bunu.? Bunun gibi 3-5 sayfa daha yapıcam bu sadece bir kısmı. Bunda yardımcı olursanız diğer formları kendim yapabilirim.

Teşekkür ederim şimdiden

Cvp: VBA da Ekle komutu fazladan satır atıyor. - POWER - 12/09/2014

İncelermisiniz...

Lütfen olumlu veya olumsuz geri dönüş yapınız...

Cvp: VBA da Ekle komutu fazladan satır atıyor. - Berkt - 13/09/2014


Hocam allah razı olsun senden. Nasıl yaptınız ? Kodlardada bir değişiklik yok ? Yaptığım hata nerede yani Img-grin Bileyim ki diğer tabloları yaparken aynı hatayı yapmayayım. Birde hocam .....