نجوم المشاركات

وعليكم السلام لا يمكن استخدام معادلة VLOOKUP لطلبك, وذلك لعدم تنظيمك لجدول البيانات وعدم جعلك لإسم الشركة بعمود يسبق رقم الفاتورة وليس العكس ..ملحوظة :لابد من تطابق اسم الصفحة للإسم الموجود بالصفحة التى سيتم البحث بها ولكن يمكنك استخدام المعادلة التالية : =IFERROR(LOOKUP($C3,INDIRECT("'"&H$1&"'!$I$6:$I$61"),INDIRECT("'"&H$1&"'!$b$6:$B$61")),"") INVOICE COLLECT. TEST1.xlsx

تستطيع التطبيق على غرار المثال المرفق Database3.accdb

السلام عليكم ورحمه الله وبركاته لعل اخى @ابو البشر يقصد الموضوالتالى لمعلمنا العزيز جعفر بالتوفيق

بحث في المنتدى ووجدت هذا الكود شكرا لمن اطلع ويحاول العمل على إيجاد الإجابة Shell "explorer.exe" & " " & "C:\Program Files", vbNormalFocus

شكرا مهندسنا الرائع ابو البشر

كيفية البحث وظهور النتائج باستخدام التنسيق الشرطي فيديوووووو جديددددد في هذا الفيديو هانتعلم ازاي تبحث داخل خلية انت بتختارها وبعدين نتائج البحث بتتظلل باللون اللي انت بتحدده من خلال التنسيق الشرطي ... دردس جميل سهل

تفضل ...

تم الاخذ بالنصيحة وتعديل الملف شكرا جزيلا لحضرتك استاذى /Ali Mohamed Ali دايماً حضرتك بخير وسعادة

اوفيس 365 نفس المشكلة احترامى لحضرتك

هذا هو المطلوب بارك الله فيك

وعليكم السلام ..تفضل أخي الكريم Book1.xlsx

وممكن تستبدل الكود بالكود التالي Dim x As Byte x = DCount("*", "[TblFFF111]", "[InvNo] ='" & [Forms]![FFF111]![FFF222]![txtInvNo] & "' And [InvDate] =#" & [Forms]![FFF111]![FFF222]![txtInvDate] & "# ") If x > 0 Then MsgBox "هذه الفاتورة مسجلة مسبقا", 0, "" txtInvNo = "" End If For Test2.accdb

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

الشكر لك استاذي الحلبي و الشكر ايضا لاستاذي ابو بسمله جعله الله في ميزان حسناتكما و نفع الله بعلمكما

شكرا لك استاذ / ابولو وجزاك كل خير الآن توجد حياة لمن ينادى

شكرا استاذي الحلبي تم بالفعل اخذ الفكرة في الاعتبار شكرا لايضاح الفكرة و جعله الله في ميزان حسناتكم استاذي ابو بسمله معك حق فهذا فعلا خطاء في الادخال و هذا ما كنت اريده فعليا و لكن بعد فكرة استاذي الحلبي وبعد النظر للاحصائية فلابد فعليا من اضافة تلك الخانة و تمت الاضافة بالفعل فشكرا لك استاذي ابو بسمله علي مجهودك و وقتك الثمين و سعة الصدر و شكرا لاستاذي الحلبي علي مجهوده و ابداء الرأي الثمين و سعة الصدر

@عبدالفتاح في بي اكسيل نعم استادنا الفاضل الفكرة في تعديل البرنامج لهده الدرجة هو توفير امكانية البحث للسائل بجميع الطرق الممكنة حيث يمكنه اظهار بيانات الفواتير المستحقة اليوم والمتاخرة عن ميعادها وايضا الفواتير التي لم يبلغ تاريخ استحقاقها رغم انه لم يتم طلبها . الا انني فكرت في تطوير برنامجه فقط

لهذا انا طلبت ان يكون هناك اضافة حقل جديد يسمى بانواع الاجازة ( اجازة عادية ـ تمديد ـ قطع اجازة ـ عدم اكتمال الاجازة)

@صياد الجراح اعتقدت لقد حصلت على اجابة بناء على منشورك #7 ولكن يبدو انه تم تصميم برنامج يختلف عن منشورك الاصلي . هذا تعديل ابسط مما تتصور وتستطيع فهم كودك بتعديلات بسيطة . Private Sub CommandButton2_Click() Dim ls As Integer Dim ss As Integer, EDt As Date With Me.ListBox1 .ColumnCount = 5 .ColumnWidths = "103;103;103;103;103" .TextAlign = fmTextAlignCenter End With ls = Sheet1.Range("D" & Rows.Count).End(xlUp).Row Me.ListBox1.Clear 'convert text to date EDt = CDate(Me.TextBox1.Text) With Sheet1 For ss = 2 To ls If .Cells(ss, "d") <= EDt Then Me.ListBox1.AddItem .Cells(ss, 1) Me.ListBox1.List(ListBox1.ListCount - 1, 1) = .Cells(ss, "b") Me.ListBox1.List(ListBox1.ListCount - 1, 2) = .Cells(ss, "c") Me.ListBox1.List(ListBox1.ListCount - 1, 3) = Format(.Cells(ss, "d"), "mm/dd/yyyy") Me.ListBox1.List(ListBox1.ListCount - 1, 4) = .Cells(ss, "e") End If Next ss End With End Sub