اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

البحث في نموذج منفرد


عفرنس
إذهب إلى أفضل إجابة Solved by ناقل,

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

23 ساعات مضت, ناقل said:

اعتقد ممكن تسوى فلتر للنموذج ... بس ارفق مثال مبسط للتجربة

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

البحث يكون في نموذج ( اضافة صورة الهوية والجواز ) 

image.png.ce914e719955138ac15d162a5ba3efbf.png

F_‏‏‏‏StuData.rar

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

3 ساعات مضت, ناقل said:

استخدمنا هذا الكود للفلترة ....


 Dim rs As Object
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[7] = '" & Me![n] & "'"
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark

 

F_____StuData.rar 251.15 kB · 8 downloads

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

لكني أريد بحث باسم الطالب وليس برقم الهوية . 

هل أغير في الكود الرقم 7 بالرقم 10 ؟

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

35 دقائق مضت, فايز.. said:

شكر لك أبا عبد الله .. 

غيرت الرقم 7 بالرقم 10 ولم يضبط .. بمعنى ( لا يتم البحث ) .. 

ضع هذا الكود .... وجرب

 Dim rs As Object
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[10] = '" & Me.n & "'"
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark

 

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

6 ساعات مضت, ناقل said:

ضع هذا الكود .... وجرب


 Dim rs As Object
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[10] = '" & Me.n & "'"
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark

 

أخي @ناقل ما ضبط الكود .. لعلك تجرب على البرنامج .. 

12 ساعات مضت, ناقل said:

استخدمنا هذا الكود للفلترة ....


 Dim rs As Object
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[7] = '" & Me![n] & "'"
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark

 

F_____StuData.rar 251.15 kB · 12 downloads

 

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

2 ساعات مضت, ناقل said:

اخي فايز .... 

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

أخي @ناقل 

جربت أضع اسم الطالب كاملا وضبط معي . 

لكن ألا يمكن البحث بجزء من الاسم ( الاسم الأول أو الأخير أو أي جزء من الاسم ) لأن من الصعب أن أكتب أو أن أتذكر الاسم كاملا .  

نحن نريد اختصار الوقت . 

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

اضافة لما اشار اليه الاساتذة ناقل و محمد

ممكن استخدام الكود التالي

Me.Filter = "[10] like '*" & Me.n & "*'"
Me.FilterOn = True

وايضا الكود التالي يؤدي المطلوب

DoCmd.ApplyFilter , "[10] like '*" & Me.n & "*'"

وجميعها تعطيك امكانية البحث باي جزء من الاسم

تحياتي استاذ فايز ولا اخفي اعجابي ببرنامجكم وجهودكم حفظكم الله 🌹

تم تعديل بواسطه kha9009lid
رابط هذا التعليق
شارك

منذ ساعه, kha9009lid said:

اضافة لما اشار اليه الاساتذة ناقل و محمد

ممكن استخدام الكود التالي


Me.Filter = "[10] like '*" & Me.n & "*'"
Me.FilterOn = True

وايضا الكود التالي يؤدي المطلوب


DoCmd.ApplyFilter , "[10] like '*" & Me.n & "*'"

وجميعها تعطيك امكانية البحث باي جزء من الاسم

تحياتي استاذ فايز ولا اخفي اعجابي ببرنامجكم وجهودكم حفظكم الله 🌹

شكر الله لك .. 

الشكر موصول للأخوة الفضلاء في هذا المنتدى المبارك .. 

سأجرب ما ذكرت وأوافيكم بالنتيجة 

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

2 ساعات مضت, فايز.. said:

شكر الله لك .. 

الشكر موصول للأخوة الفضلاء في هذا المنتدى المبارك .. 

سأجرب ما ذكرت وأوافيكم بالنتيجة 

الشكر لله اخي فايز

ايضا من اساليب البحث اذا اردنا ان نبحث بجزء من الاسم بدون الحاجة الى معيار like واستخدام علامة *

عندها ممكن استخدام FindRecord

ويكون البحث على النحو التالي

Me.نص18.SetFocus
DoCmd.FindRecord n, acAnywhere, , acSearchAll

وتفسيرها بعد كتابة الاسم او جزء منه في حقل البحث n

انقل التركيز الى حقل اسم الموظف وهو لديك في النموذج باسم  نص18

ثم نفذ البحث

وكذلك الكود الجميل للاستاذ محمد ممكن البحث بجزء من الاسم بعد استبدال السطر الثالث ليكون

  rs.FindFirst "[10] like '*" & Me.n & "*'"

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

 

بحث2.gif

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

الإخوة الفضلاء @محمد أبوعبدالله @kha9009lid  إخترت مشاركة الأخ الفاضل @ناقل كأفضل إجابة . حيث هو الذي وضع الكود ابتداء . وإلا فمقامكم ومشاركتكم فوق الرأس ..

ولن نعدم الفائدة من مشاركاتكم .. جعلكم الله ذخرا لنا ..

تحياتي لكم

تم تعديل بواسطه فايز..
رابط هذا التعليق
شارك

19 ساعات مضت, kha9009lid said:

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

 

بحث2.gif

اخي @kha9009lid احتاج مثل هذا البرنامج التوضيحي  .. لعلك تزودنا به او باسمه .. 

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

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