كل الانشطه

عندما تكون ملفات اكسس بالإمتداد 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 اولا شكرا علي تعبك واهتمامك طلب اخر .. هل يمكن تنفيذ ما سبق باستخدام استعلام الحاق ؟

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

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

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

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

اعرض الملف أداة إنشاء مجموعات الخيارات المخصصة {سلسلة الأدوات المساعدة المخصصة} من منا لم يواجه عند تصميم تطبيق ما لحالات تتوقف على إستجابة المستخدم لتوجيه سير العمل بإتجاه مختلف عن الآخر وأغلب هذه الحالات نستخدم فيها مربع الحوار MsgBox فنطلب منه مثلاً الرد بنعم أو لا أو موافق أو إلغاء الأمر .... إلخ حسناً ماذا لو واجهت حالات تتطلب أكثر من ثلاثة خيارات مثلاً وأريد أن تكون هذه الخيارات مكتوبة بشكل صريح فسيكون من الصعب إستخدام MsgBox فنحن سنكون محكومين بمسميات الأزرار الإفتراضية والتي قد لا تعبر عن المطلوب بطريقة صحيحة صحيح أنه يمكننا إستخدام أداة مربع حوار المهام TaskDialog لنحصل على النتيجة المطلوبة وأحسن ولكن قد يرى البعض أنه ليس بحاجة لإستخدامها لأي سبب من الأسباب وسيفضل أن يقوم بإنشاء نموذج مخصص لهذه الحالة فقط ... حسناً وماذا إذا إحتاج إلى قائمة خيارات أخرى؟ عندها سيضطر إلى إنشاء نموذج ثاني وثالث ... وهكذا لكل ما سبق أقدم لكم اليوم أداة أعتبرها من الأدوات المثيرة للإعجاب وذلك لأنها رغم بساطتها إلا أنها تقدم خدمة لاغنى عنها بل وتوفر علينا الكثير من الوقت والجهد ولبساطتها لم أحتاج إلى كتابة أي تعليمات لشرح طريقة عملها فكل ماهو مطلوب هو تعبئة بعض مربعات النص فقط ويمكن مشاهدة النتيجة مباشرة وعند الإنتهاء يتم النقر على زر النسخ ولصق الكود في أي حدث تريد ... هذا كل شيء ماعليك إلى أن تكمل التعليمات البرمجية المترتبة على نتيجة التحديد وكما تعودنا ستجدون في المرفقات ملفي أكسس الأول بإسم القالب ويحتوي على نموذجين ووحدة نمطية والحقيقة أنك لست بحاجة إلا إلى نموذج واحد إلى جانب الوحدة النمطية في النسخ النهائية (وهما ماستجدونهما في النسخة التوضيحية) أما نموذج منشئ صيغة أمر الإستدعاء فلن تحتاجه إلا خلال التطوير وهنا يجب علي أن أتقدم بألشكر للأخ العزيز @Foksh والذي دائماً ما يتحفنا بهدايا تقدم في ظاهرها وظائف رئيسية وفي باطنها تقدم وظائف أخرى فرعية أو مخفية لاتقل في أهميتها عن الوظيفة الأساسية التي تقدمها الأداة ومن ضمن هذه الهدايا المخفية كانت وظيفة تحويل أي تطبيق إلى وظيفة إضافية Add-in لذا فقد قمت بإستخدام الكود الخاص به لمنح إمكانية حفظ الأداة كوظيفة إضافية ليمكن للجميع الإستفادة من الإداة في جميع تطبيقات أكسس دون الحاجة إلى إستيراد نموذج منشئ صيغة أمر الإستدعاء ملف أكسس الآخر فهو بإسم (النسخة التوضيحية) وستجدون فيه بعض الأمثلة لطريقة الإستفادة من الأداة (أحد الأمثلة أعتبره هدية بحد ذاته) ملاحظة مهمة : أرجو قراءة التعليقات المرفقة بالكود الخاص بكل زر أمر لكل مثال فستجدون فيها توضيح لكل إجراء في الأخير أرجو أن تنال الأداة إعجابكم وأن تجدو فيها الفائدة في أعمالكم وإذا كان لدى أي أحد أي إستفسار أو ملاحظة فلا يبخل علينا بها تحياتي صاحب الملف منتصر الانسي تمت الاضافه 09/01/26 الاقسام قسم الأكسيس  

حتماً لن ينفعل ولا حل لأننا نجهل أسماء الحقول ولا بنية الاستعلامات أصلاً .. وبعد أن توضحت المشاكل التي في أساس عدم نجاح الفكرة .. الاستعلام Qry_All_Year ، يعتمد أساساً على الاستعلام MY_Bouns ، يعني لو استخدمنا الدالة Dlookup داخل الاستعلام فإنك ستدوووووووور في دوامة لها بداية ما لها نهاية حسب عدد السجلات 😁 وبالتالي التعديل الصحيح برأيي سيكون على استعلامك MY_Bouns سيكون :- SELECT Tbl_Days_Months.Months_Number, Tbl_Days_Months.Months_English, Qry_New_Request.Mon_Year, Count(Qry_New_Request.TCode) AS T_Count, [T_Count]*2 AS Projects, DLookUp("[S_Youssef]","Qry_All_Year", "[Code_Month]=" & [Months_Number]) AS يوسف FROM Tbl_Days_Months LEFT JOIN Qry_New_Request ON Tbl_Days_Months.Months_Number = Qry_New_Request.Code_Month GROUP BY Tbl_Days_Months.Months_Number, Tbl_Days_Months.Months_English, Qry_New_Request.Mon_Year ORDER BY Tbl_Days_Months.Months_Number; يعني بس اللي عملناه هو إعادة ترتيب الحسابات مرة أخرى ، بحيث لا يعتمد الاستعلام على نفسه بشكل غير مباشر .

اتفضل المثال lab.rar لم يصلح ولا كود لذلك ارسلت مثال lab.rar

مشاركة مع أستاذنا @منتصر الانسي .. على الأقل أخي @jo_2010 لو ارفقت الجداول والاستعلامين 😅 .. على العموم لدي سؤال ، هل الحقل Mon_Year في كلا الاستعلامين تاريخ ؟؟ إذا كان حقل تاريخ ، فجرب اضافة الجملة التالية في الاستعلام المطلوب الإضافة له :- يوسف: DLookUp("[يوسف]";"Qry_All_Year";"Month([Mon_Year])=" & [No_Month] & " AND Year([Mon_Year])=" & Year([Mon_Year])) أو كـ حل أبسط باستعمال رقم الشهر :- يوسف: DLookUp("[يوسف]";"Qry_All_Year";"[No_Month]=" & [No_Month]) جرب ، وتابع بالنتيجة معنا ..

القاعدة كبيرة

ولماذا لم ترفق المثال ؟

اريد وضع كل قيمة أمام الشهر الخاص بها اما بكود الشهر أو اسم الشهر

لإستخدام دالة DLookup يجب معرفة الحقل أو الحقول المشتركة بين الإستعلامين بمعنى هل تريد إرجاع قيمة الحقل لنفس الشهر أو الشهر والسنة أم ماذا؟ وسيكون من الأسهل لو تم إرفاق مثال للتعديل عليه

اجعل مسميات مربعات النص بالعربي

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