كل الانشطه

شكراً لك أخي منتصر 😇 ، إعجابك الجميل نعم تماماً وقد ذكرت هذه النقطة فعلاً في الموضوع .. فيما يتعلق بالخطأ ، فلا حاجة لتثبيت نسخة البرنامج لديك في كمبيوترك .. ولكن قبل التحليل ما هي نسخة الويندوز لديك ؟؟ والأوفيس ؟؟

هنا سأسكت قليلاً وما أقدر أعبر إلا بكلمة واحدة هناك ملاحظة واحدة بس فيبدو أنك تعتمد على برنامج into لبتنفيذ التحزيم لأنه ظهرت لي هذه الرسالة حتى بعد ان قمت بتنصيب برنامج inno setup مازالت الرسالة تظهر ويتوقف العمل

عمل ممي

اعرض الملف ⭐ هدية ~ الحل المتكامل لتحزيم وتوزيع تطبيقات أكسس كملف تنفيذي احترافي 2026 ⭐ أخواني وأساتذتي ومعلمينا ( دون استثناء ) .. كثيراً ما يقضي مطور ومبرمج قواعد بيانات أكسس أياماً وليالي في تصميم وبرمجة نظامه بأعلى درجات الإتقان والإحترافية ، ولكن عند وصول لحظة تسليم البرنامج للعميل تبدأ التحديات الحقيقية 😵 ، والتي ألخصها بما يلي :- كيف أمنع العميل من العبث بالتصميم وكود الـ VBA ؟ كيف أتخلص من رسائل الأمان المزعجة ؟ كيف أقوم بتثبيت الخطوط الخاصة وتجهيز المرفقات وملفات الـ Back-End بسلاسة ؟ كيف أُقدّم البرنامج للعميل في صورة ملف تثبيت احترافي ( Setup.exe ) وبأيقونة مخصصة ؟ من هذا المنطلق ، وخدمة لإخواني المطورين وصانعي تطبيقات الآكسيس ، يسعدني أن أضع بين أيديكم اليوم أداة :- معالج ومنشئ حزم تثبيت أكسيس الذكي - Access Smart Packager & Setup Builder وهي أداة متطورة تم بناؤها من داخل أكسس نفسه باستخدام نسخة محمولة من Inno ، لتتولى أتمتة عملية التحزيم والتوزيع بالكامل بنقرة زر واحدة ودون أي تعقيد . 🛠️ الميزات والوظائف الرئيسية للأداة :- 1️⃣ التحويل التلقائي الذكي إلى ( ACCDE / MDE ) ، وهنا يلعب الدور إصدار آكسيس الذي تم تشغيل الأداة من خلاله . تحويل فوري ومحمي لقاعدة البيانات بنقرة واحدة لحماية أكواد الـ VBA . فحص وتشخيص ذكي للأخطاء . الأداة لا تكتفي بإظهار رسائل خطأ غامضة ؛ بل تفحص تلقائياً ( صيغة الملف ، القفل والتزامن ، المراجع البرمجية المفقودة بالاسم ، وأخطاء التجميع ... إلخ ) لتخبرك بالسبب الدقيق وحله فوراً . 2️⃣ الأمان وحماية البرنامج :- تعطيل المفتاح الخاصة وخصوصاً مفتاح الـ Shift . حيث تقوم بقفل تشغيل البرنامج بزر Shift وأي مفاتيح خاصة ، لمنع الدخول للنوافذ الخلفية أو نافذة التنقل أو محرر الأكواد . إضافة المواقع الموثوقة ( Trusted Locations ) ؛ فتقوم بتسجيل مسار البرنامج تلقائياً في سجل الويندوز (داخل الـ Registry ) لتعمل الماكرو وأكواد VBA بدون أي تحذيرات أمان. حماية التثبيت بكلمة مرور . وهذه تتيح إمكانية تشفير ملف التثبيت وحمايته بكلمة سر تمنع غير المصرح لهم من تنصيبه . 3️⃣ المعمارية المزدوجة وفصل البيانات ( Front-End و Back-End ) :- دعم كامل للأنظمة المقسمة ؛ بحيث يمكنك تحديد مسار تثبيت مختلف ومستقل لملف البيانات (Back-End) عن ملف الواجهة . دعم تضمين مجلدات وملفات إضافية غير محدودة (مستندات ، صور ، أدلة تشغيل ... إلخ ) . 4️⃣ دعم الأجهزة غير المزودة بأوفيس ( Access Runtime ) :- إمكانية تضمين حزمة التثبيت الخاصة بـ Microsoft Access Runtime ليعمل برنامجك على أي جهاز عميل لا يملك نسخة أوفيس مثبته داخل الويندوز . 5️⃣ التثبيت التلقائي للخطوط واتفاقية الاستخدام :- خيار لتثبيت خطوط البرنامج الخاصة في نظام ويندوز العميل تلقائياً . إظهار شاشة اتفاقية الترخيص ( License Agreement ) قبل بدء التثبيت . 6️⃣ واجهة تثبيت تفاعلية ومخصصة :- تمكنك الأداة من إنشاء إختصارات سطح المكتب وقائمة ابدأ بأيقونة التطبيق المخصصة . دعم واجهات التثبيت باللغة ( العربية / الإنجليزية / أو كلاهما ) ليختار العميل لغته المفضلة لواجهة التثبيت . 7️⃣ نافذة تيرمنال عصرية وملونة ( Live Log Terminal ) :- شاشة سجل تفاعلية حديثة ، تعرض خطوات البناء لحظة بلحظة بنظام ألوان متناسق وواضح ومخصص لسهولة المتابعة . 📥 كيفية الاستخدام :- اختر مشروعك أو أنشئ مشروعاً جديداً . حدد ملف قاعدة البيانات الرئيسي ( وملف قاعدة البيانات الخلفية - الجداول - إن وجد ) والأيقونة . قم بتفعيل الخيارات التي تناسبك من لوحة التحكم ، مثل ( Shift , Trusted Location , Fonts , Runtime ... إلخ ) . اضغط على زر إنشاء حزمة التثبيت ، وسيتكفل البرنامج بالباقي لتجد ملف الـ EXE جاهزاً للتسليم 😁 . 📸 صورة لواجهة الأداة وتبويباتها :- فيديو توضيحي لطريقة الاستخدام بشكل سريع .. ملف الأداة مفتوح المصدر ، للتحميل :- Access Setup Builder.zip أتمنى أن تكون هذه الأداة عوناً وإضافة نافعة لجميع المطورين والمبرمجين في مشاريعهم القادمة ونسألكم خالص الدعاء بظهر الغيب .. صاحب الملف Foksh تمت الاضافه 09/05/26 الاقسام قسم الأكسيس  

يمكنك استخدام الدالة Application.OnTime لتشغيل إجراء آخر بعد دقيقة من استدعاء الكود: Sub StartTimer() 'تشغيل الإجراء SaveAndClose بعد دقيقة Application.OnTime Now + TimeValue("00:01:00"), "SaveAndClose" End Sub Sub SaveAndClose() ThisWorkbook.Save 'حفظ الملف Application.Quit 'إغلاق Excel End Sub طريقة العمل عند تشغيل StartTimer يبدأ المؤقت. ينتظر Excel دقيقة واحدة. يتم استدعاء الإجراء SaveAndClose. يتم حفظ المصنف ثم إغلاق برنامج Excel. إذا كنت تريد إغلاق المصنف فقط دون إغلاق برنامج Excel بالكامل: Sub StartTimer() Application.OnTime Now + TimeValue("00:01:00"), "SaveAndCloseWorkbook" End Sub Sub SaveAndCloseWorkbook() ThisWorkbook.Save ThisWorkbook.Close SaveChanges:=True End Sub وإذا أردت تغيير المدة إلى 5 دقائق مثلاً: Application.OnTime Now + TimeValue("00:05:00"), "SaveAndClose" بهذه الطريقة يتم التنفيذ في الخلفية بعد المدة المحددة دون استخدام حلقات انتظار (Loop) أو Application.Wait.

أولاً شكراً لكم على التفاعل وعلى المقترحات التي قدمتموها وبالفعل هذه المقترحات في محلها وقد فكرت فيها شخصياً ولكن إسمحوا لي توضيح فكرتي في سبب عدم العمل بها سبب عدم إضافة هذه الأسطر كان بسبب إختلاف الصيغة بإختلاف الإجراء الذي سيتم بناءً على الخيار المحدد فمن خلال الأمثلة سنجد أنه مرة ظهر بالشكل الذي ذكرته في ردك وفي مكان آخر ظهر بهذا الشكل Call OpenCustomOptions("إختر الإدارة المطلوبة" _ , "الإدارة العامة" _ , "البحث والتطوير" _ , "الخدمات العامة" _ , "العمليات" _ , "المالية" _ , "المبيعات والتسويق" _ , "المشتريات" _ , "الموارد البشرية" _ , "تكنولوجيا المعلومات") DoCmd.OpenForm "frmEmployees", , , "EmpDepartment='" & strResult & "'" لاحظ أننا إكتفينا بأخذ القيمة النصية ووضعناها كمعيار تصفية مباشرة بدون إستخدام عبارة Select Case بالإضافة إلى ذلك في الحالات التي سيكون فيها خيارين فقط فقد يكون من الأفضل إستخدام عبارة IF بدلاً عن Select Case هذا من ناحية ومن ناحية أخرى فإن الأداة ترجع لنا قيمتين واحدة رقمية والأخرى نصية فإذا تم إضافة هذه الأسطر فهل يتم كتابتها بناء على القيم الرقمية أم النصية ؟ وكما تفضلت وذكرت في كلامك فإن تفضيلي عدم إضافة أسطر خاصة بعبارة Select Case حتى لا يظن المستخدم العادي بأنها إلزامية ويجب أن تكون بتلك الصيغة الحقيقة لا أخفيكم بأنه في البداية كان يتم إنشاء صيغة الكود لتكون بهذا الشكل Call OpenCustomOptions("حدد أحد الخيارات التالية" _ ,"الخيار الأول" _ ,"الخيار الثاني" _ ,"الخيار الثالث") 'intResult يمكن الحصول على رقم الخيار المحدد من خلال المتغير العام 'strResult ويمكن الحصول على نص الخيار المحدد من خلال المتغير العام 'يمكنك إستخدام أحدهما أو كلاهما بحيث تظهر هذه الثلاثة أسطر بعد صيغة الأمر وتراجعت عنها حتى لا يبقيها المستخدم العادي وكأنها جزء من الكود (يمكنكم الإطلاع على كود الحدث SetCode خلف النموذج frmCustomOptionsBuilder وستجدون أني قمت بتعليق الأسطر الثلاثة) بعد هذا التوضيح هل تعتقدون أن وجهة نظري كانت في محلها أم أني بالغت في الحذر ؟ فلو رأيتم أنه من الأفضل إضافة الأسطر الخاصة بعبارة Select Case فلا توجد مشكلة سأقوم بإضافتها فرأيكم سيكون هو الأفضل بالتأكيد وأنا كذلك كنت بصدد الرد ولكن بعد قرائتي لآخر سطر في ردك تراجعت عن الفكرة

مبدئيا أراها كافية 🙂🖐 فعلا أتفق مع هذا الرأي وقد خطر على بالي أيضا .. 🙂 ومن الأفكار التي خطرت في بالي أيضا هو تحويل الإجرائية OpenCustomOptions إلى دالة Function ترجع القيمة المختارة مباشرة هكذا مثلا : Public Function OpenCustomOptions(ParamArray strOptions()) As Integer Dim DocName As String, OpArg As Variant Dim strCode As String strCode = strOptions(0) Dim i As Integer For i = 1 To UBound(strOptions()) If strOptions(i) <> vbNullString Then strCode = strCode & "," & strOptions(i) Next i OpArg = strCode DocName = "frmCustomOptions" DoCmd.OpenForm DocName, , , , , acDialog, OpArg OpenCustomOptions = intResult End Function وبهذا يمكن إسناد القيمة الراجعة مباشرة إلى الكود أو إلى متغير (أراها أسهل هكذا .. حالها حال الدالة MSGBOx المدمجة) : Private Sub cmd01_Click() Dim Result As Integer Result = OpenCustomOptions("حدد النموذج الذي تريد فتحه" _ , "نموذج إدخال البيانات" _ , "نموذج تعديل البيانات" _ , "نموذج إستعراض البيانات" _ , "نموذج تحديد معايير تصفية التقارير") 'سنستخدم قيمة المتغير الذي سيحتفظ برقم الخيار المطلوب Select Case Result Case Is = 1 DoCmd.OpenForm "frm01" Case Is = 2 DoCmd.OpenForm "frm02" Case Is = 3 DoCmd.OpenForm "frm03" Case Is = 4 DoCmd.OpenForm "frm04" End Select End Sub ولكن انتبهت لاحقا أن النموذج يرجع قيمتين intResult و strResult .. فتراجعت عن الإفصاح عن الفكرة 😅

بدايةً ، ما شاء الله على الأفكار الجميلات النيرات هذه أخي @منتصر الانسي عمل جميل ومفيد جداً ما تقدمت به ، ودائماً تتحفني بأفكارك التي أعتبرها هي الكون خارج الصندوق . خطر ببالي نقطة قد تكون ذات وضوح أكثر إن تمت . وهي :- في القالب والذي سيعتبر كأداة Adds-in مدمج ، عند انشاء الأكواد ونسخها ، تنتج بهذا الشكل كمثال :- Call OpenCustomOptions("خيارات المستخدم" _ , "الخيار الأول" _ , "الخيار الثاني" _ , "الخيار الثالث" _ , "الخيار الرابع") والمستخدم العادي - مع احترامي للجميع طبعاً - قد يضطر للرجوع الى أمثلة كي يتعرف على آلية ربط الحدث مع كل خيار تم انشاؤه . وهنا سيلاحظ أن الأحداث هي - كمثال مقتبس من ملفات المشروع :- Select Case intResult Case Is = 1 DoCmd.OpenForm "frm01" Case Is = 2 DoCmd.OpenForm "frm02" Case Is = 3 DoCmd.OpenForm "frm03" Case Is = 4 DoCmd.OpenForm "frm04" End Select فكانت فكرتي لك إن كانت ممكنة هي بإضافة التوضيح لكيفية الإستدعاء إلى الكود الذي يتم انشاؤه من الزر cmdCopy . أرجوأن أكون قد وُفقت في توضيح الفكرة التي تدور في رأسي .

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

نعم أخي منتصر ، في بالي عدة مواضع لاستخدام هذه الأداة في تطبيقاتي 🙂 .. هي أقرب للرسائل الخاصة بحيث يمكنك تخصيص الأزرار بشكل أوسع بدل الأزرار المحددة [نعم - لا - إلغاء الأمر] .. والأمثلة التي وضعتها أنت تفتح الكثير من الأفكار 😎👌

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

شكرا لك أخي منتصر 🙂 وهذه رائعة جديد من روائعك .. 👍 جربتها .. وما عندي أي ملاحظة .. عمل متقن ماشاء الله .. وفقك الله وأحسن الله إليك .. في ميزان حسناتك .. 🌹

عندما تكون ملفات اكسس بالإمتداد mde أو accde فهذا يعني أنه قد تم تشفيرها وفقاً للبيئة التي تم تشفيرها فيها بالتالي إذا تم تشفيرها في بيئة 32 بت فلن تعمل إلا في بيئة 32 بت ونفس الشيئ لـ 64 بت . هذا يعتمد على نقطة مهمة هل التطبيق وهو بالإمتداد mdb أو accdb يعمل بدون مشاكل في كلا النواتين أم لا؟ فإذا كان يعمل بدون مشاكل فلن يكون هناك أي اكواد بحاجة للتعديل أما إذا كان يعمل في 32 بت ولم يعمل في 64 بت فغالباً ستكون المشكلة في دوال API وحل هذه المشكلة بسيط جدا إفتح محرر الأكواد ومن قائمة Debug --> Compile YourDatabaseName (طبعا سيظهر إسم التطبيق مكان الكلمة YourDatabaseName) وسيتوقف المؤشر عند أول دالة أو إجراء (وغالباً ستبدأ بالكلمة المفتاحية Declare وأحيانا قد تكون هذه الكلمة مسبوقة بكلمة Private أو Public) وسأوضح لك بمثال واقعي هذا المثال يحتوي على دالتين وإجراء API ستعمل في 32 بت فقط ولن تعمل في 64 بت Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal ByteLen As Long) Declare Function EnumFonts Lib "gdi32" Alias "EnumFontsA" (ByVal hDC As Long, ByVal lpsz As String, ByVal lpFontEnumProc As Long, ByVal lParam As Long) As Long Declare Function GetDC Lib "user32" (ByVal hWnd As Long) As Long قمت بنسخها وذهبت لأداة الأخ موسى وقمت بالخطوات الموضحة بالأصفر تم تحديد خيار (توافق 32/64) ولصقت الكود الأصلي في الجزء الأيمن ثم النقر على زر (تشغيل المعالج) لتم تحويل الكود إلى هذا الشكل #If VBA7 Then Declare PtrSafe Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal ByteLen As Long) Declare PtrSafe Function EnumFonts Lib "gdi32" Alias "EnumFontsA" (ByVal hDC As LongPtr, ByVal lpsz As String, ByVal lpFontEnumProc As LongPtr, ByVal lParam As LongPtr) As Long Declare PtrSafe Function GetDC Lib "user32" (ByVal hWnd As LongPtr) As LongPtr #Else Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal ByteLen As Long) Declare Function EnumFonts Lib "gdi32" Alias "EnumFontsA" (ByVal hDC As Long, ByVal lpsz As String, ByVal lpFontEnumProc As Long, ByVal lParam As Long) As Long Declare Function GetDC Lib "user32" (ByVal hWnd As Long) As Long #End If نقوم بإستبدال الثلاثة أسطر الأصلية بهذه النتيجة وبهذا نكون قد حصلنا على كود متوافق مع النواتين قم بتكرار العملية إلى أن يصبح خيار Compile YourDatabaseName غير مفعل كما بالصورة وعندما تجد أن كلمة Compile مع إسم التطبيق أصبح كما بالصورة يكون تطبيقك أصبح جاهز للعمل على النواتين بدون أي مشاكل عندما أقول يعمل على النواتين أقصد وهو بالإمتداد mdb أو accdb أما إذا كان بالإمتداد mde أو accde فإن البيئة التي سيعمل فيها هي نفس البيئة التي تم تشفيره فيها أرجو أن يكون الشرح واضح وإذا كان هناك أي إستفسار آو توضيح فتفضل وأسأل تحياتي

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

نعم أخي الكريم .. يمكن تنفيذ الجزء الأكبر من هذا الحدث باستخدام استعلامات إلحاق ، وأعتقد أنه سيكون الحل الأسرع والأنظف من المرور على السجلات باستخدام Recordset .. لكن توجد نقطة مهمة جداً جداً في حالتك الحالية :- هنا لديك عمليتان منفصلتان :- إنشاء سجل جديد في جدول buy وذلك للحصول على buy_id جديد نسخ تفاصيل الفاتورة من جدول details وربطها بـ buy_id الجديد الذي تم انشاؤه لذلك يمكن تنفيذ العملية بثلاث خطوات. إولاً إنشاء سجل فاتورة جديدة ، ثم الحصول على رقم فاتورة الشراء الجديدة (buy_id) ، وأخيراً إلحاق تفاصيل فاتورة البيع إلى تفاصيل فاتورة الشراء الجديدة . ولكم من خلال الكود ستكون العملية أسهل مرة واحدة .

حالياً في الوقت الحالي ، ليس هناك طريقة للأسف .. ولكن قد يكون هناك مستقبلاً طريقة لكسر هذه اللعنة 😈 . ولكن تستطيع كما أشاد أستاذنا منتصر باستعمال أداة الأستاذ موسى ..

شكرا جزيلا استاذنا العزيز على رأيك الجميل .. مع التقدير

لماذا لاتجرب أداة VBA Code Doctor المقدمة من الأخ @Moosak

الطريقة السابقة في الشرح صعبة ولم استطع فهمها لانني مستوى بسيط هل من طريقة ابسط واسهل تجعل القاعدة تعمل على نواة 32 ونواة 64 أو لو قمت بغلق القاعدة Mde على نواة 64 هل ستعمل على نواة 32 أم نفس المشكلة ستظهر السؤال بطريقة أخرى هل لو تم حويل القاعدة الى MDE على اوفيس 2010 سيكون نواة 64 وتعمل على كلاهما 32 ، 64 ؟؟

وعليكم السلام ورحمة الله وبركاته .. أخي أبو سلمى ، هذه المواضيع كثيرة هي المواضيع التي تحدثت عنها ، وتجد في نهاية المطاف أنه اذا تم حفظ المشروع بصيغة Accde أو Mde فإن الحل الوحيد حالياً هو تثبيت إصدار أوفيس 32 أو 64 حسب إصدار الأوفيس الذي تم حفظ المشروع عليه ... أما إذا كانت القاعدة ما زالت Mdb أو Accdb ، فمواضيع تحويل الدوال للعمل على الإصدارين ، أرشح منها للإطلاع عليه :-

السلام عليكم ورحمة الله الاخوة الكرام أعضاء الجروب / السلام عليكم ورحمة الله قمت بتصميم قاعدة بيانات على أكسس 2003 وعند وضعها على جهاز آخر لم تعمل واكتشفت ان المشكلة في أنها كانت على أوفيس 32بت أما الجهاز الاخر فعليه أوفيس 64 بت سؤالي كبف يمكن لي أن أجعل القاعدة تعمل على أوفيس 64 بت وجزاكم الله خيرا

السلام عليكم استاذ @Foksh اولا شكرا علي تعبك واهتمامك طلب اخر .. هل يمكن تنفيذ ما سبق باستخدام استعلام الحاق ؟

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