مساعدة في كود بحث

[blue sea]

السلام عليكم..

ارجو منكم اضافة كود البحث  عن الاسم في حقل emp _name  في نفس النموذج ضمن الملف المرفق واخفاء الازرار السفلية عند البحث .. مع التقدير

Database2023.accdb

تم تعديل الخميس at 23:01 بواسطه blue sea

[الحلبي]

4 ساعات مضت, blue sea said:

ارجو منكم اضافة كود البحث  عن الاسم في حقل emp _name

حاول ان ترفق مثال بنسخة اقل من النسخة المرفقة حتى يستطيع الاخوان مساعدتك

[blue sea]

تقصد نسخة اوفيس اقدم؟ ارجو التوضيح

تم تعديل الجمعة at 04:35 بواسطه blue sea

[الحلبي]

 

51 دقائق مضت, blue sea said:

تقصد نسخة اوفيس اقدم؟ ارجو التوضيح

نسخة 2010 معظمنا يعمل عليها

[سامي الحداد]

وعليكم السلام

تفضل اخي الكريم

Private Sub cmdSearch_Click()
Dim strSearch As String
Static XC
Dim rs As Object
Set rs = Me.RecordsetClone
Me.أمر26.Visible = False
Me.أمر27.Visible = False
Me.أمر29.Visible = False
Me.أمر30.Visible = False
Me.أمر32.Visible = False
Me.أمر35.Visible = False

   If IsNull(Me![txtSearch]) Or (Me![txtSearch]) = "" Then
          MsgBox "رجاء ادخل اسم للبحث عنه", vbOKOnly, "خطأ في البحث"
          Me![txtSearch].SetFocus
   Exit Sub
   End If
   strSearch = Me![txtSearch]
  
   With rs
  .FindNext "[emp_nam] like '*" & strSearch & "*'"
   
   If Not .emp_nam Like "*" & strSearch & "*" Then
          MsgBox "لا يوجد سجل بهذا الإسم :  " & strSearch, vbCritical, "غير موجود"
          Me.txtSearch = ""
          Me![txtSearch].SetFocus

   ElseIf .NoMatch Then
          MsgBox "آخر سجل في البحث عن :  " & strSearch, vbExclamation, "آخر سجل"
          Me.cmdSearch.Caption = "بحث"
          Me.txtSearch = ""
          Me![txtSearch].SetFocus
          Me.cmdSearch.ForeColor = RGB(0, 0, 255)
Me.أمر26.Visible = True
Me.أمر27.Visible = True
Me.أمر29.Visible = True
Me.أمر30.Visible = True
Me.أمر32.Visible = True
Me.أمر35.Visible = True

  DoCmd.GoToRecord , , acFirst
  rs.MoveFirst
  XC = 0
   Else
XC = XC + 1
   Me.Bookmark = .Bookmark
          If XC = 1 Then MsgBox "تم ايجاد اسم :  " & strSearch, vbInformation, "مبروك"
          Me.cmdSearch.Caption = "اكمال البحث"
          Me.cmdSearch.ForeColor = RGB(255, 0, 0)
   End If
   End With

rs.Close
Set rs = Nothing


End Sub

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

تحياتي 

Database2023.accdb

[blue sea]

اشكرك اخي جزيل الشكر @سامي الحداد

[سامي الحداد]

الشكر لله عز وجل اخي العزيز.

بالتوفيق