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

كيفية عمل بحث في اكسس بالفيجوال

مغلق
بدأه K.I.D في 7 ديسمبر 2006 · 5 رد · 719 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

انا عندي كومبو بوكس وابغاه لما افتح الفورم

يجيب معلومات من سجل معين

زي مثلا تسجيل مريض جديد في مستشفى

في الفورم حق تسجيل المريض فيه كومبو بوكس تختار منه نوع الدكتور (عيون ، أسنان، الخ...)

مثلا انا اخترت طبيب العيون

ابغى اربط كومبو بوكس ثاني بسجل معين اسمه shift1 مثلا في قاعدة بيانات اكسس

هذا السجل فيه جميع الدكاترة المتوفرين في وقت معين

ابغى لما اختار "عيون" من (نوع الدكتور) يضيف جميع الدكاترة اللي تخصصهم "عيون" من سجل shift1 بقاعدة البيانات

كيف الطريقة والرجاء الرد بأسرععععععععععععع وقت ممكن

شكرا

#4

أين الكود يا أهل الخبراء

#6 
   Set rstUserList = New ADODB.Recordset
   strSQL = "SELECT UFirstName, ULastName " & _
			"FROM tblUsers"
   rstUserList.Open strSQL, conADO

   Do Until rstUserList.EOF
	  strUserName = rstUserList("UFirstName") & " " & _
					rstUserList("ULastName")
	  lstUsers.AddItem strUserName
	  rstUserList.MoveNext
   Loop

   rstUserList.Close
   Set rstUserList = Nothing

هذا الموضوع مغلق.

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