اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


blue sea
إذهب إلى أفضل إجابة Solved by سامي الحداد,

الردود الموصى بها

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

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

Database2023.accdb

تم تعديل بواسطه blue sea
رابط هذا التعليق
شارك

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

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

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

رابط هذا التعليق
شارك

  • أفضل إجابة

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

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

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

  • Like 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information