وضع نتيجة استعلام في حقل نصي موجود في نموذج

[زينب الذهبي]

السلام عليكم اخوتي 

سؤالي كيف يمكنني ان اضع نتيجة الاستعلام التالي  في مربع نص غير منضم موجود في نموذج....

strsql1 = "SELECT Employes.Job FROM Employes WHERE ((([Employes]![EmpNum])=[Forms]![Form1]![Names1]));"

اي انني اريد استرجاع العنوان الوظيفي job من الملف employes ووضعه في مربع النص job1  في النموذج form1

Rewards.rar

[jjafferr]

وعليكم السلام

 

همممم

يعني انتي في النموذج Form1 وترسلين قيمة الحقل Names1 كمعيار الى الحقل EmpNum في الاستعلام "استعلام1" ،

وثم تريدين قراءة قيمة الحقل job من الاستعلام "استعلام1" الى الحقل job1 في نفس النموذج Form1 ،

والحقلين موجودين في سجل واحد في الجدول Employes ، والذي يأخذ النموذج والاستعلام نتائجه منه!!

 

هذا يبدو كأنه واجب/اختبار مدرسي!!

 

على العموم ، تستطيعين استخدام الامر Dlookup للحصول على ما تريدين

 

جعفر

[Shivan Rekany]

2 ساعات مضت, jjafferr said:

على العموم ، تستطيعين استخدام الامر Dlookup للحصول على ما تريدين

شكرا استاذ جعفر

2 ساعات مضت, زينب الذهبي said:

اي انني اريد استرجاع العنوان الوظيفي job من الملف employes ووضعه في مربع النص job1  في النموذج form1

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

Private Sub Names1_AfterUpdate()
   Me.Job1 = DLookup("[Job]", "Employes", "[EmpNum]='" & Me.Names1 & "'")
End Sub

او تقدر تستخد هذا كمصدر مربع نصي ل جوب1

=DLookUp("[Job]";"Employes";"[EmpNum]='" & [Names1] & "'")

 واليك قاعدة بياناتك بعد استخدام الطريقة الثانية

 

Rewards.rar

[زينب الذهبي]

شكررررررررررررررررررررررررررا على الرد افدتموني كثيرا