AccessTr.neT

arkadaşlar formdan text dosyası oluştıran bir kodu düğmenin tıklandığında olayı ile çalıştırıyorum text oluşuyor fakat düğmeye her bastığımda formdaki verileri textin içine tekrar tekrar ekliyor. ben ise düğmeye bastığımda text dosyasının içindeki veriler formdaki verilerle güncellensin istiyorum yardımlarınızı bekliyorum iyi çalışmalar.

On Error Resume Next





Dim db As Database

Dim rs As Recordset

Dim tbl As String



Set db = CurrentDb

    

    Dim yol As String

    yol = CurrentProject.Path

    

tbl = "dene"



DoCmd.Hourglass True

Open yol & "/" & Format(Date, "ddmmyyyy") & ".txt" For Append As #1

  Set rs = db.OpenRecordset("tbl_personelsorgu", dbOpenDynaset)

Do Until rs.EOF

Print #1, Nz(rs!tc, 0) & "," & Nz(rs!ad, ""); "," & Nz(rs!soyad, ""); "," & Nz(rs!gorevi, "")



  rs.MoveNext

  Loop

Close #1

DoCmd.Hourglass False

sayın edacan19,

EK'te;
bahsettiğiniz talebinize yönelik olarak,alternatif pratik bir çözüm olması adına hazırlanmış örnek uygulama mevcuttur.inceleyebilirsiniz.bilginize.

iyi çalışmalar,
saygılar.

Sayı atoz112 örneğiniz tam istediğim gibi çok teşekkür ediyorum.
iyi çalışmalar.