تريد طريقة الاشارة الى النموذج الفرعي من نموذج اخر .... صحيح .... يتم ذلك بالاشارة الى النموذج الرئسيي ثم الفرعي ثم نقل التركيز اليه
Forms![special]!special22.SetFocus
تفضل .....
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, "للمعلومية"
ولا انا لم افهم السؤال من الوهلة الاولى ..... ولكن حاولت استدرجه بالسؤال حتى افهم فلذلك وضعت المثال الاولي .... ليجيب هو تلقائيا عن المطلوب ... والحمد لله