كل الانشطه

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

تحية طيبة مباركة أخي الفاضل @Foksh وشكرا كثيرا على سرعة الرد بالنسبة لتغيير حجم على حسب عدد السجلات هذا لا مشكلة لي فيه ، وسبق أن طرحت موضوع لي في هذا الشأن المشكلة أخي الطيب في ارتفاع مربع النص والمسافة بين السطور سوف أجرب الحل المقترح وأوافيك أخي مرة أخرى ألف شكر وامتنان على ما تقدمه في هذا المنتدى الجميل والرائع

لا خالص ليه كل ده هيتم من من خلال استعلام او كود مع استعلام او كود بداخله بنية استعلام القاعده المرفقه فيه ده - جدول tblHolidaysWeekly دى عطلات اسبوعيه ثابته ولكن قد تتغير مع الايام لاى ظرف نبعا لقانون تنصه الدولة - جدول : tblHolidaysOfficial دى عطلات رسمية متغيره ويتم ملئ بياناته مع مطلع كل عام جديد أو تباعا على مدار الأيام

السلام عليكم ورحمة الله وبركاته الأستاذة الافاضل في منتدى الاكسس في قاعدة البيانات المرفقة وهي نموذج للمثال الذي اطمح واطمع من حضارتكم مساعدتي في عمل كود تشغيل ماكرو كنت قد سجلته في برنامج الاكسل ثم اخذت كود الماكرو ( الخاص بتنسيق ملف الاكسل ) ووضعته في وحدة نمطية ليتم استدعاء هذا الاجراء في button بعد تصدير ملف الاكسل ؟ لكي يظهر شيت الاكسل كما في الصورة المرفقة MergMic.rar

المطلوب بدخل الملف في ورقتبن (جدول- معلمين) وعذرا فقد طرحت الموضوع هذا مسبقا ولكن طلب هذا الموضع بهذا الشكل .... فسامحوني جدول التفريغ.xlsm

يعني ممكن نحتاج إنشاء جداول منفصلة لحسابات الرصيد والاستحقاقات ، صحيح ؟ ايضاً جدول للعطلات المتغيرة سنوياً

يا اهلا فؤش أفندى أخى الحبيب واستاذى الجليل الاستاذ @Foksh - الغرض من الحقل isVacation في tblDailyRecords ؟ عند عملية التسجيل فقط للنوع اعتيارديه سوف يتم تسجيل كل الايام من ليكون كل سجل فى يوم ولكن بناء على تواريخ العطلات الرسمية تبعا للجدول الخاص بها وكذلك العطلات الاسبوعيه سوف يتم وضع القيمه true للحقل البوليانى isVacation والحقل النصى فى نفس الجدول : HolidayDescription سوف يتم تسجيل وصف العطلة الرسمية تبعا لتاريخها من الجدول الخاص بها او اسم اليوم للعطلة الاسبوعيه وفق الجدول الخاص بها كذلك لكى يتم استثناء هذه السجلات عند عمل فرز لسجلات هذا النوع لذلك الموظف طيب ليه عملته فى لائحة الاجازت يتم ترحيل الرصيد المتبقى لكل موظف ليتم اضافته الى رصيد بدايه العام للسنه الجديدة ولكن وفق شرطين ان يكون الموظف حصل على عدد 15 يوم اجازة اعتيادية لهذا العام بحد أدنى ان يكون شرط اساسى ايضا عدد 6 ايام متلاحقة وطبعا لابد ان يتخللها عطلات اسبوعيه و كمان ممكن يتخللها عطلات رسميه المهم ان تكون متصلة بشكل متتالى مع هذه العطلات ايا كانت وبشكل تواريخ متلاحق وهنا يأتى دور الحقل العددى : SerialNumber الموجود فى نفس الجدول لان كل اجازة من النوع اعتياديه عن كل فتره وليس كل يوم سوف تأخذ رقم مسلسل من واقع الرقم المسلسل يتم حصر عدد الايام ال 6 للنوع اعتيادية بدون ان يتم استثناء هذه السجلات التى تعمل القيمه true للحقل البوليانى isVacation لانه ممكن مثلا تبدأ الاجازة يوم خميس ويليها مباشرة يومين عطلات اسبوعيه جمعه وسبت ثم يليهم مباشرة عطلة عيد اضحى مثلا خمس ايام تبدأ من الاحد وتنتهى الخميس ويلهم مباشرة يومين عطلات اسبوعيه جمعه وسبت ثم باقى أجازة المظف لتكمل عدد 5 ايام فيكون الحقل لليوم الاول يأخذ مثلا حسب التسلسل لهذا الموظف للنوع اعتياديه رقم 20 لكل السجلات حتى تاريخ النهايه فى هذه الحالة ينتج عدد 6 ايام اعتيادى + 4 ايام عطلات اسبوعيه + 5 ايام عطلات رسمية ليكون المجموع الكلى للسجلات التى تحمل المسلسل 20 هو 15 سجل اذا هذا الموظف يكون حصل على عدد 6 ايام متصلين وفقا للوائح وخطر على بالى الان ان أقوم بتغيير اسم الحقل الرقم للمسلسل لنوع الاعتيادية الى : SerialTypeAnnual وخطر على بالى الان ان أقوم بتغيير اسم الحقل البوليانى الدال على انها عطله الى isHoliday اى نوع أخر من انواع اليوميات سوف يت فيه فقط تسجيل الايام الفعليه من واقع داله لتقوم بعمل استثناء لايام العطلات جميعا الرسمية والاسبوعية

مساهمة بعد تعديلها لتعمل على اكسل بدلاً من اكسيس ولست متأكد منها :- في وحدة نمطية جديدة = Option Compare Database #If VBA7 Then Private Declare PtrSafe Function OpenProcessToken Lib "advapi32.dll" ( _ ByVal ProcessHandle As LongPtr, _ ByVal DesiredAccess As Long, _ ByRef TokenHandle As LongPtr _ ) As Long Private Declare PtrSafe Function GetTokenInformation Lib "advapi32.dll" ( _ ByVal TokenHandle As LongPtr, _ ByVal TokenInformationClass As Long, _ ByRef TokenInformation As Any, _ ByVal TokenInformationLength As Long, _ ByRef ReturnLength As Long _ ) As Long Private Declare PtrSafe Function GetCurrentProcess Lib "kernel32" () As LongPtr Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _ ByVal hwnd As LongPtr, _ ByVal lpOperation As String, _ ByVal lpFile As String, _ ByVal lpParameters As String, _ ByVal lpDirectory As String, _ ByVal nShowCmd As Long _ ) As LongPtr #Else Private Declare Function OpenProcessToken Lib "advapi32.dll" ( _ ByVal ProcessHandle As Long, _ ByVal DesiredAccess As Long, _ ByRef TokenHandle As Long _ ) As Long Private Declare Function GetTokenInformation Lib "advapi32.dll" ( _ ByVal TokenHandle As Long, _ ByVal TokenInformationClass As Long, _ ByRef TokenInformation As Any, _ ByVal TokenInformationLength As Long, _ ByRef ReturnLength As Long _ ) As Long Private Declare Function GetCurrentProcess Lib "kernel32" () As Long Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _ ByVal hwnd As Long, _ ByVal lpOperation As String, _ ByVal lpFile As String, _ ByVal lpParameters As String, _ ByVal lpDirectory As String, _ ByVal nShowCmd As Long _ ) As Long #End If Public Function IsRunAsAdmin() As Boolean Const TOKEN_QUERY As Long = &H8 Const TokenElevation As Long = 20 Dim hToken As LongPtr Dim elev As Long Dim retLen As Long If OpenProcessToken(GetCurrentProcess(), TOKEN_QUERY, hToken) <> 0 Then If GetTokenInformation(hToken, TokenElevation, elev, LenB(elev), retLen) <> 0 Then IsRunAsAdmin = (elev <> 0) End If End If End Function Public Sub RestartAsAdmin() Dim exePath As String Dim dbArgument As String exePath = Application.FullName dbArgument = """" & Application.CurrentProject.FullName & """" ShellExecute 0, "runas", exePath, dbArgument, vbNullString, 1 Application.Quit End Sub Public Sub CreateTextFile() Dim FilePath As String Dim FileNum As Integer If Not IsRunAsAdmin Then MsgBox "البرنامج بحاجة إلى صلاحيات مسؤول (Administrator)." & vbCrLf & _ "سيتم إعادة تشغيل Access بطلب صلاحيات مرتفعة...", _ vbExclamation, "تحتاج صلاحيات" RestartAsAdmin Exit Sub End If FilePath = "C:\Windows\fs.txt" FileNum = FreeFile Open FilePath For Output As #FileNum Print #FileNum, "fs" Close #FileNum MsgBox "تم إنشاء الملف بنجاح في:" & vbCrLf & FilePath, _ vbInformation, "نجاح" End Sub الإستدعاء سيكون في الزر على سبيل المثال = CreateTextFile

ملفك بحاجة الى تعديلات كثيرة لا تتوقع ان العمل يسير وسيتم بسرعة انتظرني ...

من أحد مشاريعي القديمة ، جرب هذا الكود في حدث عند فتح التقرير Private Sub Report_Open(Cancel As Integer) Dim lngRecordCount As Long Dim ctl As Control lngRecordCount = DCount("*", Me.RecordSource) For Each ctl In Me.Controls If ctl.ControlType = acTextBox Then If lngRecordCount > 25 Then ctl.FontSize = 12 ctl.Height = 284 Else ctl.FontSize = 14 ctl.Height = 357 End If End If Next ctl End Sub

وعليكم السلام ورحمة الله وبركاته ،،، لا اعلم ان كان هذا الموضوع سيفيدك بشيء ، ولكن الق نظرة عليه وهذا الموضوع :- وهذا الموضوع القديم لك أخي الكريم :-

لي 3 اسئلة خطرت على بالي بعد القراءة للموضوع بشكل نقاط :- كيف يتم التعامل مع الإجازات التي تتخللها عطلات رسمية أو أسبوعية ؟ ما هو الغرض من الحقل isVacation في tblDailyRecords ؟ كيف يتم حساب مدة الإجازة الفعلية ( باستثناء العطل ) ؟

السلام عليكم الإخوة الأفاضل في هذا المنتدى الجميل في هذا الموضوع أريد تصغير حجم الخط و كذا ارتفاع مربع النص بناء على شرط عدد السجلات في تقرير إذا كان عدد السجلات أكبر من 25 حجم الخط يصبح بحجم 12 وكذا ارتفاع مربع النص يصبح 0.5 سم وإذا كان عدد السجلات أقل من 25 : حجم الخط يصبح بحجم 14 وكذا ارتفاع مربع النص يصبح 0.63 سم لقد حاولت محاولة متواضعة جدا بوضع كود في : التفصيل في حدث عند التنسيق في التقرير المسمى rap وهنا تظهر الفراغات كبيرة بين الأسطر لقد قمت بتصور هذا الحل لأني أحيانا اريد أن أحتوي جميع السجلات في صفحة واحدة بما فيها تذييل التقرير (الذي فيه توقيع المسؤول المباشر و توقيع المسؤول العام) الرجاء المساعدة والتوجيه وبارك الله فيكم BASE_F.accdb

جزاك الله خيرا استاذ/ عبد الله على الاقتراح الجميل تم عمل اللازم في ملفين. الملف الأول بالمعادلات و لكنه يتطلب اصدار حديث مثل 356 أو 2021 أما الملف الثاني فتم عمله بالأكواد لاستخراج القيم الأعلى المتماثلة لمن ليس عنده الاصدرات الحديثة Book6.xlsx Book6.xlsm

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

استاذى الجليل ومعلمى القدير و والدى الحبيب الاستاذ @ابوخليل جزاكم الله خيــرا اولا على مروركم العطر وزيارتكم الكريمة وشكر الله لكم حسن متابعتكم هذا التفصيل الدقيق هى لوائح وهى هامة جدا جدا لانها تحدد يوميات العاملين داخل المؤسسة وفق لوائح وقوانين طيب قلت سابقا انه شرعت فى البناء فعلا وانتهيت تقريبا وقلت لن اعرض القاعدة لسببين 1- لم اقم بالتجربة بشكل دقيق لظروف اخبرتكم عنها منعتنى آن ذلك 2- انا قممت بالتصميم ووجدت تحديات كثيرة لتعقيد وتداخل قواعد التحققات المتشابكة احيانا والمتداخله والتى قد تكون معقده وقد اجد بعض الخلل اثناء التجارب الكثيرة والدقيقه بشكل مكثف ولكن احببت ان يطرح الموضوع اولا ليتم النقاش فيه وليدلى كل من اساتذتى الكرام العظماء بدلوهم فى عرض مقترحاتهم وافكارهم وسيناريوهات الية التنفيذ بعد التحليل للأسباب الاتية - لأتعلم - ليكون الموضوع مرجعا لطلاب العلم والدارسين - لاهمية الموضوع فى قواعد ادارة الموارد البشرية وشئون العاملين لانه وكما قلت هذه الجزئية فقط ولاهميتها القصوى تعد تقريبا ثلث التطبيق حرفيا قطعا بما انها قوانين ولوائح صارمه المفروض ان لا يتم مخالفتها ولكن هناك حالات شاذه لابد من استخدام روح القانون لذلك الاوجب و من المرونه التعامل مع هذه الحالات بشكل من الاشكل وهذه ثمرة النقاش ان هذه النقطه لم تخطر على بالى فعلا لا بالعكس اى مللاحظات سوف يتم الاستفاده منها على المدى البعيد فى تعلم التفكير والتصور والتحليل للنظم وتخيل وتصور الهيكل العام لهذا التحليل او على المدى القريب فى وضع التصور لاساس صحيح ومتين يتم البناء عليه بأكبر قدر ممكن من الاحترافيه والمرونه وأعلى درجات الامان فى الحصول على المعلومات الدقيقه والغير مغلوطه لذلك اتمنى من اساتذتى العظماء ان يشمروا عن سواعدهم لنخطو كل الخطوات خطوة تلو الاخرى من : التحليل للنظم وضع التصور والهيكل لالية العمل بناء على التحليل وبعد ذلك تأتى عملية البناء تباعا وفق ما سبق وفى النهاية انا لا اطلب من اساتذى تقديم الحل او قاعدة بيانات لعمل كل ماسبق وتقريبا بفضل الله تعالى قادر على تحقيقها جميعا وبفضل الله تعالى سبحانه وهبنى الله تعالى ملكة فى التعامل مع الاكواد والافكار بما يمكننى بمشيئة الله تعالى من انهاء العمل ولكن كما اخبرتكم - لأتعلم تناول تحليل النظم والتخطيط للهيكل بناءً على التحليل بأفكار غير أفكارى أنا لانها قطعا سوف تضيف الى بنك معلوماتى وافكارى وتصوراتى - ليكون الموضوع مرجعا لطلاب العلم والدارسين - لاهمية الموضوع فى قواعد ادارة الموارد البشرية وشئون العاملين لمن يهتم بتلك الامور وخاصة لانه دائما تكون من حين لاخر طلبات واسئلة رواد المنتدى و لانه وكما قلت هذه الجزئية فقط ولاهميتها القصوى تعد تقريبا ثلث تطبيق ادارة الموارد البشرية ومتباعة شئون العاملين داخل المؤسسات الصغيرة والمتوسطة والكبيرة

لا انصحك بالطريقة القديمة بل اتبع الطريقة الحديثة في التصميم - جزء واحد عبارة عن رأس واطراف الرأس يشمل الشراء والبيع ، والتفاصيل تشملهما كذلك الاقساط برنامج منفصل بذاته .. لأن آلية ونظام الاقساط يختلف تماما اما تسديد الديون (الآجل ) وحتى الكاش فيكون في جدول الدفع ، يرتبط بالزبون او المتعهد ورقم الفاتورة ( سواء كانت الفاتورة بيع او شراء او مرتجعات)

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

السلام عليكم استاذ @ابوخليل شكرا للمتابعة بارك الله فيك البرنامج بسيط - حسب ماتعلمت من الاساتذه ان البرنامج يتكون من جزئبن رئيسيين هما: (فاتورة الشراء) وتتكون من جدول الموردين وراس قائمة الشراء و اطراف قائمة الشراء ومرتبطه بالمخزن و (فاتورة البيع) وتتكون من جدول الزبائن وراس فاتورة البيع واطراف فاتورة البيع ومرتبطة ايضا بالمخزن - البيع يكون (نقدا . اقساط, آجل) - عندي مشكلة في جدول تسديد الديون هل يكون التسديد على اجمالي الديون ام الباقي من الفاتورة (يعني هل مرتبط بفاتورة الشراء ام لا ) لكي اعرف الرصيد السابق للزبون عند طباعة قائمة البيع في التقرير تحياتي

1- مواد الرسوب 2- تقارير مراجعة الدرجات 3- احصائية اعداد الحضور والغياب

السلام عليكم اولا : نبارك لك اخي احمد .. في بداية خطواتك نحو طريق البرمجة الصحيح ثانيا : مازلت تقدح من رأسك واعذر اخوك الكبير على هذه العبارة الملاحظات السلبية : - عمل جداول زائدة ستكون عبئا في نهايات ونتائج البرنامج - الاهتمام بالفرعيات والجزئيات واهمال الأساسات من الفرعيات عملية العلاقات وأعطائها اهمية من الاساسيات : تحليل البيانات تحليل البيانات فيما يخص برنامجك : هو ان تشرح خصوصية برنامجك ، لأن البرنامج عبارة عن ( مشتريات ومبيعات ) وهذ مشروع معروف ومتداول ومفهوم لدى اغلب المبرمجين فلا حاجة للتفاصيل الخصوصية مثلا : - هل هو نقاط بيع ( بالنقد والكاش ) ام يشتمل على جزئية البيع بالآجل ، ام هو فقط بيع بالآجل ، او اي خصوصية توجد في المشروع غير موجودة في المشاريع العادية الخلاصة : انت في بداية مشوارك .. فلا تترك الاستشارة في كل صغيرة وكبيرة لا تخرج من الجداول حتى يتم احكامها 100% حتى لو جلست على اعدادها فترات طويلة مازلت اقول واكرر ان ضبط الجداول بصورة صحيحة هو انجاز 80% من المشروع ............................. فائدة : عندما انشء حقلا في جدول فحينها اتصور او استحضر اماكن ظهور هذا الحقل في الاستعلامات او التقارير بمعنى اني استحضر المخرجات ( التقارير ) في بالي وكأني أراها في الوقت الذي اعمل على تصميم الجداول كتبت هذه الملحوظات آمل ان تجد الفائدة اعانك الله ووفقك

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

هذا نتيجة التعديلات المستمرة .. نغفل عن بعض الأشياء في التعديل الأخير .. جعلنا حقلي : داخل في المجموع / وداخل في النجاح خانة اختيار (نعم/ لا ) بدلا من صفر/واحد الآن كل ما عليك فعله هو : افتح فورم الدرجات على التصميم / مربع تحرير المادة .. اعرض استعلام مصدر الصف للمربع ستجد المعيار في حقل rmz2 =1 استبدل الـــ 1 بكلمة true

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

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