محمود ادريس

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

سبحان الله وبحمده سبحان الله العظيم

الف شكر لك الاخ مارد الكود يعمل بشكل ممتاز في المرفق الذي قمت بتعديله لاكن عندما نقلت الكود الى قاعدة اخري تظهر الرسالة التالية عفوا الاخ مارد تم حل المشكلة لقد نسيت كود Public Function GetDBPath() As String GetDBPath = CurrentProject.path & "\" End Function بارك الله فيك وجعله في ميزان حسناتك

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

السلام عليكم السيد رمهان نسأل الله ان يكون انشعالك خير وسوف نفتقدك كثيرا نحن في انتظارك بكل ود تحياتي

السلام عليكم كل التقدير لكل محاولات الحل من الاخوة

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

تحياتي ابو محمد هذا هو المرفق التقرير.rar التقرير.rar

وجدت هذه الاكواد ربما تكون لها علاقة بالموضوع :In the report's Declarations enter Option Explicit (Dim fBlankNext As Integer 'Flag: print next line blank? (True/False Dim intLine As Integer 'A line counter :Select the Page Header section, and enter this in the OnFormat event procedure intLine = 0 'Reset line counter at top of page fBlankNext = False 'Never print first line of page blank Now select the Detail Section's OnPrint, and enter this code without the line numbers: If PrintCount = 1 Then intLine = intLine + 1 If fBlankNext Then Me.PrintSection = False Me.NextRecord = False fBlankNext = False Else Me.PrintSection = True Me.NextRecord = True (fBlankNext = (intLine Mod 5 = 0 End If

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

السلام عليكم مبدع نت اليك هذا المرفق يعرض البيانات بناء على الاشهر ربما يفيدك الاشهر.rar الاشهر.rar

السلام عليكم سوؤال عن كيفية نسخ بيانات شهر الى شهر اخر عن طريق كود في النموذج في المرفق التالي ومن خلال جدول الاشهر يمكن نسخ بيانات شهر 2 الى شهر 3 من خلال تحديد السجلات وعملية النسخ واللصق لاكن ما اريده ان تتم هذه العملية عن طريق كود بالنموذج . المرفق للتعديل نسح البيانات2.rar نسح البيانات2.rar

هل من مجيب من عمالقة الاكسس

السلام عليكم الاخوة اعضاء المنتدي عندي مشكلة في احتساب العلاوة السنوية في المرفق التالي مع توضيح تفصيلي للمشكة داخل النموذج . ولكم مني كل الاحترام مرفق2.rar مرفق2.rar

الف شكر لك الاخ ابو عبدالله تم حل المشكلة حسب تعديلك بعد اضافة التقريب للحقول . بارك الله فيك

اخي الخلل يكون في الرقم العشري الثالث وهو في المثال التالي يجب ان يكون الجمع بين 9+6=15 3.259 + 4.256 = 7.515 صح 3.259 + 4.256 = 7.514 خطأ

مشكور اخي ابو عبدالله لازال هناك خطاء في المجموع الافقي للا ستقطاعات وايصاً مجاميع التقرير مع المحاولة ربما تحل المشكلة . بارك الله فيك

بارك الله فيك ورحم والداك وزادك من علمه

السلام عليكم السادة اعضاء المنتدى كيف يمكن جعل حقل يساوي اول رقمين من اليمين من حقل اخر به عدة ارقام. ولكم كل الاحترام والتقدير الحقول.rar الحقول.rar

السلام عليكم الاخوة الاعزاء توجد اخطاء في التجميع في التقرير والنموذج في اول رقم من ثلاثة ارقام بعد الفاصلة العشرية كيف العمل لتكون المجاميع صحيحة . _مرفق - 1.rar _مرفق - 1.rar

الف شكر لك الاخ ابوعارف تم تطبيق الكود وهو يعمل بشكل جيد

هذا كود يقوم بتصفية النموذج Form2 حسب اسم المصرف اريد بالاضاف الى المصرف مثلا الشهر او الجنس Private Sub أمر147_Click() Dim stDocName As String Dim stLinkCriteria As String stDocName = "FORM2" If stLinkCriteria <> اسمالمصرف Then stLinkCriteria = "[اسمالمصرف]=" & "'" & Me![اسمالمصرف] & "'" DoCmd.OpenForm stDocName, , , stLinkCriteria Else MsgBox "يرجى اختيار اسم الموضوع من القائمة", vbInformation, اسمالمصرف.SetFocus End If Exit_أمر147_Click: Exit Sub Err_أمر147_Click: MsgBox Err.Description Resume Exit_أمر147_Click End Sub

السلام عليكم سوؤال عن كيفية فتح النموذج وتضفيتة بناء على حقلين او اكثر ولكم مني كل التقدير والاحترام

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

السلام عليكم الاخوة الاعزاء لدى تقرير في المرفق التالي هو لا يفتح عندما يكون نموذج فرعي لاكنه يفتح عندما افتحه بشكل مستقل فما هو السبب وما هو الحل . مرفق.rar