نجوم المشاركات

وعليكم السلام ورحمة الله وبركاته 🙂 عملت شيء مشابه لهذا سابقا .. فقط يمكن تعديله ليتوافق مع الحاجة 🙂 ‏‏Meter -Moosak _ Final.accdb

حسب طلبك بدون شاشات حوارية وغبرها يجب كنابة اسم الملف في الكود يالملف الاول وان يكون الملفان في نقس المسار جرب واعلمنى ان كان هنلك اي تعديل طبعا الملف 2 لا يوجد به تعديل الملف1.xlsb

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

وعليكم السلام ورحمة الله تعالى وبركاته جرب هل هدا ما تقصده Const Main As String = "الرئيسية " Sub destination(WSname As String) Dim WS As Worksheet, f As Worksheet, srcWS As Worksheet Set srcWS = Sheets(Main) Application.ScreenUpdating = False For Each WS In ThisWorkbook.Worksheets If WS.Name = WSname Then Set f = WS Exit For End If Next WS On Error Resume Next For Each WS In ThisWorkbook.Worksheets If WS.Name <> WSname Then WS.Visible = xlSheetVeryHidden Next WS On Error GoTo 0 f.Visible = xlSheetVisible: f.Activate If srcWS.Visible = xlSheetVisible And WSname <> Main Then srcWS.Visible = xlSheetVeryHidden Application.ScreenUpdating = True End Sub Sub GoToMainSheet() Sheets(Main).Visible = xlSheetVisible destination Main End Sub Sub GoToPage1() destination "كشف التلامي الحاضرين صفحة 1" End Sub Sub GoToPage2() destination "كشف التلامي الحاضرين صفحة 2" End Sub Sub GoToPage3() destination "الدخول و الخروج خلال الشهر" End Sub Sub GoToPage4() destination "المعلومات العامة" End Sub وفي حدث ThisWorkbook Private Sub Workbook_Open() Dim WS As Worksheet Const srcWS As String = "الرئيسية " For Each WS In ThisWorkbook.Worksheets WS.Visible = IIf(WS.Name = srcWS, xlSheetVisible, xlSheetHidden) Next WS End Sub كشف التلاميذ الحاضرين 2023--2024.xlsb

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

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

تفضل التعديل تم اصلاح حذف الملفات تم اصلاح حذف المجلد في حال كان فارغ Lab4.zip

لله درك يا أبا جودي .. معلم وسيد المعلمين .. 🤗🌷🌹 هذي تحفة من أروع إبداعاتك 😊👌 وحوار شيق جدا .. تحية لكما @ابوخليل @ابو جودي 🌷

من البدايه يا استاذي الفاضل ابو خليل . الله يرحم والديك . وسادعو لك فاقول : (( اللهم يسر له امره . وحقق له مايتمنى . ووسع له صدره ليتحملني انا وامثالي . واحفظه بعينك التي لاتنام اللهمّ احفظه ووفّقهُ بكل أمرٍ يرجوه، واستجب له كل دعاء، وحقّق له كل أمانيه. اللهمّ سهّل أمره، واشرح له صدره، وأبعِد عنه الهمّ، والضيق، والحزن، وألهِمهُ الصبر والقوة)) . اللهم امين

هههه .... كلام سليم واصبحنا لا نعرف اي التعديلات المناسبة لك أخي @يونس محمد الخطابي

عليكم السلام المشكلة منك .. تخاطب جهتين .. اذا وجهت الخطاب لشخص محدد فهنا يكون اقرب للالتزام فالاستاذ محمد وكاتب هذه السطور اتكل بعضنا على بعض .. فاصبح يونس مثل معيّد القريتين بعد هذه الديباجة تفضل .. تم ضبط المثال ويعمل 100% لو لديك مليون سجل يعمل من الاسم المفرد وحتى الاسم الرباعي Dim rs As Recordset Dim na0, na1, na2, na3 As String On Error Resume Next Set rs = CurrentDb.OpenRecordset("QAAA") rs.MoveLast rs.MoveFirst Do While Not rs.EOF na0 = "": na1 = "": na2 = "": na3 = "" na0 = Split(rs!AsmGded, " ")(0) na1 = Split(rs!AsmGded, " ")(1) na2 = Split(rs!AsmGded, " ")(2) na3 = Split(rs!AsmGded, " ")(3) rs.Edit rs!Rmz = Mid(na0, 1, 2) & Mid(na1, 1, 2) & Mid(na2, 1, 2) & Mid(na3, 1, 2) rs.Update rs.MoveNext Loop Beep MsgBox "تم توليد الرموز بنجاح", , "" اذا السجلات عندك كثيرة جدا فالافضل ان تضيف هذين السطرين .. الأول في اعلى اللوب والثاني بعد نهاية اللوب من اجل تعلم ان الكود ما زال يعمل ولم ينتهي بعد DoCmd.Hourglass True DoCmd.Hourglass False نموذج بحث7.rar

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

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

بالنسبة لمثال الاستاذ / لوفر قد تمكنت بفضل الله وعونه ان اعدل على الايكونة واختار ما يناسبنى من الايكونات هذا اولا ثانيا تمكنت من تعديل اسم البرنامج واجعله بالاسم الذى يتناسب مع برنامج الشراء والبيع ثالثا وهو الاهم : عرفت انه يرسل اختصار مرة واحدة فقط الى سطح المكتب بفضل الله اشكركم للمرة الثانية استاذى الكبير العظيم /الاستاذ خليفة ــ والاستاذ / لوفر على هذا المثال الجميل جداجدا جدا جدا جدا جدا جزاكم الله خير

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

وعليكم السلام ورحمه الله وبركاته اكواد لتحسين الاداء Sub OptimizePerformance() ' إيقاف التحديثات على الشاشة Application.ScreenUpdating = False ' إيقاف الحسابات التلقائية Application.Calculation = xlCalculationManual ' إيقاف الأحداث Application.EnableEvents = False ' إيقاف التنبيهات Application.DisplayAlerts = False ' إيقاف الحفظ التلقائي Application.AutoRecover.Enabled = False ' إعادة تمكين كافة الإعدادات بعد الانتهاء Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic Application.EnableEvents = True Application.DisplayAlerts = True Application.AutoRecover.Enabled = True End Sub