جلب التاريخ من السيرفر وليس من جهاز المستخدم

[jjafferr]

شكرا جزيلا 🙂

 

اذن ، مافي داعي للتعديل اليدوي على كل برنامج ، فرجاء تعديل الوحدة النمطية الى :

Public Function Make_File()

    Dim BE_Path, PauseTime, Start
    
    'get the server path
    'BE_Path = DLookup("[Database]", "MSysObjects", "[Flags]=2097152")   'Path and BE name
    BE_Path = Get_DB_Path_2												 'Path and BE name
    BE_Path = Mid(BE_Path, 1, InStrRev(BE_Path, "\"))
    BE_Path = BE_Path & "dummy.txt"
    
    'make the dummy txt file
    Open BE_Path For Output As #1
        Print #1, "No text required"
    Close #1
    
    'pasue for a second, until file is recognized, for slow networks
    PauseTime = 1    ' Set duration.
    Start = Timer    ' Set start time.
    Do While Timer < Start + PauseTime
        DoEvents    ' Yield to other processes.
    Loop
    
    'get the date created
    Make_File = FileDateTime(BE_Path)
    
    'clean up, delete the file
    Kill BE_Path

End Function

Public Function Get_DB_Path_2()

    Dim rst As DAO.Recordset
    
    Set rst = CurrentDb.OpenRecordset("SELECT Database FROM MSysObjects WHERE (MSysObjects.Database) Is Not Null")
    Get_DB_Path_2 = rst(0)
    
    rst.Close: Set rst = Nothing
End Function

 

جعفر

my_FE.mdb.zip

[سلمان الشهراني]

الله الله جميل جدا
جاري التجربه 

[سلمان الشهراني]

ولله ابداع ماشالله تبارك الله
يعمل 100% 
سوى  تم اخفاء الجداول المرتبطه او اظهارها
وبصراحه جدا مهم انه غير مرتبط بوضع المسار وخاصه عند تغير اسم البرنامج او النسخه
فالف شكر لك
 

[jjafferr]

وكذلك تجربة اخيرة لوسمحت ، جرب هذا الكود في نافذة immediate :

?DLookup("[Database]", "MSysObjects", "[Database] Is Not Null")

 

جعفر

[سلمان الشهراني]

انت تامر 
ابشر

تفضل

 

تم تعديل مارس 22, 2020 بواسطه سلمان الشهراني

[jjafferr]

رحم الله والديك دنيا وآخرة ، و زاد الله فضله عليك 🙂

 

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

Public Function Make_File()

    Dim BE_Path, PauseTime, Start
    
    'get the server path
    BE_Path = DLookup("[Database]", "MSysObjects", "[Database] Is Not Null")   'Path and BE name
    BE_Path = Mid(BE_Path, 1, InStrRev(BE_Path, "\"))
    BE_Path = BE_Path & "dummy.txt"
    
    'make the dummy txt file
    Open BE_Path For Output As #1
        Print #1, "No text required"
    Close #1
    
    'pasue for a second, until file is recognized, for slow networks
    PauseTime = 1    ' Set duration.
    Start = Timer    ' Set start time.
    Do While Timer < Start + PauseTime
        DoEvents    ' Yield to other processes.
    Loop
    
    'get the date created
    Make_File = FileDateTime(BE_Path)
    
    'clean up, delete the file
    Kill BE_Path

End Function

 

جعفر

[سلمان الشهراني]

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

اسال الله لك الزرق الواسع وامدك بالصحه والعافيه 
ونا امنون لك
 

[jjafferr]

حياك الله اخوي سلمان 🙂

وشكرا على سعة صدرك وتجاربك 🙂

 

جعفر

[ابو جودي]

 لا استطيع الاستمتاع بالتجربة 

يوجد مشكلة باتصال الانترنت واتابع من الجوال