Skip to main content

AccessTr.neT


VBA da Ekle komutu fazladan satır atıyor.

VBA da Ekle komutu fazladan satır atıyor.

Çözüldü #1
Ş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.

Visual Basic Code
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
Cevapla
Çözüldü #2
bence örnegini de girmelisin ki tamamı ile bakılsın
Cevapla
Çözüldü #3
(12/09/2014 10:59)C*e*l*o*y*c*e Adlı Kullanıcıdan Alıntı: 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
.rar Deneme.rar (Dosya Boyutu: 128,52 KB | İndirme Sayısı: 5)
Cevapla
Çözüldü #4
İncelermisiniz...

Lütfen olumlu veya olumsuz geri dönüş yapınız...
.zip Deneme.zip (Dosya Boyutu: 276,04 KB | İndirme Sayısı: 11)
Please return your positive or negative ...
Cevapla
Çözüldü #5

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 .....
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da