blue sea قام بنشر مايو 25, 2023 مشاركة قام بنشر مايو 25, 2023 (معدل) السلام عليكم.. ارجو منكم اضافة كود البحث عن الاسم في حقل emp _name في نفس النموذج ضمن الملف المرفق واخفاء الازرار السفلية عند البحث .. مع التقدير Database2023.accdb تم تعديل مايو 25, 2023 بواسطه blue sea رابط هذا التعليق شارك More sharing options...
الحلبي قام بنشر مايو 26, 2023 مشاركة قام بنشر مايو 26, 2023 4 ساعات مضت, blue sea said: ارجو منكم اضافة كود البحث عن الاسم في حقل emp _name حاول ان ترفق مثال بنسخة اقل من النسخة المرفقة حتى يستطيع الاخوان مساعدتك رابط هذا التعليق شارك More sharing options...
blue sea قام بنشر مايو 26, 2023 الكاتب مشاركة قام بنشر مايو 26, 2023 (معدل) تقصد نسخة اوفيس اقدم؟ ارجو التوضيح تم تعديل مايو 26, 2023 بواسطه blue sea رابط هذا التعليق شارك More sharing options...
الحلبي قام بنشر مايو 26, 2023 مشاركة قام بنشر مايو 26, 2023 51 دقائق مضت, blue sea said: تقصد نسخة اوفيس اقدم؟ ارجو التوضيح نسخة 2010 معظمنا يعمل عليها رابط هذا التعليق شارك More sharing options...
أفضل إجابة سامي الحداد قام بنشر مايو 26, 2023 أفضل إجابة مشاركة قام بنشر مايو 26, 2023 وعليكم السلام تفضل اخي الكريم 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 1 رابط هذا التعليق شارك More sharing options...
blue sea قام بنشر مايو 27, 2023 الكاتب مشاركة قام بنشر مايو 27, 2023 اشكرك اخي جزيل الشكر @سامي الحداد رابط هذا التعليق شارك More sharing options...
سامي الحداد قام بنشر مايو 28, 2023 مشاركة قام بنشر مايو 28, 2023 الشكر لله عز وجل اخي العزيز. بالتوفيق رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.