الحلبي قام بنشر أكتوبر 18, 2023 مشاركة قام بنشر أكتوبر 18, 2023 السلام عليكم مرفق مثال المطلوب : البحث عن كود الصنف فقط وان لم يوجد فى النموذج تظهر رسالة تفيد بعدم وجود هذا الكود اعتقد او اظن ان اظهار الرسالة يحتاج الى كود مهم ارجو ان يكون البحث بدون اى استعلام جزاكم الله كل خير بحث منفرد.accdb رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر أكتوبر 18, 2023 مشاركة قام بنشر أكتوبر 18, 2023 تفضل بحث منفرد.accdb 3 رابط هذا التعليق شارك More sharing options...
Eng.Qassim قام بنشر أكتوبر 18, 2023 مشاركة قام بنشر أكتوبر 18, 2023 7 دقائق مضت, Foksh said: تفضل هو ممكن نستغني عن عدة سطور بسطر واحد If Me.x.Text <> "" Then 'strtxt = Me.x.Text 'strWhere = "[catcods] like '*" & strtxt & "*'" 'Me.Filter = strWhere 'Me.FilterOn = True 'Else 'Me.Filter = "" 'Me.FilterOn = False DoCmd.SearchForRecord , , acFirst, "[catcods]=" & [x] & "" End If 3 رابط هذا التعليق شارك More sharing options...
أفضل إجابة ابو جودي قام بنشر أكتوبر 18, 2023 أفضل إجابة مشاركة قام بنشر أكتوبر 18, 2023 طيب ايه رايكم فى كود صعنون وابن حلال بعد تحديث مربع نص البحث X With Me.Recordset .FindFirst "catcods=" & Me.x If .NoMatch Then MsgBox "Not found" End If End With 2 1 رابط هذا التعليق شارك More sharing options...
Eng.Qassim قام بنشر أكتوبر 18, 2023 مشاركة قام بنشر أكتوبر 18, 2023 2 دقائق مضت, ابو جودي said: طيب ايه رايكم فى كود صعنون هو صعنون وحلو كتير ...زي حلاة صاحبها 1 1 رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر أكتوبر 18, 2023 مشاركة قام بنشر أكتوبر 18, 2023 1 دقيقه مضت, Eng.Qassim said: حلاة صاحبها انت الاحلى يارب يحلى ايامك 1 رابط هذا التعليق شارك More sharing options...
الحلبي قام بنشر أكتوبر 18, 2023 الكاتب مشاركة قام بنشر أكتوبر 18, 2023 2 ساعات مضت, Foksh said: تفضل استاذى الفاضل / @Foksh كما قلت سابقا انت انسان محترم جدا وفيك علم نافع ومهارة فى اكسس ربنا يديم عليك العلم والايمان والنجاج ويرحم والديك حل جميل ومبدع من انسان مبدع دائما ولكن لكما قل الكود فى عدد اسطره فانا اجبذه ـجزاك الله كل خير وجعله فى ميزان الحسنات 2 ساعات مضت, Eng.Qassim said: هو ممكن نستغني عن عدة سطور بسطر واحد انت سباق لعمل الخير ومساعدة جميع الاخوة ـ جعله الله فى ميزان الحسنات وبارك الله فيك اخى الكريم ولكن ملوحظة صغيرة جدا : لم يقم الكود بأظهار رسالة بعدم الوجود جزاك الله كل خير 2 ساعات مضت, ابو جودي said: طيب ايه رايكم فى كود صعنون وابن حلال ايه الحلاوة دى هو صغنون صغنون ولكن كبير فى عبقريتة ـ زى السكينة فى الحلاوة وحشتنا ياباشمهندس / محمد عصام ومشتاقين لهذه الدعابات ومابها من عبقريات سوف استخدم هذا الصغنون ـ جزاك الله خيرا ـ وعفا عنك ومنحك الصحة والعافية ورحم الله والديك جزاك كل خير 2 رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر أكتوبر 18, 2023 مشاركة قام بنشر أكتوبر 18, 2023 4 دقائق مضت, الحلبي said: جزاك الله خيرا ـ وعفا عنك ومنحك الصحة والعافية ورحم الله والديك جزاك كل خير جزاكم الله خيرا يا دكتور على دعواتكم الطيبة لوالداى اسال الله تعالى ان يتقبلها ويرزقكم وكل المسلين فضلها واجرها يارب العالمين امين امين امين 🤲 رابط هذا التعليق شارك More sharing options...
شايب قام بنشر أكتوبر 19, 2023 مشاركة قام بنشر أكتوبر 19, 2023 19 ساعات مضت, ابو جودي said: طيب ايه رايكم فى كود صعنون وابن حلال ممتاز ولكن يحتاج الى اضافة معالجة الخطأ عند اضافة قيمة نصية 2 رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر أكتوبر 19, 2023 مشاركة قام بنشر أكتوبر 19, 2023 9 ساعات مضت, شايب said: ممتاز ولكن يحتاج الى اضافة معالجة الخطأ عند اضافة قيمة نصية استاذى الجليل تأمر يا أفندم If Not IsNumeric(x) Then MsgBox "Not numeric..." Else With Me.Recordset .FindFirst "catcods=" & Me.x If .NoMatch Then MsgBox "Not found" End If End With End If 1 رابط هذا التعليق شارك More sharing options...
الحلبي قام بنشر أكتوبر 19, 2023 الكاتب مشاركة قام بنشر أكتوبر 19, 2023 1 ساعه مضت, شايب said: ممتاز ولكن يحتاج الى اضافة معالجة الخطأ عند اضافة قيمة نصية دائما اتشرف بمشاركة استاذنا ومعلمنا / شايب بارك الله به وفى صحته وعافيته فهو دائما يضيف الى معلوماتنا وانا شخصيا استفيد من كل كلمة بل كل حرف يكتبه لانه فى حديثه حلاوة استشعرها 1 ساعه مضت, ابو جودي said: استاذى الجليل تأمر يا أفندم بارك الله فيك ابنى الباشمهندس محمد رابط هذا التعليق شارك More sharing options...
الحلبي قام بنشر أكتوبر 19, 2023 الكاتب مشاركة قام بنشر أكتوبر 19, 2023 1 ساعه مضت, ابو جودي said: استاذى الجليل تأمر يا أفندم استاذى باشمهندس مش عارف الكود الاخير بعد التعديل لا يعمل معى جرب حضرتك وقول لى 1 رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر أكتوبر 19, 2023 مشاركة قام بنشر أكتوبر 19, 2023 3 ساعات مضت, الحلبي said: دائما اتشرف بمشاركة استاذنا ومعلمنا / شايب بارك الله به وفى صحته وعافيته فهو دائما يضيف الى معلوماتنا وانا شخصيا استفيد من كل كلمة بل كل حرف يكتبه لانه فى حديثه حلاوة استشعرها بارك الله فيك ابنى الباشمهندس محمد هو شغال يا دكتور ولكن على كل حال هذا كود بطريقة أخرى With Me.Recordset If Not IsNumeric(x) Then MsgBox "Not numeric...": .MoveFirst: Exit Sub .FindFirst "catcods=" & Me.x If .NoMatch Then MsgBox "Not found" End With وهذا المرفق بحث منفرد (2).accdb رابط هذا التعليق شارك More sharing options...
الحلبي قام بنشر أكتوبر 19, 2023 الكاتب مشاركة قام بنشر أكتوبر 19, 2023 4 ساعات مضت, ابو جودي said: وهذا المرفق تمام استاذى الغالى الله يفتح عليك 1 رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر أكتوبر 19, 2023 مشاركة قام بنشر أكتوبر 19, 2023 35 دقائق مضت, الحلبي said: الله يفتح عليك العفو منكم يا دكتور انت فى مقام الوالد اسال الله تعالى ان يرزقكم البركة فى العمر والعمل 🤲 جزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان