اعمل نموذج بالملف اللي عندك . وضع فيه كما بالصورة التالية
ثم انسخ الأكواد التالية في محرر الآكواد
Option Compare Database
Sub cmbF1_AfterUpdate()
x = Me.cmbF1.Value
y = Me.cmbF2.Value
z = Me.cmbEmp.Value
strSQL = "SELECT الاسم FROM " & "[" & x & "]" & ";"
Me.cmbEmp.RowSource = strSQL
End Sub
Private Sub command0_Click()
x = Me.cmbF1.Value
y = Me.cmbF2.Value
z = Me.cmbEmp.Value
DoCmd.RunSQL "INSERT INTO " & "[" & y & "]" & "( الاسم, [تاريخ الميلاد], [الشهاده الجامعيه], الجامعه, الراتب, [الحاله الاجتماعيه], [تاريخ بداية الخدمه] )" & _
"SELECT الاسم,[تاريخ الميلاد],[الشهاده الجامعيه],الجامعه,الراتب,[الحاله الاجتماعيه], Date() AS SDate " & _
"FROM " & "[" & x & "]" & " WHERE (الاسم='" & z & "');"
End Sub