التأكد من أن اخر تاريخ لملف على الشبكة يطابق اخر تاريخ لملف العمل

[محمد احمد لطفى]

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

If DMax("[datex]", "main1115") = DMax("datex", "main1115", "\\10.12.20.125\Updatedata\main1115.accdb") Then

و لكنه لم يعمل 

فقمت بعمل كود أخر يعمل 

 

        DoCmd.TransferDatabase acImport, "Microsoft Access", _
        "F\\10.12.20.125\Updatedata\البحث.accdb", acTable, "main1115", "main1116", False
        If DMax("[datex]", "main1115") = DMax("[datex]", "main1116") Then

'        MsgBox "متطابقين"
                
        Else
        
        Call updatex
'       MsgBox "غير متطابقين"

        End If

المطلوب  تشغيل الطريقة الاولى أو هل هناك طريقة أخرى وهذا لهدف فى حالة أنهم غير متطابقين أقوم بحذف الجداول القديمة و نقل الجديدة

وجزاكم الله كل خير 

[Foksh]

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

علها تخدم فكرتك ؛ ارفقت الملف لأني على وشك الخروج من العمل ولم يسعفني الوقت في ادارة الأكواد حسب رغبتك للأسف .

Update.zip

 

[Moosak]

23 دقائق مضت, Foksh said:

في مشاركة من أحد الأخوة

هناك تحديثات جذرية عملتها على هذه الملفات أخي @Foksh لعله يتسع لي الوقت لطرحها إن شاء الله 🙂 

 

 

[محمد احمد لطفى]

الموضوع مختلف أنا عاوز اعرف لو  اخر تاريخ غير متطابق التحديث يتم اليا عند فتح قاعدة البيانات
الطريقة التانية شغالة بس لازم انقل الجدول و بعد التحديث احذف الجدول

[Foksh]

27 دقائق مضت, Moosak said:

هناك تحديثات جذرية عملتها على هذه الملفات أخي @Foksh لعله يتسع لي الوقت لطرحها إن شاء الله 🙂 

 

 

أستاذي الفاضل والأخ موسى ، كل العذر صدقاً لإني منذ أشهر تقريباً قد حملت الملف ونسيت فعلاً لمن هو هذا الملف

 

وبانتظار جديدك وتميزك الذي تبهرنا به كعادتك 🥰

تم تعديل نوفمبر 20, 2023 بواسطه Foksh

[عمر ضاحى]

9 ساعات مضت, محمد احمد لطفى said:

الموضوع مختلف أنا عاوز اعرف لو  اخر تاريخ غير متطابق التحديث يتم اليا عند فتح قاعدة البيانات
الطريقة التانية شغالة بس لازم انقل الجدول و بعد التحديث احذف الجدول

النقطه الفاصله هنا 
انت عاوز اخر تاريخ ايه واين يحصل عليه 

هل سيتم حفظ التاريخ فى حقل فى جدول ما ؟
 

غير فى نقطه فى الكود الخاص بك 
فى حرف F زائد على المسار 
انظر

"F\\10.12.20.125

 

ربما هذا هو الخطأ

[محمد احمد لطفى]

اخر تاريخ 

 DMax("[datex]", "main1115")

يساوى اخر تاريخ

F\\10.12.20.125\Updatedata\البحث.accdb

فى جدول
main1115
فى حقل 

datex

 

[عمر ضاحى]

2 ساعات مضت, عمر ضاحى said:

غير فى نقطه فى الكود الخاص بك 
فى حرف F زائد على المسار 
انظر

"F\\10.12.20.125

 

ربما هذا هو الخطأ

هل لاحظة الخطأ هنا ؟ 

 

[محمد احمد لطفى]

نعم لقدحذفتها 

مرفق ملف تجريبى

21102023.rar

[Moosak]

أخي @محمد احمد لطفى أنظر لهذه المشاركة .. 🙂 

تستطيع منها تعديل النموذج وتعطيه روابط الملفات التي لديك ( الملف الحالي و ملف التحديث ) والحصول على التواريخ لكلا الملفين 👌🏼

 

وهذا تتطبيق على ما ذكرته لك :

Show Last Update.rar

[محمد احمد لطفى]

شكراُ أستاذ @Moosak

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


 

Dim strSQL As String, dbLocal As DAO.Database, dbExternal As DAO.Database, maxDateLocal As Date, maxDateExternal As Date

' افتح قاعدة البيانات المحلية
Set dbLocal = CurrentDb()

' احصل على أقصى تاريخ للجدول المحلي
maxDateLocal = dbLocal.OpenRecordset("SELECT MAX(datex) AS MaxDate FROM main1115").Fields("MaxDate").Value

' افتح قاعدة البيانات الخارجية
Set dbExternal = OpenDatabase("\\10.12.20.125\Updatedata\البحث.accdb")

' احصل على أقصى تاريخ للجدول الخارجي
maxDateExternal = dbExternal.OpenRecordset("SELECT MAX(datex) AS MaxDate FROM main1115").Fields("MaxDate").Value

' أغلق قاعدة البيانات الخارجية
dbExternal.Close

' قارن بين القيمتين واتخذ الإجراء المناسب
If maxDateLocal <> maxDateExternal Then
    ' غير متطابقين
    Call Update


End If

وجارى مشاهدة الملف المرفق

تم تعديل نوفمبر 21, 2023 بواسطه محمد احمد لطفى

[Foksh]

أخي @محمد احمد لطفى الله يعطيك العافية ، هذه مشاركة بفكرة خطرت في بالي أود مشاركتك بها من باب التجربة ، تفضل 

 

Foksh.zip

 

* طبعاً هذا فيما يتعلق بجلب التاريخ من قاعدة بيانات أخرى

على رأي الشاعر اللي قال المثل ( أن تصل متأخراً ، خير من أن لا تصل أبداً  ) 

تم تعديل نوفمبر 21, 2023 بواسطه Foksh

[محمد احمد لطفى]

جزاك الله خير  أستاذى @Foksh

هذا لجلب التاريخ من قاعدة أخرى 

[Foksh]

في 20‏/11‏/2023 at 20:20, محمد احمد لطفى said:

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

نعم صديقي ، هو استناداً للفكرة وقابلة للتطوير طبعاً ، والفكرة كانت أن يتم جلب بيانات الجدول في القاعدة الثانية ومن ثم تتطرق لموضوع المقارنة بينهم وتستكمل فكرتك ..

[محمد احمد لطفى]

لقد وجدت الحل بالفعل ووضعت عليها افضل اجابة شكرا يا معلمى

[محمد احمد لطفى]

ويمكن الاختصار الى 

 

Dim dbExternal As DAO.Database
' افتح قاعدة البيانات الخارجية
Set dbExternal = OpenDatabase("F:\21102023\Updatedata\البحث.accdb")
If DMax("[datex]", "main1115") <> dbExternal.OpenRecordset("SELECT MAX(datex) AS MaxDate FROM main1115").Fields("MaxDate").Value Then
 
call update
End If
' أغلق قاعدة البيانات الخارجية
dbExternal.Close

 

تم تعديل نوفمبر 21, 2023 بواسطه محمد احمد لطفى