ساشرح باختصار
الكمبو الاول والثانى لاختيار الفروع ووضعت بمصدر الصف لهم نفس الجمله التاليه
SELECT MSysObjects.Name, MSysObjects.Flags
FROM MSysObjects
WHERE (((MSysObjects.Flags)=0) AND ((MSysObjects.Type)=1));
فى حدث بعد التحديث للكمبو الاول وضعنا الكود التالى لجلب الاسماء بناء على الفرع
Sub cmbF1_AfterUpdate()
Dim x As String
Dim strSQL As String
x = Me.cmbF1.Value
strSQL = "SELECT الاسم FROM " & "[" & x & "]" & ";"
Me.cmbEmp.RowSource = strSQL
End Sub
بعد اختيار الاسم
فحدث عند النقر قمت بوضع الكود التالى لالحاق البيانات
Private Sub btnRun_Click()
Dim x As String
Dim y As String
Dim z As String
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