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

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

قام بنشر (معدل)
  في 8‏/7‏/2022 at 18:27, Eng.Qassim said:

الظاهر انك تريد البحث بالاسم ..شاهد المرفق

Expand  

مشاركة مع الاستاذ قاسم ممكن اختصار الكود الى

Me.Filter = "[id]=" & Me.c_2.Column(0)
Me.FilterOn = True

او كتابته هكذا

DoCmd.ApplyFilter , "[id]=" & Me.cbo1.Column(0)

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

Like "" & [Forms]![نموذج1]![c_2] & ""

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

ويمكن ايضا البحث بدون فلترة وهنا سيتم نقل المؤشر للسجل المطلوب

DoCmd.SearchForRecord acDataForm, "نموذج1", acFirst, "[id]=" & Me.c_2.Column(0)

انا غيرت اسم حقل المعرف الى id لكونه اسهل عند كتابة الاكواد

تحياتي

تم تعديل بواسطه مبرمج سابق
  • Like 1
قام بنشر

ياسلام عليك اخي استاذ خالد @مبرمج سابق

بالحقيقة الموقع مليء بانواع الفلترة ..لكني افكر بعمل مشاركة (او انت طبعا )... بمعظم انواع الفلترة حتى يستفيد منها الاخوة الاعضاء

  • Like 1
قام بنشر
  في 8‏/7‏/2022 at 19:17, Eng.Qassim said:

الحقيقة الموقع مليء بانواع الفلترة

Expand  

طبعا هناك فلترة وهناك بحث والفرق ان الفلترة تظهر فقط ما يطابق معيارها

اما البحث فتبقى السجلات في النموذج وينتقل التركيز للسجل المطابق لمعيار البحث

مثال الامر DoCmd.FindRecord

له سبعة معلمات

FindWhat و Match و MatchCase و Search و  SearchAsFormatted و OnlyCurrentField و FindFirst

مثال لو اردنا البحث برقم الايدي للموظف

Me.id.SetFocus
DoCmd.FindRecord tx2, , True, , True

في البداية نقلنا التركيز لحقل id ثم بحثا عن القيمة التي فيه مطابقة للمكتوب في حقل البحث tx2

وايضا ممكن نكتبة الامر هكذا

Me.id.SetFocus
DoCmd.FindRecord tx2, , , , , acCurrent

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

افضل دائما استخدم هذا الامر مع معرف فريد للحصول على نتيجة صحيحة

  في 8‏/7‏/2022 at 19:17, Eng.Qassim said:

لكني افكر بعمل مشاركة (او انت طبعا )... بمعظم انواع الفلترة حتى يستفيد منها الاخوة الاعضاء

Expand  

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

تحياتي وكل عام وانتم بخير

قام بنشر
  في 8‏/7‏/2022 at 20:02, مبرمج سابق said:

فانا معلوماتي قديمة واشارك بما تجود به ذاكرتي والتي كثيرا ما تخذلني

Expand  

قبل 3 اشهر ..دخلت في دورة علمية من اجل الترقية .. وجميع المواضيع ليست من اختصاصي ..فالمواضيع تخص تكنولوجيا الاتصالات وانا اختصاصي مهندس مدني

وكان تحدي كبير بالنسبة لي امام مشاركين جميعم اختصاص اتصالات ..ومعظمهم من الفئات الشابة ...وانا عمري يقترب من نهاية الخمسينيات ..

حصلت على علامة 100% في جميع المواد .. وحصلت على كتاب شكر وتقدير

القصد ... الارادة فوق مسميات العمر

وانت استاذي خالد ...لديك ارادة فوق مسميات العمر

قام بنشر
  في 8‏/7‏/2022 at 20:30, Eng.Qassim said:

حصلت على علامة 100% في جميع المواد .. وحصلت على كتاب شكر وتقدير

Expand  

ماشاء الله تبارك الله امر غير مستغرب منكم

  في 8‏/7‏/2022 at 20:30, Eng.Qassim said:

القصد ... الارادة فوق مسميات العمر

Expand  

ليس دائما ولكن الى حد ما فالهمة والعزم والطموح والارادة والرغبة تختلف من شخص الى اخر و من مرحلة الى اخرى

يقول الله عز وجل " اللَّهُ الَّذِي خَلَقَكُمْ مِنْ ضَعْفٍ ثُمَّ جَعَلَ مِنْ بَعْدِ ضَعْفٍ قُوَّةً ثُمَّ جَعَلَ مِنْ بَعْدِ قُوَّةٍ ضَعْفًا وَشَيْبَةً يَخْلُقُ مَا يَشَاءُ وَهُوَ الْعَلِيمُ الْقَدِيرُ "

وقوله سبحانه " وَاللَّهُ خَلَقَكُمْ ثُمَّ يَتَوَفَّاكُمْ ۚ وَمِنكُم مَّن يُرَدُّ إِلَىٰ أَرْذَلِ الْعُمُرِ لِكَيْ لَا يَعْلَمَ بَعْدَ عِلْمٍ شَيْئًا ۚ إِنَّ اللَّهَ عَلِيمٌ قَدِيرٌ "

مع الاعتذار لصاحب الموضوع عن الاستطراد ولكن قد يشفع لي ولك اننا اشرنا الى عدة طرق للفلترة والبحث ربما يستفيد منها احدهم

تحياتي وتقديري ولنا لقاء في موضوع اخر باذن الله

  • Like 1

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.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information