اذهب الي المحتوي
أوفيسنا

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

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

بعد تجربة المرفق فإنه يقوم بانشاء جدول جديد وجلب أحدث تاريخ ووضعه في الجدول الجديد main1116 وبصيغة تاريخ ، ونوع الحقل datex هو تاريخ ووقت وبالتنسيق  yyyy/mm/dd

أم انا الذي لم أستوعب الفكرة !!! 🤔

تم تعديل بواسطه Foksh
قام بنشر (معدل)
1 ساعه مضت, محمد احمد لطفى said:

تمام عاوزين جدول main1116  حقل datex  يبقى تنسيق yyyy/mm/dd برمجيا لتلافى الاخطاء

او ابقاء حقل 
main1116 موجود دائما وعمل استعلام تحديث لاضافة اخر تاريخ من main1115 

لم ألحظ خطأ في الكود الخاص بك ، ولكن جرب هذا التعديل إن أحببت

بعد التجربة ، لا أعتقد أنه يمكن تعديل الخصائص ( التنسيق ) لحقل في الجدول ، ويمكن استخدام جدول منشأ مسبقاً ( أفضل طريق )

والمرفق بعد تحربته بشكل أوسع لن يحقق طلبك ، وأعتذر :frown3:

last datex.mdb

ولكن تابع هذا الموضوع

 

تم تعديل بواسطه Foksh
اضافة رابط خارجي
قام بنشر (معدل)

لم يضف تنسيق للتاريخ

لقد وجدت حل 

 

    DoCmd.RunSQL "SELECT Max(main1115.[datex]) AS [datex] INTO main1116 FROM main1115;"
    ' إضافة تنسيق لحقل التاريخ في الجدول الجديد
    Dim db As DAO.Database
    Dim prop As DAO.Property
    Set db = CurrentDb
    Set prop = db.TableDefs("main1116").Fields("[datex]").CreateProperty("Format", dbText, "yyyy/mm/dd")
    db.TableDefs("main1116").Fields("[datex]").Properties.Append prop


مع انى قد شاهدت الامر فى سطر واحد فى احد مشاركات أستاذ AbuuAhmed

تحديث 

 

DoCmd.RunSQL "SELECT Max(main1115.[datex]) AS [datex] INTO main1116 FROM main1115;"
    
CurrentDb.TableDefs("main1116").Fields("datex").Properties.Append CurrentDb.TableDefs("main1116").CreateProperty("Format", dbText, "yyyy/mm/dd")


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




 

تم تعديل بواسطه محمد احمد لطفى
  • أفضل إجابة
قام بنشر
4 ساعات مضت, محمد احمد لطفى said:

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

بعد تجارب كثيرة ، خرجت بهذه النتيجة ؛ ولكن يبدو أنك سبقتني بفكرة

وهذه فكرتي :biggrin:

last datex.accdb

  • 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