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

[الحلبي]

السلام عليكم 

مرفق مثال

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

اعتقد او اظن ان اظهار الرسالة يحتاج الى كود مهم

ارجو ان يكون البحث بدون اى استعلام  

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

بحث منفرد.accdb

[Foksh]

تفضل

بحث منفرد.accdb

[Eng.Qassim]

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

 

[ابو جودي]

طيب ايه رايكم فى كود صعنون وابن حلال 

بعد تحديث مربع نص البحث X

With Me.Recordset
    .FindFirst "catcods=" & Me.x
    If .NoMatch Then
        MsgBox "Not found"
    End If
End With

 

[Eng.Qassim]

2 دقائق مضت, ابو جودي said:

طيب ايه رايكم فى كود صعنون

هو صعنون وحلو كتير ...زي حلاة صاحبها 

[ابو جودي]

1 دقيقه مضت, Eng.Qassim said:

حلاة صاحبها 

انت الاحلى يارب يحلى ايامك

[الحلبي]

2 ساعات مضت, Foksh said:

تفضل

استاذى الفاضل / @Foksh

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

حل جميل ومبدع من انسان مبدع دائما ولكن لكما قل الكود فى عدد اسطره فانا اجبذه ـجزاك الله كل خير وجعله فى ميزان الحسنات

2 ساعات مضت, Eng.Qassim said:

هو ممكن نستغني عن عدة سطور بسطر واحد

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

ولكن ملوحظة صغيرة جدا : لم يقم الكود بأظهار رسالة بعدم الوجود

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

2 ساعات مضت, ابو جودي said:

طيب ايه رايكم فى كود صعنون وابن حلال

ايه الحلاوة دى هو صغنون صغنون ولكن كبير فى عبقريتة ـ زى السكينة فى الحلاوة 

وحشتنا ياباشمهندس / محمد عصام ومشتاقين لهذه الدعابات ومابها من عبقريات

سوف استخدم هذا الصغنون ـ جزاك الله خيرا ـ وعفا عنك ومنحك الصحة والعافية ورحم الله والديك

جزاك كل خير

[ابو جودي]

4 دقائق مضت, الحلبي said:

جزاك الله خيرا ـ وعفا عنك ومنحك الصحة والعافية ورحم الله والديك

جزاك كل خير

جزاكم الله خيرا يا دكتور على دعواتكم الطيبة لوالداى اسال الله تعالى ان يتقبلها ويرزقكم وكل المسلين فضلها واجرها يارب العالمين

امين امين امين 🤲

[شايب]

19 ساعات مضت, ابو جودي said:

طيب ايه رايكم فى كود صعنون وابن حلال 

ممتاز ولكن يحتاج الى اضافة معالجة الخطأ عند اضافة قيمة نصية

 

[ابو جودي]

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 ساعه مضت, شايب said:

ممتاز ولكن يحتاج الى اضافة معالجة الخطأ عند اضافة قيمة نصية

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

1 ساعه مضت, ابو جودي said:

استاذى الجليل تأمر يا أفندم

بارك الله فيك ابنى الباشمهندس محمد

[الحلبي]

1 ساعه مضت, ابو جودي said:

استاذى الجليل تأمر يا أفندم

استاذى باشمهندس مش عارف الكود الاخير بعد التعديل لا يعمل معى

جرب حضرتك وقول لى

[ابو جودي]

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

[الحلبي]

4 ساعات مضت, ابو جودي said:

وهذا المرفق 

تمام استاذى الغالى الله يفتح عليك

[ابو جودي]

35 دقائق مضت, الحلبي said:

الله يفتح عليك

العفو منكم يا دكتور انت فى مقام الوالد
اسال الله تعالى ان يرزقكم البركة فى العمر والعمل 🤲

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