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

[الحلبي]

السلام عليكم 

مرفق مثال

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

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

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

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

بحث منفرد.accdbFetching info...

[Foksh]

تفضل

بحث منفرد.accdbFetching info...

[Eng.Qassim]

  في 18‏/10‏/2023 at 12:00, Foksh said:

تفضل

Expand  

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

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]

  في 18‏/10‏/2023 at 12:10, ابو جودي said:

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

Expand  

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

[ابو جودي]

  في 18‏/10‏/2023 at 12:14, Eng.Qassim said:

حلاة صاحبها 

Expand  

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

[الحلبي]

  في 18‏/10‏/2023 at 12:00, Foksh said:

تفضل

Expand  

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

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

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

  في 18‏/10‏/2023 at 12:08, Eng.Qassim said:

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

Expand  

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

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

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

  في 18‏/10‏/2023 at 12:10, ابو جودي said:

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

Expand  

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

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

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

جزاك كل خير

[ابو جودي]

  في 18‏/10‏/2023 at 14:20, الحلبي said:

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

جزاك كل خير

Expand  

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

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

[شايب]

  في 18‏/10‏/2023 at 12:10, ابو جودي said:

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

Expand  

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

 

[ابو جودي]

  في 19‏/10‏/2023 at 07:22, شايب said:

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

Expand  

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

    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

 

[الحلبي]

  في 19‏/10‏/2023 at 07:22, شايب said:

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

Expand  

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

  في 19‏/10‏/2023 at 07:43, ابو جودي said:

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

Expand  

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

[الحلبي]

  في 19‏/10‏/2023 at 07:43, ابو جودي said:

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

Expand  

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

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

[ابو جودي]

  في 19‏/10‏/2023 at 09:27, الحلبي said:

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

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

Expand  

هو شغال يا دكتور 

ولكن على كل حال هذا كود بطريقة أخرى

  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).accdbFetching info...

[الحلبي]

  في 19‏/10‏/2023 at 12:48, ابو جودي said:

وهذا المرفق 

Expand  

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

[ابو جودي]

  في 19‏/10‏/2023 at 17:17, الحلبي said:

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

Expand  

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

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