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 = "tbl_perooosonel"
 
DoCmd.Hourglass True
Open yol & "/" & tbl & ".txt" For Append As #1
  Set rs = db.OpenRecordset("TERAZI", dbOpenDynaset)
Do Until rs.EOF
 
Print #1, Nz(rs!STOKADI, ":") & "" & Nz(rs!BARKOD, ":"); "   " & Nz(rs!SFIYAT, 0)
 
  rs.MoveNext
  Loop
Close #1
DoCmd.Hourglass False

Public Function sinir(veri As String, sayiuzunluk As Integer)
Dim v, s, k As Integer
 
v = Len(veri)
s = sayiuzunluk
 
    If v = s Or v = 0 Then
        Exit Function
 
    ElseIf v < s Then
        k = s - v
        sinir = veri & Space(k)
 
    ElseIf v > s Then
        sinir = Mid(veri, 1, s)
 
    End If
 
End Function