jjafferr

يعني قصدك: ان البرنامج شغال كما طلبت: والآن تريد البرنامج يعطيك النتيجة عند فتح النموذج :) استخدم هذا الكود: Private Sub Form_Load() Call Ctl1_AfterUpdate End Sub بدلا عن Private Sub Form_Load() Me.a.Visible = False Me.b.Visible = False Me.c.Visible = False En…

ممكن صورة من المشكلة :) جعفر

وعليكم السلام :) الروابط هذه فيها المراد :) /index.php/topic/292079-%D8%B9%D9%85%D9%84-%D9%86%D9%85%D9%88%D8%B0%D8%AC-%D9%8A%D8%B9%D8%B1%D8%B6-%D8%A7%D9%84%D9%85%D8%B9%D8%A7%D9%85%D9%84%D8%A9-%D8%A7%D9%84%D8%AA%D9%8A-%D8%A7%D8%AD%D8%AF%D8%AF-%D8%B1%D9%82%D9%85…

اخي الغضنفر :) الله يسلمك ، انا ما لمست الترقيم :) ، ولكن بعد مشاركتك الاخيرة ، نظرت في التقرير ، واذا بك كنت عامل فرز للمجموعات ابتدأ بالاسم و... و... و... ولكنك الآن طلبت الفرز بحقل الترقيم م ، فقمت بحذف فرز جميع الحقول الاخرى ، فتفضل :) جعفر 261.db1.mdb.zip

:)

اخوي ابوعبير :) 1. المشاركة السابقة لك انت قلت انك تريد الطريقة أ ، والآن تقول تريد الطريقة ب :) ، فخلينا على الطريقة أ ، لأن الطريقة ب معقدة :( 2. راجع هذه الروابط في المنتدى اللي فيها طلبك :) /index.php/topic/277419-طريقة-بحث-داخل-الفورم-findasutype/?p=13373…

انا قلت لك مسبقا ، انه وبإختصار ، لا يمكن :( جعفر

حياك الله اخي :) الحمدلله انك حصلت على الجواب ، وابوعدنان والنعم فيه :) بس سؤال لوسمحت على ملاحظتك ، فهل انت استعملت المرفق اللي انا وضعته في مشاركتي اعلاه ، وطلع اسم المدير العام فوق اسماء المدراء الثلاث؟ جعفر

وعليكم السلام :) التقرير ما فيه شئ :) انت المعلومات اللي حاطها ما مالئه الصفحة ، لهذا السبب يوجد فراغ في الجهة الاخرى :( في التصميم ، انا زحفت الكائنات لليمين ، والنتيجة: جعفر 261.db1.mdb.zip

اخي الفاضل :) كل اللي عليك عمله هو نسخ الكود من مشاركتي اعلاه ، والصاقه في كود نموذجك ، ومافي شي أخر :) جعفر

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

:)

2. بإختصار ، لا يمكن :( 1. يا ابوعبير انت بتدخلنا في نفق طويل ، كله كود :) ، يعني: أ- هل تريد البحث عن كلمة واحدة فقط ، او جملة؟ ب- هل تريد ان تكتب اكثر من كلمة ، وتريد البرنامج يبحث عن السجل اللي فيها هذه الكلمات؟ ج- هل تريد البحث (للحالة ب) ان تكون للـ AND ي…

وعليكم السلام :) يمكنك استعمال الامر: DateDiff("d", format(now(),"dd-mm-yyyy"), [ShippedDate]) ابحث عنه لمزيد من التفاصيل :) جعفر

تفضل هذا كود النموذج :) Private Sub Ctl1_AfterUpdate() Select Case Me.Ctl1 Case "الصنف" Me.a.Visible = True Me.b.Visible = True Me.c.Visible = False Case "المورد" Me.a.Visible = False Me.b.Visible = False Me.c.Visible = True End Select End Sub Private Sub Form…

يعني هل اعتبر سؤالك ملغي؟ جعفر

وعليكم السلام :) بالنسبة الى اولا: 1. غير اسم Frame620 الى frm_Select ، 2. هذا الكود الجديد للنموذج كاملا: Option Compare Database Option Explicit Private Function OpenFilterFavorites() On Error GoTo ErrorHandler ' show the control and drop down the combo box …

:)

العفو اخوي ابوعبير ، انا قلت السؤال غريب :) لكنك بعد ما رديت على سؤالي في مشاركتي الاولى :) جعفر

وعليكم السلام :) هذا الخطأ ، لان الجدول فاضي :) اضف السطر الثاني الى الكود اللي عندك: Private Sub ÑÞã_ÇáÕäÝ_AfterUpdate() On Error GoTo err_Number_AfterUpdate واضف هالاسطر قبل End Sub Exit Sub err_Number_AfterUpdate: If Err.Number = 3021 Then Resume Next Else …