تفضل .....
f (1).accdb Dim FileNum As Integer
Dim msgstyle
FileNum = FreeFile
Open "D:\officena.txt" For Append As #1
Print #1, Forms!pay!f; ""
Close FileNum
MsgBox Space(20) & "تمت العملية بنجاح..تجد الملف باسم D:\officena" & Space(20), msgstyle, "للمعلومية"