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