استفسار اتمنى اجد له صدى

هل من مجيب ؟!

السلام عليكم

اولا ، البحث عن قيمة داخل جدول سهلة ولا أظنك تجهلها ولكن سوف اكتبها لك .

عند البحث عن قيمة داخل جدول ،، وبعد وجود تلك القيم يمكنك تحميلها لمتغيرات وفي النموذج الثاني تقوم بقراءة المتغيرات ووضعها في صندوق نص . هذه اسهل طريقة .

اذا كانت القيمة المراد البحث عنها عبارة عن سلسلة نصية

SQL = "Select * from Table Where Field = '" & YourValue & "'"

او رقم بالطريقة الاتية

SQL = "Select * from Table Where Field = " & YourValue

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

Set Rec = Db.OpenRecordset (sql)
With Rec
        IF .Eof then 
Msgbox "Value Not Found"
        Else
m_Name = !Field_Name
m_Age = !Field_Age

                     Form2.Show
End if 
.Close
End With

حيث Rec معرف Recordset

وDB معرف Database

وبعد استدعاء النموذج الثاني Form2 يتم قراءة المتغيرات ووضعها في أماكنها كما تريد

أرجوا ان اكون قد وفقت في الشرح

أما السؤال الثاني : الخاص بالرسم

يوجد طريقتين الاولي سهلة للغاية والثانية معقدة للغاية ،

الطريقة الاولي :

عند حدث النقر MouseDown للنافذة المراد الرسم عليها قم بتخزين أحداثيات الماوس في قاعدة بيانات . وبعد ذلك عن النقر علي نفس الاحداثيات يتم تنفيذ ما تريد . ولكن المشكلة تكمن في ان النقر يجب ان يكون بالضبط في نفس المكان السابق(المسجل في قاعدة البيانات) .

اما الطريقة الثانية وهي المعقدة ، ولكنها الافضل . وهي استخدام دوال API والدالة هي

CreateDC أو CreateRegionوهي خاصة بانشاء منطقة مسجلة .

واستخدام الدالة PtInRegion لمعرفة ان حدث النقر كان داخل المنطقة او لا .

وهذا المثال يوضح الفكرة .

وعذرا للتأخير واي استفسار او مساعدة لا تتردد .

تحياتي لك

Prof_1982-Drawing.zip