كل الانشطه

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

ما عاش اللي يتعبك معلمي الفاضل ،، بأقرب فرصة إن شاء الله سأحاول السير على خطاك لتلافي هذه المعضلة 😇

هل يمكن تنفيذ ذلك من خلال الاكسس وهل يمكن حماية ملف الاكسس من خلال وجود ملف داخل ملف الويندوز ان كان هذا الملف موجود يتم فتح ملف الاكسس وعند عدم وجوده لايتم فتح ملف الاكسس وهذا كنوع من الحماية بدل من سيريال نمبر الجهاز موضوع النقاش أعتقد أنه يكون مفيد

وعليكم السلام ورحمة الله تعالى وبركاته.. هل جربت في التنسيق لمربع النص هذا ان يكون بهذا الشكل ؛- yyyy,mmm,dd

استاذي الكريم عند استخدامًبرنامج الحضور والانصراف شيت data لايستوعد الا اربعين موظف فقط ماهو الخل برغم ان في الاعدادات وشيت الحضور يطلع اسماء الموظفين ولكن بشيت dadt لايخرج الا اربعين موظف بعلم ان قسمي ٥٠موظف فيه

السلام عليكم ورحمة الله لدى نموذج اكسييس داخل هذا النموذج حقل باسم " Upfield " مخصص لوضع تاريخ اليوم اتوماتيك، عندما يقوم المستخدم بتحديث اي قيمة داخل حقول السجل المرتبطة بهذا الحقل اريد تنسيق التاريخ داخل الحقل يظهر بهذا الشكل على سبيل المثال 2025,Apr,28 لانة يظهر هكذا 28,04,2025

السلام وعليكم ورحمه الله وبركاته لدي مجلد يحتوي على ملفات بي دي اف مسماه برقم الموضف اريد كود في زر امر عند النقر عليه يضع كلمه نعم بالحقل الموضح المثال المرفق ولكنFILE.rarFILE.rarFILE.rarFILE.rar فقط للذي لديه ملف بالمجلد FILE.zip

استاذ حجازي اشكرك على هذا الرد الرائع......كود رائع و مميز لكن للأسف ما عندي MS 365 سوف اقوم بتجربت الكود الان مع الشكر

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

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

Up

صوت الضمير 😊🖐️ أمال كل الدوشة اللي عملتها جوة دي تسميها أيه ؟؟ 🙃

السلام عليكم ومشاركة مع اخي @Foksh اضف هذا السطر الى جملتك البرمجية Me.Datail.Height = Me.Datail.Height * 0.5 لاحظ فيما لو اردت تغيير نسبة ارتفاع الحقل ... نسبة مقطع التفاصيل ستكون مماثلة لنسبة مقاس ارتفاع الحقل BASE_F.rar

استاذي العزيز 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