AccessTr.neT
Sorgu dan txt dosyasına veri aktarma ve farklı ad ile kaydetme ek - 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ığı: Sorgu dan txt dosyasına veri aktarma ve farklı ad ile kaydetme ek (/konu-sorgu-dan-txt-dosyasina-veri-aktarma-ve-farkli-ad-ile-kaydetme-ek.html)

Sayfalar: 1 2


Sorgu dan txt dosyasına veri aktarma ve farklı ad ile kaydetme ek - ucloy - 20/06/2011

Herkese Merhaba

Sorgu dan txt dosyasına veri aktarma ve farklı ad ile kaydetme sorunumu
Daha önce Sayın Kur@l hocam sorunumu cözmüştü
txt ye aktarılan kayıt sayısını da görmek istiyorum nasıl bir ek yapılmalı
ben uğraştım ama başaramadım.

Yardımlarınız için teşekkürler




Cvp: Sorgu dan txt dosyasına veri aktarma ve farklı ad ile kaydetme ek - Kur@l - 20/06/2011

Sayın ucloy;
Eklediğiniz örnek sizin için yaptığım çalışan nihayi örnek değil. Ancak yaptığımız nihayi örneğe aşağıda yeni ekledim dediğim alanları o nihayi örneğe ilave ederseniz probleminiz çözülmüş olur. Ayrıca dikkatli incelerseniz sayac mantığınıda öğrenmiş olursunuz.
Kolay gelsin.


Dim rs_kural As ADODB.Recordset
Set rs_kural = New ADODB.Recordset
Dim sayac As Long 'YENİ EKLEDİM
rs_kural.Open "select * from 02_TXT_CEVİR_SON_HALI", CurrentProject.Connection, dbOpenDynaset, adLockOptimistic
Dim fs, dosyam_AccessTR
Set fs = CreateObject("Scripting.FileSystemObject")
Set dosyam_AccessTR = fs.CreateTextFile("C:\" & Me.Metin1.Value & ".TXT", True)
sayac = 0 'YENİ EKLEDİM

Do Until rs_kural.EOF = True
sayac = sayac + 1 'YENİ EKLEDİM
dosyam_AccessTR.writeline (rs_kural.Fields("txt_01") & rs_kural.Fields("txt_03") & rs_kural.Fields("txt_03"))
DoEvents

rs_kural.MoveNext

Loop
rs_kural.Close
Set rs_kural = Nothing
Me.Metin5.Value = sayac 'HEM METİN5 ALANININ HEM BU SATIRI YENİ EKLEDİM.
MsgBox "İşlem Tamamlanmıştır. Dosyanız " & "C:\" & Me.Metin1.Value & ".TXT Konumundadır"
dosyam_AccessTR.Close



Cvp: Sorgu dan txt dosyasına veri aktarma ve farklı ad ile kaydetme ek - ucloy - 20/06/2011

Merhaba Sayın Kur@l hocam
Evet ben yanlış eki koymuşum ama siz doğru olanı yapmışşsınız hemen deneyecegim



Cvp: Sorgu dan txt dosyasına veri aktarma ve farklı ad ile kaydetme ek - ucloy - 20/06/2011

Sayın Kur@l Hocam

Me.Metin5.Value
Me.Metin1.Value olarak değiştirdim tamadir.
Elinize sağlık. Teşekkür ederim




Cvp: Sorgu dan txt dosyasına veri aktarma ve farklı ad ile kaydetme ek - ucloy - 20/06/2011

Bu sefer de dosya adı msj ekranına
dosya ismi yerine kayıt sayısını yazıyor



Cvp: Sorgu dan txt dosyasına veri aktarma ve farklı ad ile kaydetme ek - Kur@l - 20/06/2011

Sayın ucloy;
Forma Yeni bir metin kutusu ekleyin ve o metin kutusuna sayac değişkenini yazdırın.