الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

[تنبيه - عنوان غير مناسب : ]كود مستعجل هام

بدأه elbry1907 في 5 نوفمبر 2008 · 2 رد · 527 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

بســم الله الـرحمــن الرحيــم

السلام عليكــم ورحمـة الله وبركاتــة

محتاج منكم مساعدة ضرورى اذا تكرمتم

عندى قاعدة بيانات من جدولين الجدول الاول جدول الموظفين يحتوى على ( رقم الموظف - اسم الموظف - اسم القسم ) الجدول الثانى يعتمد على الجدول الاول بنسبة كبيرة ( اسم الموظف - القسم - تاريخ التذكرة ... الخخخخ ) المطلول هنا

فى الجدول الثانى اختار اسم القسم من الكومبو بوكس تظهر فى الكمبو بوكس اسماء الموظفين الخاصين بهذا القسم

ارجو الاجابة ضرورى

#2

الأخ الكريم/الأخت الكريمة

السلام عليكم ورحمة الله وبركاته

مرحباً بكم في منتدى الفريق العربي للبرمجة

نود تنبيهك أن العنوان غير مناسب.

الرجاء اختيار عنوان مناسب أكثر في مواضيعك القادمة، وهذا بمثابة إشعار للأهمية.

وفي حال التكرار سيتعرض موضوعك للإغلاق والحذف!!!

قواعد المشاركة

/index.php?showtopic=29343

شاكرين لكم حُسن تعاونكم

سبحان الله وبحمده ... سبحان الله العظيم

#3

حسب فهمت اضن ان هذا الكود الذي صنعته سوف يفي

بالغرض على اعتبار ان قيمة

X

هي اسم القسم وطريقة الربط باستخدام اداة

DataControl

Data1.RecordSource = "Select * From Table_Name Where اسم_القسم = '" & X & " '"
 Data1.Refresh
 If Data1.Recordset.RecordCount <> 0 Then
 Data1.Recordset.MoveFirst
 For I% = 0 To Data1.Recordset.RecordCount
 Data1.Recordset.AbsolutePosition = I
 Combo1.AddItem Data1.Recordset.Fields!اسم_الموظف
 Next
 End If
 Data1.RecordSource = "Table_Name"
 Data1.Refresh

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…