AccessTr.neT

Tam Versiyon: VBA da Ekle komutu fazladan satır atıyor.
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Ş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
bence örnegini de girmelisin ki tamamı ile bakılsın
(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
İncelermisiniz...

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

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