د.كاف يار

في حدث عند فتح التقرير استعلام التقرير الاول If DCount("[ID]", "[Query1]") = 0 Then [report1].Visible = False استعلام التقرير الثاني If DCount("[ID]", "[Query2]") = 0 Then [report2].Visible = False استعلام التقرير الثالث If DCount("[ID]", "[Query3]") = 0 Then [report3].Visible = False اذا كان الاستعلام فارغ سيتم اخفاء التقرير .... مع مراعاة تغيير ما يلزم و الله يبارك فيك يا غالي الف الف شكرا على كلماتك الايجابية شكرا لك

test 2 (4).accdb

رجعنا لنقطة البداية ماهي هذه الشروط هذي بسيطة مقدور عليها في حال اتوصلنا للشرط

ممتاز ذا كيف يتم التفريق بين الوسطى و القصوى ( ماهور الفرق بينها كيف يتم التعرف على الفرق )

اخي الكريم و لما تظهر صفحات فارغة حاول ارفاق نسخة من التقرير لكي يتم التعديل عليه او قم بتعديل هوامش التقرير و تعديل التصميم بما يتناسب حجم الصفحة

اذا النقاط مجرد رقم متغيير يوضع من قبل المستخدم فإذا كانت اكبر او يساوي 40 تكون الترقية دنيا و إذا كانت اصغر او يساوي 20 تكون الترقية قصوى هل هذا صحيح ؟؟؟

اخي حتى الآن لم نستطع الوصول للمطلوب دعنا نقرب المسافات هل تستطيع صياغة المعادلة و التي من خلالها توضح آلية الترقية مثلا الموظف عبدالله الترقية = ( تاريخ اخر ترقية + تاريخ اخر زيادة ) ... هذا مجرد مثال للمعادلة

اذا كيف يتم تحديد هذه النسب و ماهو معيار الفرق بين الدنيا و الوسطى

ماهو المقصود بالنقطة هل تقصد انه اذا حصل الموظف على 40% يحصل على ترقية باختصار ماهي شروط الترقية باستخدام التالي Dim x As Integer x = [degree] Select Case x ' الشرط الأول Case Is = 40 ' الشرط الثاني Case Is = 40 ' الشرط الثالث Case Is = 20 ' اذا لم تنطبق الشروط Else End Select

ارفق نسخة من البرنامج

لم يجد ملف القاعدة تأكد من أن الملف في البارتشن D/date

ارجوا انك تحدد معايير الترقية كيف يتم ترقية الموظف بدون شرح تفصيلي احتاج شرح عملي عشان توصل الفكرة انظر للتعديل المرفق test 2 (2).accdb

شكرا لكم بحجم السماء اخواني في الله على هذه الروح الاخوية الجميلة و العطرة

دائيما ما نستخدم ( Me ) لسهولة الوصول لعنصر التحكم حيث ان استخدام عنصر التحكم كتابة قد يتحمل الخطأ اما استداعائه من خلال Me فإن نسبة الخطأ تنعدم ** ملاحظة : عناصر التحكم هي ( مربع النص - القائمة المسندلة - ...... الخ) اتمنى اكون وصلت المعلومة باشكل المطلوب

تفضل هذا المثال اخي الكريم البحث.mdb

تفضل تعديل الكود اخي الكريم On Error GoTo errorhandle Dim x اسم مربع النص الذي في النموذج x = [مربع النص] DoCmd.SetWarnings False اسم الجدول الذي سيتم تخزين به نصوص البحث DoCmd.RunSQL "INSERT INTO [ اسم الجدول ] Values ('" & x & "' , Now())" DoCmd.SetWarnings True errorhandleexit: Exit sub errorhandle: MsgBox Err.Number & "-" & Err.Description Resume errorhandleexit

يقول النبي ﷺ (( من لا يشكر الناس لا يشكر الله )) و كلمة شكرا قليلة في حقكم فقد كسبت قلوبا طيبة في هذا المنتدى العظيم ففي كل يوم نتعلم و ننقل ما تعلمناه ابتغاء الاجر من ربٍ كريم كذلك ... لم تنمحني إدارة هذا المنتدى العظيم شرف الانضمام لإسرة الخبراء ألا بمساعدة الجميع و بمحبته و قلوبهم النقية و ثقتهم شكرا لكم فردا فراد ففي مثل هذه اللحظات يعجز القلب و اللسان عن التعبير و اسأل الله لي و لكم التوفيق و النجاح ,,, ,

طلبك غير واضح اخي الكريم ماهو المطلوب تحديدا

تفضل اخي الكريم في حدث بعد التحديث ضع الكود التالي مع مراعاة اضافة اسم مربع النص الأمر الذي سيتم تنفيذه - انشاء جدول للبحث بإسم SaveSearch - حفظ جميع النصوص المدخلة من مربع النص - حفظ التاريخ و الوقت Dim x x = [مربع النص] On Error GoTo errorhandle DoCmd.RunSQL "CREATE TABLE SaveSearch ([Search] VARCHAR (200) , [Date_Search] VARCHAR (20) );" errorhandleexit: Exit Function errorhandle: If Err.Number = 3010 Then DoCmd.SetWarnings False DoCmd.RunSQL "INSERT INTO SaveSearch Values ('" & x & "' , Now())" DoCmd.SetWarnings True Else MsgBox Err.Number & "-" & Err.Description End If Resume errorhandleexit

تفضل اخي الكريم On Error Resume Next Dim varFilter As Variant varFilter = Null varFilter = (varFilter) & "[dtotal] >= 30 " With Me.Form If Not IsNull(varFilter) Then .DataEntry = False .Filter = varFilter .FilterOn = True Else .FilterOn = False End If .Requery End With الفلتر بين نطاقين varFilter = (varFilter) & "[Amount] Between 30 AND 50 " لالغاء الفلتر ضع في امر With Me.Form If Not IsNull(varFilter) Then .DataEntry = False .Filter = varFilter .FilterOn = False Else .FilterOn = False End If .Requery End With

هذا هو المعيار الصيحيح Like "*" & [forms]![Mostasmarin Data]![Mostasmarin Data sub]![c1] الموقع والمربع .rar

هنا في الاستعلام اوفسنا.accdb

ابو اشرف اذا ما ضبط اي حل ارفق المثال يمكن يكون محتاج شوية حنان ههههه

كذلك يوضع في الاستعلام و ممكن يوضع في النماذج يعمل في الجميع

جرب هذا IIF(IsNull([سندات القبض]![Amount]);0;[سندات القبض]![Amount])