اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

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

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

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

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

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

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

‏‏دليل ارقام التحويلات.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

  • Like 1
رابط هذا التعليق
شارك

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  =

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

 

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

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

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

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

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

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

 

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

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

شرح جميل 

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • اضف...

Important Information