Merhaba arkadaşlar cümleten hayırlı Cumalar
Fatura tutanak tablosundan Veri tabanı tablosuna verileri aktarmak ve fatura tutanak dosyasında ki verileri silmek istiyorum. Biraz araştırdım bir kod buldum uyarlamak istedim lakin hata veriyor. Yardımcı olabilirseniz sevinirim. Saygılarımla

Merhaba,

Referanslara "Microsoft ActiveX Data Object 2.8 library" referansını ekleyip, butonun tıklandığında olayındaki kodu aşağıdaki ile değiştiriniz.

StrSQL = "SELECT * FROM Veri_Tabanı"

Set rstkayit = New ADODB.Recordset

rstkayit.Open StrSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

With rstkayit

.Find "[Kimlik]=" & [Form1].Form![Kimlik]

If rstkayit.EOF Then



.AddNew

.Fields("S_NO") = [Form1].Form![S NO]

.Fields("FİRMA_ADI") = [Form1].Form![FİRMA_ADI]

.Fields("FATURA_TARİHİ") = [Form1].Form!FATURA_TARİHİ

.Fields("FATURA_NO") = [Form1].Form!FATURA_NO

.Fields("TUTARI") = [Form1].Form!TUTARI

.Fields("AÇIKLAMA") = [Form1].Form!AÇIKLAMA

.Fields("Teslim_Tarihi") = [Form1].Form!Teslim_Tarihi



.Update

 End If

End With



DoCmd.SetWarnings False

    DoCmd.RunSQL "DELETE Fatura_tutanak.Kimlik FROM Fatura_tutanak WHERE (((Kimlik)=[Form1].Form![Kimlik]))"

DoCmd.SetWarnings True





DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

Me.Form1.Requery

    MsgBox "Aktarma Yapıldı.", , "Bilgi"

sayın kübrashn,

bahsettiğiniz talebinize yönelik olarak;

kendi adıma geçerli olmak sureti ile,eklediğiniz örnek uygulamayı imkan ve zaman yetersizliği gerekçesi ile inceleme ortamında değilim fakat bir fikir vermesi amacı ile,

kayıt ekleme işlemi için INSERT INTO ya da INSERT INTO...SELECT Sql kod kullanımı ile veya Recordset kullanımı ile de bunu sağlayabilirsiniz.

ardından da,kayıt silme DELETE SQL kod kullanımını gerçekleştirebilirsiniz.

DoCmd.SetWarnings False

DoCmd.RunSQL "INSERT INTO kaydedilecek_tablo_adi ([alan_adi1],[alan_adi2],[alan_adi3],...v.s.) VALUES (" & Me.denetim_adi1 & "," & Me.denetim_adi2 & "," & Me.denetim_adi3 & ")"



DoCmd.RunSQL "DELETE FROM kayit_silinecek__tablo_adi WHERE id=" & Me.id_denetimi_adi

DoCmd.SetWarnings True

yukarıda yazılı kod kalıpları benzeri kullanım ile sonuç elde edebilirsiniz.eğer kayıt silme işlemi için kritere göre değil de direkt olarak tablodaki tüm kayıtları silmek isterseniz,

DoCmd.RunSQL "DELETE * FROM kayit_silinecek__tablo_adi"

benzeri kod kalıbını kullanmanız yeterlidir.

bu kodların bitiminde eğer sonuçları hemen akabinde görmek istiyorsanız ana formu veya varsa alt formu güncellemeniz için .REQUERY kod satırını da dahil etmelisiniz.bilginize...iyi çalışmalar,saygılar.

Çok Teşekkürler.
Hemen deniyorum

(12/05/2017, 11:52)ozanakkaya yazdı: Merhaba,

Referanslara "Microsoft ActiveX Data Object 2.8 library" referansını ekleyip, butonun tıklandığında olayındaki kodu aşağıdaki ile değiştiriniz.

StrSQL = "SELECT * FROM Veri_Tabanı"

Set rstkayit = New ADODB.Recordset

rstkayit.Open StrSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

With rstkayit

.Find "[Kimlik]=" & [Form1].Form![Kimlik]

If rstkayit.EOF Then



.AddNew

.Fields("S_NO") = [Form1].Form![S NO]

.Fields("FİRMA_ADI") = [Form1].Form![FİRMA_ADI]

.Fields("FATURA_TARİHİ") = [Form1].Form!FATURA_TARİHİ

.Fields("FATURA_NO") = [Form1].Form!FATURA_NO

.Fields("TUTARI") = [Form1].Form!TUTARI

.Fields("AÇIKLAMA") = [Form1].Form!AÇIKLAMA

.Fields("Teslim_Tarihi") = [Form1].Form!Teslim_Tarihi



.Update

 End If

End With



DoCmd.SetWarnings False

    DoCmd.RunSQL "DELETE Fatura_tutanak.Kimlik FROM Fatura_tutanak WHERE (((Kimlik)=[Form1].Form![Kimlik]))"

DoCmd.SetWarnings True





DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

Me.Form1.Requery

    MsgBox "Aktarma Yapıldı.", , "Bilgi"

Ozan Hocam dediğinizi yaptım lakin fatura tutanak tablosundan sadece son kaydı aktarıp siliyor. Bunu listede bulunan tüm kayıtların aktarılması ve silinmesi gibi düzeltebilir misiniz? Rica Etsem

Merhaba,
Butonun tıklandığında olayındaki kodları aşağıdaki ile değiştiriniz.

DoCmd.SetWarnings False



DoCmd.RunSQL "INSERT INTO Veri_tabanı ( FİRMA_ADI, FATURA_TARİHİ, FATURA_NO, TUTARI, AÇIKLAMA, Teslim_Tarihi ) SELECT Fatura_tutanak.FİRMA_ADI, Fatura_tutanak.FATURA_TARİHİ, Fatura_tutanak.FATURA_NO, Fatura_tutanak.TUTARI, Fatura_tutanak.AÇIKLAMA, Fatura_tutanak.Teslim_Tarihi FROM Fatura_tutanak;"



MsgBox "Aktarma Yapıldı. ", , "Bilgi"

    

DoCmd.RunSQL "DELETE Fatura_tutanak.Kimlik FROM Fatura_tutanak;"

    

Me.Form1.Requery

    

DoCmd.SetWarnings True