عفرنس قام بنشر سبتمبر 26, 2020 قام بنشر سبتمبر 26, 2020 السلام عليكم .. هل ممكن عمل بحث في نموذج منفرد ؟؟ علما أن النموذج مصدره الجدول وليس استعلام .
ناقل قام بنشر سبتمبر 27, 2020 قام بنشر سبتمبر 27, 2020 اعتقد ممكن تسوى فلتر للنموذج ... بس ارفق مثال مبسط للتجربة
محمد أبوعبدالله قام بنشر سبتمبر 28, 2020 قام بنشر سبتمبر 28, 2020 10 ساعات مضت, ناقل said: اعتقد ممكن تسوى فلتر للنموذج ... بس ارفق مثال مبسط للتجربة تحياتي
عفرنس قام بنشر سبتمبر 28, 2020 الكاتب قام بنشر سبتمبر 28, 2020 23 ساعات مضت, ناقل said: اعتقد ممكن تسوى فلتر للنموذج ... بس ارفق مثال مبسط للتجربة تفضلا أخي @ناقل و معلمنا الخبير @محمد أبوعبدالله البحث يكون في نموذج ( اضافة صورة الهوية والجواز ) F_StuData.rar
تمت الإجابة ناقل قام بنشر سبتمبر 28, 2020 تمت الإجابة قام بنشر سبتمبر 28, 2020 استخدمنا هذا الكود للفلترة .... 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 1
عفرنس قام بنشر سبتمبر 28, 2020 الكاتب قام بنشر سبتمبر 28, 2020 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 ؟
محمد أبوعبدالله قام بنشر سبتمبر 28, 2020 قام بنشر سبتمبر 28, 2020 1 ساعه مضت, فايز.. said: هل أغير في الكود الرقم 7 بالرقم 10 ؟ بالضبط تحياتي
عفرنس قام بنشر سبتمبر 28, 2020 الكاتب قام بنشر سبتمبر 28, 2020 10 دقائق مضت, محمد أبوعبدالله said: بالضبط تحياتي شكر لك أبا عبد الله .. غيرت الرقم 7 بالرقم 10 ولم يضبط .. بمعنى ( لا يتم البحث ) ..
ناقل قام بنشر سبتمبر 28, 2020 قام بنشر سبتمبر 28, 2020 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
عفرنس قام بنشر سبتمبر 29, 2020 الكاتب قام بنشر سبتمبر 29, 2020 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
ناقل قام بنشر سبتمبر 29, 2020 قام بنشر سبتمبر 29, 2020 اخي فايز .... الاسماء في الجدول لديك نهايتها فيه فراغ فلذلك وقت البحث اكتبها ايضا بفراغ ....
عفرنس قام بنشر سبتمبر 29, 2020 الكاتب قام بنشر سبتمبر 29, 2020 2 ساعات مضت, ناقل said: اخي فايز .... الاسماء في الجدول لديك نهايتها فيه فراغ فلذلك وقت البحث اكتبها ايضا بفراغ .... أخي @ناقل جربت أضع اسم الطالب كاملا وضبط معي . لكن ألا يمكن البحث بجزء من الاسم ( الاسم الأول أو الأخير أو أي جزء من الاسم ) لأن من الصعب أن أكتب أو أن أتذكر الاسم كاملا . نحن نريد اختصار الوقت .
kha9009lid قام بنشر سبتمبر 29, 2020 قام بنشر سبتمبر 29, 2020 (معدل) اضافة لما اشار اليه الاساتذة ناقل و محمد ممكن استخدام الكود التالي Me.Filter = "[10] like '*" & Me.n & "*'" Me.FilterOn = True وايضا الكود التالي يؤدي المطلوب DoCmd.ApplyFilter , "[10] like '*" & Me.n & "*'" وجميعها تعطيك امكانية البحث باي جزء من الاسم تحياتي استاذ فايز ولا اخفي اعجابي ببرنامجكم وجهودكم حفظكم الله 🌹 تم تعديل سبتمبر 29, 2020 بواسطه kha9009lid
عفرنس قام بنشر سبتمبر 29, 2020 الكاتب قام بنشر سبتمبر 29, 2020 منذ ساعه, kha9009lid said: اضافة لما اشار اليه الاساتذة ناقل و محمد ممكن استخدام الكود التالي Me.Filter = "[10] like '*" & Me.n & "*'" Me.FilterOn = True وايضا الكود التالي يؤدي المطلوب DoCmd.ApplyFilter , "[10] like '*" & Me.n & "*'" وجميعها تعطيك امكانية البحث باي جزء من الاسم تحياتي استاذ فايز ولا اخفي اعجابي ببرنامجكم وجهودكم حفظكم الله 🌹 شكر الله لك .. الشكر موصول للأخوة الفضلاء في هذا المنتدى المبارك .. سأجرب ما ذكرت وأوافيكم بالنتيجة
kha9009lid قام بنشر سبتمبر 29, 2020 قام بنشر سبتمبر 29, 2020 2 ساعات مضت, فايز.. said: شكر الله لك .. الشكر موصول للأخوة الفضلاء في هذا المنتدى المبارك .. سأجرب ما ذكرت وأوافيكم بالنتيجة الشكر لله اخي فايز ايضا من اساليب البحث اذا اردنا ان نبحث بجزء من الاسم بدون الحاجة الى معيار like واستخدام علامة * عندها ممكن استخدام FindRecord ويكون البحث على النحو التالي Me.نص18.SetFocus DoCmd.FindRecord n, acAnywhere, , acSearchAll وتفسيرها بعد كتابة الاسم او جزء منه في حقل البحث n انقل التركيز الى حقل اسم الموظف وهو لديك في النموذج باسم نص18 ثم نفذ البحث وكذلك الكود الجميل للاستاذ محمد ممكن البحث بجزء من الاسم بعد استبدال السطر الثالث ليكون rs.FindFirst "[10] like '*" & Me.n & "*'" اساليب البحث كثيرة ومتعددة وهناك طرق اكثر احترافية ولكن الكثير من مبرمجي اكسس يفضلون وضع حقل خاص للبحث بينما يمكن البحث في نفس الحقول الاساسية للنموذج ولكن العملية اكثر تعقيدا
عفرنس قام بنشر سبتمبر 29, 2020 الكاتب قام بنشر سبتمبر 29, 2020 (معدل) الإخوة الفضلاء @محمد أبوعبدالله @kha9009lid إخترت مشاركة الأخ الفاضل @ناقل كأفضل إجابة . حيث هو الذي وضع الكود ابتداء . وإلا فمقامكم ومشاركتكم فوق الرأس .. ولن نعدم الفائدة من مشاركاتكم .. جعلكم الله ذخرا لنا .. تحياتي لكم تم تعديل سبتمبر 29, 2020 بواسطه فايز..
عفرنس قام بنشر سبتمبر 30, 2020 الكاتب قام بنشر سبتمبر 30, 2020 19 ساعات مضت, kha9009lid said: اساليب البحث كثيرة ومتعددة وهناك طرق اكثر احترافية ولكن الكثير من مبرمجي اكسس يفضلون وضع حقل خاص للبحث بينما يمكن البحث في نفس الحقول الاساسية للنموذج ولكن العملية اكثر تعقيدا اخي @kha9009lid احتاج مثل هذا البرنامج التوضيحي .. لعلك تزودنا به او باسمه ..
kha9009lid قام بنشر سبتمبر 30, 2020 قام بنشر سبتمبر 30, 2020 13 دقائق مضت, فايز.. said: خي @kha9009lid احتاج مثل هذا البرنامج التوضيحي .. لعلك تزودنا به او باسمه .. من هنا
عفرنس قام بنشر سبتمبر 30, 2020 الكاتب قام بنشر سبتمبر 30, 2020 20 دقائق مضت, kha9009lid said: من هنا وفقك الله
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.