Tarih formatindaki ayraçların "." şeklinde olması için windows tarih-saat ayarlarınızı düzeltmeni gerekiyor. Dosya ismi içindeki tarih için ise butonun tıkladığındaki kodu aşağıdaki ile değiştiriniz..

Private Sub Komut0_Click()

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 = "koha"

DoCmd.Hourglass True

Open yol & "/" & tbl & "-" & Format(Date, "ddmmyy") & ".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

  

End Sub