استخدام قائمة للبحث داخل النموذج

[ابو عبدالحميد]

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

كيفكم شباب ان شاء الله طيبين وكل عام وانتم بخير

ارجو منكم حل هذه المشكلة البسيطة انا عملت برنامج عبارة عن دليل ارقام التحولات داخل عملي

واريد منكم عمل كود السجل المحدد 

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

وجزاكم الله خير

‏‏دليل ارقام التحويلات.rar

تم تعديل يوليو 18, 2017 بواسطه ابوخليل
تعديل العنوان

[ابوخليل]

تفضل

Dim x
x = SearchList.Column(0)
If Not IsNull(x) Then
Me.RecordsetClone.FindFirst "[id] = " & x
Me.Bookmark = Me.RecordsetClone.Bookmark
End If

 

‏‏دليل ارقام التحويلات2.rar

[ابو عبدالحميد]

18 دقائق مضت, ابوخليل said:

تفضل

Dim x
x = SearchList.Column(0)
If Not IsNull(x) Then
Me.RecordsetClone.FindFirst "[id] = " & x
Me.Bookmark = Me.RecordsetClone.Bookmark
End If

 

‏‏دليل ارقام التحويلات2.rar

بارك الله فيك يا أبو خليل على المساعدة

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

وجزاك الله خير

[صالح حمادي]

السلام عليكم

مشاركة مع اخي ابوخليل

ضع هذا الكود في حدث عند الضغط المزدوج على مربع القائمة

DoCmd.SearchForRecord acDataForm, "Tahwela", acFirst, "[id] =" & Me.SearchList

 

‏‏دليل ارقام التحويلات.rar

[hh88]

On 18/07/2017 at 0:56 PM, ابوخليل said:

تفضل

Dim x
x = SearchList.Column(0)
If Not IsNull(x) Then
Me.RecordsetClone.FindFirst "[id] = " & x
Me.Bookmark = Me.RecordsetClone.Bookmark
End If

 

‏‏دليل ارقام التحويلات2.rar

اخي ابو خليل

السلام عليكم 

كود مفيد كثيرا جدا 

حاولت أطبقه على مثال عندي ولم افهمه ولَم يضبط 

هل ممكن شرح بسيط كيف يعمل الكود 

ومالمقصود X 

وماهي اسماء الحقول 

 

اعتذر منك ياستاذي 

بانتطارك 

 

[ابوخليل]

اخونا عبد الحميد تم فصل  استفساراتك  كمواضيع مستقلة

بالنسبة لشرح  الجمل البرمجية أعلاه.

بصورة عامة : يتم البحث في مجموعة السجلات عن القيمة x  في الحقل id وعندما يجدها يتوقف ويظهر النتيجة

Dim x } } اكس هذه تمثل قيمة عامة تم الاعلان عنها بـــ Dim ليعرفها اكسس 

 {x = SearchList.Column(0)}هنا اعطينا اكس قيمة وهي = قيمة اول حقل سجل بالقائمة حيث الرقم صفر  المحصور بين القوسين يدل على ترتيب العمود داخل القائمة

If Not IsNull(x) Then} } إذا اكس يحمل قيمة

{Me.RecordsetClone.FindFirst "[id] = " & x}  معلوم ان الحدث تم عند النقر على الحقل أي ان التركيز كان على حقل معين في سجل ضمن مجموع السجلات فالسطر اعلاه  يعني : ابحث واستنسخ كامل السجل بشرط  id  = x 

{Me.Bookmark = Me.RecordsetClone.Bookmark)  اظهار  نتيجة البحث

 

[hh88]

1 hour ago, ابوخليل said:

اخونا عبد الحميد تم فصل  استفساراتك  كمواضيع مستقلة

بالنسبة لشرح  الجمل البرمجية أعلاه.

بصورة عامة : يتم البحث في مجموعة السجلات عن القيمة x  في الحقل id وعندما يجدها يتوقف ويظهر النتيجة

Dim x } } اكس هذه تمثل قيمة عامة تم الاعلان عنها بـــ Dim ليعرفها اكسس 

 {x = SearchList.Column(0)}هنا اعطينا اكس قيمة وهي = قيمة اول حقل سجل بالقائمة حيث الرقم صفر  المحصور بين القوسين يدل على ترتيب العمود داخل القائمة

If Not IsNull(x) Then} } إذا اكس يحمل قيمة

{Me.RecordsetClone.FindFirst "[id] = " & x}  معلوم ان الحدث تم عند النقر على الحقل أي ان التركيز كان على حقل معين في سجل ضمن مجموع السجلات فالسطر اعلاه  يعني : ابحث واستنسخ كامل السجل بشرط  id  = x 

{Me.Bookmark = Me.RecordsetClone.Bookmark)  اظهار  نتيجة البحث

 

الف شكر اخي ابو خليل 

جعله الله في ميزان حسناتك 

شرح جميل