اريد عند اختيار عنوان معين من listbox

السلام عليكم

نصيحة لك لتجنب مواضيعك الإغلاق

اول ان تجد عنواناً مناسب للموضوع

و تجنب تخصيص النداء "للمحترفين - لفلان - لاعلان "

حاول ان تستفيد من الكواد ادناه

و اتمني ان يكون خالي من الأخطاء

لاني لا أملك فجوال بيسك علي الجهاز

private sub list1_click()

    text1.text = list1.text       

    set rs = db.openrecordset("tbl", dbOpenTable)
    
    SQL = "select * from tbl where field1 ="text1.text"
    
    set rs = db.openrecordset(SQL, 2) 'Table
   if rs.RecordCount > 0 Then
	with form2
       	 .text1.text = rs!field1
       	 .text2.text = rs!field2
	end with

    else
        msgbox "عفواً , لا توجد نتائج "

    end If
     
end sub

السلام عليكم

اخى الكريم

كما قال لك الاخ ابراهيم الطيب

اقتباس

نصيحة لك لتجنب مواضيعك الإغلاق

اول ان تجد عنواناً مناسب للموضوع

و تجنب تخصيص النداء "للمحترفين - لفلان - لاعلان "

وشكرا جزيلا للاخ ابراهيم على التنبيه

ساقوم بتغيير عنوان الموضوع,,,

اليك هذا الكود

بعد ما تدوس على الزرار command1 علشان تكتب جواه الكود استعمل الجملة الإستعلامية دي

" ' " & sql = " select * from Tabel name where Filde name = ' " & list1.text

tabel name = اسم الجدول

filde name = اسم الحقل المراد ان يساوي المختار من الـ list1

علشان تضع اعراض المرض في text1 و اسم المرض في text2

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

لو في أول الجدول هايبقى رقمه 0 ولو في ثاني الجدول يبقى رقمه 1 وهاكذا اليك تفصيل اكثر بأرقام العمود

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

رقم المرض| اسم المرض| اعراض المرض

هنا رقم الحقل اللي اسمه ( رقم المرض ) = 0

رقم الحقل اللي اسمه ( اسم المرض ) = 1

رقم الحقل اللي اسمه ( اعراض المرض ) = 2

فاهم حاجة ؟؟؟

ولنفرض ان الحقل اعراض المرض رقمه 2 عندك في القاعدة وتريد ان يظهر في الـ text1 بعد ما تكتب الجملة الإستعلامية اللي فاتت تكتب

text1.text = rs(2) ' to select the secon 3amood beta3 a3rad el mard

text2.text=rs(1) ' to select first 3amood beta3 esm el mard

الـ rs ده قناة الإتصال اللي بين البرنامج وقاعدة البيانات

طبعا الجملة الأولانية تخص أعراض المرض وهي معناها بعد طبعا جملة الإستعلام اللي فوق خالص

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

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

ومن الممكن ان تستغني عن الجملة الثانية دي لأن اسم المرض مسجل او مكتوب فعلا في list1 صح فمن الممكن ان تكتب الكود ده

text1.text = list1.text

-----------------------------------------------

شكر على اهتمامكم ونصيحتي كما اخص باالشكر حبييبي MohamedAliSalim الذي ابدى اهتمام واضح في المشكلة إن شاء الله اليوم بجرب الكود وتنحل هذة المشكلة وشكرا