كل الانشطه

استاذي العزيز Foksh عند انشاء هذا البرنامج وبالتحديد في تاريخ ميلاد الزوج والزوجة Date_Naiss1وDate_Naiss2 فماحالات لازم يكون فيها الشهر تسمية مثل 05 جانفي 1980 وحالات تكون صيغة التاريخ 1980/01/05 وكلنا نعرف ان الونداوز به مشكلة تسميات وخاصة الإشهر الثلاث جانفييه وفيفرييه ومي فأظطريت لعمل كومبوبكس للشهر من جانفي الى ديسمبر فنجحت الفكرة عند التقارير التي يفترض يكون الشهر تسمية ولكن التقارير التي يكون فيها الشهر رقم بالرغم من عمل تنسيق دالة فلم format فلم تضبط فهل من فكرة او دالة موجودة على مكتبتك لتفي بالغرض وتعمل على كلى الجهتين

تم عمل ما ذكر اعلاه تقرير مراجعة الدرجات حسب الصف تقرير يعرض الصفوف جميعا .. كل صف مستقل ، وطلاب الصف المكملين وتحت كل طالب مواد الاكمال والدرجات احصاء تجميعي (احصاء الحضور ) باعداد المسجلين والحضور والغياب .. ولكن اتعبني تقرير احصاء الحضور هذا rep_Ehsa_Exam بطيء وثقيل جدا يا ليت اخوي @Foksh تلقي نظرة عليه .. فقد تجد طريقة اخرى غير التي سلكتها في استخراج البيانات Data6.rar

تحية طيبة مرة أخرى أخي @Foksh أعتذر عن التأخر في الرد عندي عدة تقارير وأريد أن أطبق عليها الكود قمت بتغير الأرتفاع مثلا كما يلي: ctl.Height = 120 فظهرت المسافة بين السطور نوعاما كبيرة كما في الصورة 2 رغم أني جعلت الهوامش صفر كما في الصورة 1 أخي هل فيه طريقة تكون المسافة بين السطور صغيرة جدا ومناسبة في حالة تغيير ارتفاع مربع النص وجزاك الله خيرا

مشاركة لي معكم كذلك بدوري عندي برنامج إصدار 2007 و 2010 يشتغل على وينداوز 7 و 8 عادي بدون مشاكل ولكن عندما حصلت على جهاز مثبت عليه وينداوز 10 البرنامج لايشتغل معه حاولت تخفيض وحدة الماكرو ولكن بدون جدوى هل من فكرة اساتذة لكي يعمل البرنامج على هذا الاصدار وشكرا

لا بأس طهور ان شاء الله شفاكم الله وعافاكم

مين قال لك تقول على وتكتب اسمى ع التطبيق انا ما عملت اى شئ

الفصل الثالث CH3.docx

قد تنفع هذه الطريقة استخراج تاريخ_01.xlsx

والله تستحقها وأكثر أستاذتا الكبير Foksh السلام عليكم ورحمة الله وبركاته ؛؛؛ كل التقدير والشكر لسعادتك وللجهد والمثابرة معي في هذا الموضوع مرفق لسيادتكم نفس الملف بعد توزيع الشفوي (يدويا) لمدرسة واحدة بجميع صفوفها عند التعامل مع النموذج المرفق .. تلاحظ الآتي في جدول توزيع اختبار اللياقة لم يتم ادراج رقم المدرسة وكذا اسم مجموعة الشفوي والعدد لم يصل إلى سبعين أو ستين في الصباحي والمسائي معذرة .. للإثقال على سيادتكم وكل التقدير والشكر موصول والله لسيادتكم فكرة توزيع تلقائي لمستويين (2).mdb

تفضل استاذ @ابو عبد الله العراقي محاولتي حسب مافهمت . Private Sub أمر3_Click() On Error GoTo met ' تصدير التقرير إلى ملف Excel Dim exportPath As String exportPath = CurrentProject.Path & "\Report_Export.xlsx" DoCmd.OutputTo acOutputReport, "Report1", acFormatXLSX, exportPath, False, , , acExportQualityPrint ' فتح ملف Excel وتنفيذ دمج الخلايا Dim xlApp As Object Dim xlBook As Object Set xlApp = CreateObject("Excel.Application") Set xlBook = xlApp.Workbooks.Open(exportPath) ' جعل Excel مرئيًا للمستخدم xlApp.Visible = True ' تنفيذ عملية دمج الخلايا With xlBook.Worksheets(1) .Range("A:B").WrapText = True .Range("A:B").HorizontalAlignment = -4108 ' xlCenter .Range("A:B").Merge End With ' حفظ الملف دون إغلاقه xlBook.Save ' تحرير الذاكرة (لن نغلق Excel هنا ليبقى مفتوحًا) Set xlBook = Nothing Set xlApp = Nothing MsgBox "تم تصدير الملف بنجاح ودمج الخلايا A/B، تم فتح ملف Excel للعرض" Exit Sub met: MsgBox "حدث خطأ: " & Err.Description ' التأكد من إغلاق Excel في حالة الخطأ If Not xlApp Is Nothing Then xlApp.Quit Set xlBook = Nothing Set xlApp = Nothing End If End Sub

اسمحوا لي بالمشارك وسامحوني لأني بعين واحدة طشاش وممنوع عليا التركيز لحين اجراء العملية 7 ... اليكم مرفق يمكن يفيد . DKhalifaTest.rar

اختصارا للوقت المتوقع للشروحات مستقبلا اليك مثالين مختصرين متشابهين تقريبا حاول العمل عليهما والتجربة من اجل تلم بفكرة الجدول الواحد وناقش ما يهمك من خلالهما .. New folder.rar

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

معذرتة استاذ 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 ؟ كيف يتم حساب مدة الإجازة الفعلية ( باستثناء العطل ) ؟