اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر

السلام عليكم ورحمة الله وبركاتة

استاذتني الاعزاء الأوفياء

الله يحفظكم ويرعاكم

 

عندي ملف لقاعدة بيانات مرفق مثال مصغر

مشكلة بالنموذج عند الاختيار تاريخ هجري وعمل حفظ لايظهر في التقرير التاريخ الهجري واليوم , اتمنى تشوفو المشكله

 

ولكم خالص الشكر :fff:

TEST - Copy.accdb

قام بنشر (معدل)

وعليكم السلام ورحمة الله وبركاته

استخدم الوحدة النمطية التالية

Function strHijri(dtGregorian As Date) As String
' returns a date in Hijri format for a given western date
VBA.Calendar = vbCalHijri
strHijri = Day(dtGregorian) & "/" _
& Month(dtGregorian) & "/" _
& Year(dtGregorian)
VBA.Calendar = vbCalGreg
End Function

ثم استخدم التالي في اي مكان في البرنامج

=strHijri([اسم حقل التاريخ])

 

TEST - Copy.accdb

تحياتي

تم تعديل بواسطه محمد ابوعبد الله
  • Like 2
قام بنشر
منذ ساعه, hh88 said:

 

اتوقع في مشكلة في الاستعلام عند الضغط على استعلام يعطيني رسال (الاستعلام تألف) 

كما ان الايام لاتظهر عند تسجيلها 

image.png.59f1189f23cfd6be8fd44cd261397c6f.png

TEST - Copy.accdb 1.07 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 0 تنزيلات

اقتباس

 

المشكلة بسبب تحديث للاوفيس

  • Like 1
  • Thanks 1
قام بنشر

يمكن حلها بثلاث طرق

  1. خذف التحديث وسبق ان اشار استاذ @jjafferr لرقم التحديث حسب الاصدار
  2. جعل مصدر استعلام التحديث من استعلام اخر وليس من الجدول مباشرة
  3. عن طريق اضافة عبارة للاستعلام
    (SELECT * FROM اسم الجدول)

    او الانتظار لحين اصدار مايكروسوفت تحديث لحل المشكلة

  • Like 2
قام بنشر (معدل)

جرب المرفق كانت المشكلة في ترتيب خيارات الماكرو

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

TEST - Copy.accdb

تم تعديل بواسطه kha9009lid
  • Like 1
قام بنشر

 

الف شكر استاذي الفاضل فعلا المشكلة كانت في استبدال الجدول باستعلام كما في الطريقة 2 وضبطت المشكلة 

اسال الله العلي القدير ان يوفقك ويحفظك :fff:

2 ساعات مضت, kha9009lid said:

يمكن حلها بثلاث طرق

  1. خذف التحديث وسبق ان اشار استاذ @jjafferr لرقم التحديث حسب الاصدار
  2. جعل مصدر استعلام التحديث من استعلام اخر وليس من الجدول مباشرة
  3. عن طريق اضافة عبارة للاستعلام
    
    (SELECT * FROM اسم الجدول)

    او الانتظار لحين اصدار مايكروسوفت تحديث لحل المشكلة

 

  • Like 1
قام بنشر
6 دقائق مضت, hh88 said:

الف شكر استاذي الفاضل فعلا المشكلة كانت في استبدال الجدول باستعلام كما في الطريقة 2 وضبطت المشكلة 

بالتوفيق اخي الكريم ليس هذا السبب الوحيد ايضا كان لديك خطأ في ترتيب احداث زر الامر حفظ

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

جزاك الله خير على الدعاء وتقبل كل الود والتقدير

  • Like 1
  • 2 weeks later...
قام بنشر
في ١٨‏/١١‏/٢٠١٩ at 09:09, kha9009lid said:

يمكن حلها بثلاث طرق

  1. خذف التحديث وسبق ان اشار استاذ @jjafferr لرقم التحديث حسب الاصدار
  2. جعل مصدر استعلام التحديث من استعلام اخر وليس من الجدول مباشرة
  3. عن طريق اضافة عبارة للاستعلام
    
    (SELECT * FROM اسم الجدول)

    او الانتظار لحين اصدار مايكروسوفت تحديث لحل المشكلة

اسعدني ردك اخي الكريم

لكن اليس من الافضل استبدال نسخة الاوفيس بدلا من من الخيار الثاني؟؟ ذلك تكون حل المشكلة حل حذري ومنطقي! ! اليس كذلك ..

وهل من الممكن ان يكون السبب ايضا نقص او تلف بعض ملفات النظام للحاسوب؟؟

قام بنشر (معدل)
29 دقائق مضت, نسيم الروح الروح said:

اسعدني ردك اخي الكريم

لكن اليس من الافضل استبدال نسخة الاوفيس بدلا من من الخيار الثاني؟؟ ذلك تكون حل المشكلة حل حذري ومنطقي! ! اليس كذلك ..

وهل من الممكن ان يكون السبب ايضا نقص او تلف بعض ملفات النظام للحاسوب؟؟

عندما حصلت مشكلة استعلام التحديث كانت بسبب تحديث امني من شركة ميكروسوف ولجميع النسخ  التي تحصل على التحديث التلقائي من اصدار 2007 الى اصدار 2019

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

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

 

تم تعديل بواسطه kha9009lid
قام بنشر
منذ ساعه, kha9009lid said:

عندما حصلت مشكلة استعلام التحديث كانت بسبب تحديث امني من شركة ميكروسوف ولجميع النسخ  التي تحصل على التحديث التلقائي من اصدار 2007 الى اصدار 2019

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

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

بارك الله فيك استاذ

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

  • Like 1
قام بنشر

السبب التحديث

مثلا لدي 8 اجهزة بالمنزل في البداية حصلت المشكلة في جهاز واحد وفي اليوم الثاني ثلاث اجهزة بعدها دخلت على التحديثات ووجدت ان المشكلة حصلت للاجهزة المحدثة فقط

اعتقد ان المشكلة انتهت الان

  • Like 1
  • Thanks 1

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information