(09/12/2017, 17:26)ozanakkaya yazdı: Hazırladığım örnek uygulama ektedir. Uygulamadaki kodları kendinize göre uyarlayabilirsiniz.
Ozan Hocam merhaba.Emeğiniz için çok teşekkür ederim ancak anlamadığım birkaç yer var yardımcı olabilir misiniz?
Veri1 = rs!LOGICALREF
rs.Move 99 ( 99 lu olarak mı kayıt yapılıyor)
Veri2 = rs!LOGICALREF (burada veri1,veri2 tablonun başlangıçtaki satırında bulunan verisi mi ?)
MsgBox (Veri1 & "-" & Veri2)
DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO tbl_gecici ( LOGICALREF, GRPCODE, TRCODE, FICHENO, TIME_, DOCODE, CLIENTREF ) SELECT LOGICALREF, GRPCODE, TRCODE, FICHENO, TIME_, DOCODE, CLIENTREF FROM tbl_test WHERE (((LOGICALREF) Between " & Veri1 & " And " & Veri2 & "));" (between komutu ilk veri ile son veri arasını mı nitelemeli?)
DoCmd.OutputTo acOutputQuery, "srg_gecici", "MS-DOSText(*.txt)", CurrentProject.Path & "\" & Veri1 & "-" & Veri2 & "Veriler.txt", False, "", , acExportQualityPrint (burada 25 veri içeren metin belgeleri şeklinde bir klasöre kayıt yaptıramıyorum)
DoCmd.RunSQL "DELETE * FROM tbl_gecici;"
gönderdiğim ekteki fotoğrafta, komut butonuna tıklayınca sadece 2-118 yazıyor bir kayıt işlemi yapmıyor hocam,nasıl bir yol izlemem gerekli?