[السيد الغالي]

السلام عليكم
في المشروع الذي لدي لا يوجد حقل للقسم لذا اضيفي حقل للقسم في الجدول وليكن اسمه dep اختصارا لكلمة Department
وضعي الكود التالي في حدث تحميل فورم قسم الكهرباء مثلا او فورم لاي قسم :

كود :

dim x
"قسم الكهربا" = x
"%'"& Adodc1.RecordSource = " select * from table1 where dep like '" & x
Adodc1.CommandType = adCmdText
Adodc1.Refresh

مع ملاحظة اداة الربط adodc واسم الجدول في الكود اعلاه اسم الجدول table1
اعمل ذلك وسوف تظهر لديك اسماء قسم الكهرباء فقط وهكذا لبيقة الاقسام مع تغيير قيمة x الى القسم المطلوب
تحياتي لك