كيفية عمل تحديث تلقائي لبرنامج مصمم بالاكسس عبر الإنترنت

هذه الطريقة هي طريقة مجانية يتم فيها رفع ملف التحديث على احد برامج التخزين السحابي لمزيد من المعلومات تابع الفيديو 

ــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ

📝 كيفية عمل تحديث تلقائي لبرنامج Access عبر الإنترنت (Auto Update)

مقدمة

عندما تصمم برنامجًا باستخدام Microsoft Access وتوزعه على عدة مستخدمين، ستحتاج عاجلًا أم آجلًا إلى تحديث البرنامج وإرسال نسخة جديدة.

بدلًا من إرسال النسخة يدويًا لكل مستخدم، يمكنك إنشاء نظام تحديث تلقائي يقوم بـ:

فحص وجود تحديث جديد

تنزيل النسخة الجديدة من الإنترنت

استبدال النسخة القديمة

تشغيل البرنامج تلقائيًا

هذه الطريقة احترافية وتستخدم في الشركات التي تعتمد على Access.

🎯 الفكرة العامة للتحديث التلقائي

نظام التحديث يعتمد على 3 عناصر:

ملف البرنامج الرئيسي (Front-End)  

وهو الذي يحتوي على النماذج والتقارير والأكواد.

ملف قاعدة البيانات (Back-End)  

وهو الذي يحتوي على الجداول فقط.

ملف تحديث صغير (Updater)  

يقوم بفحص النسخة وتنزيل التحديث.

🧩 أولًا: رفع نسخة البرنامج على الإنترنت

يمكنك رفع النسخة الجديدة من البرنامج على:

Google Drive

OneDrive

Dropbox

أو أي استضافة Web Hosting

المهم أن تحصل على رابط مباشر للتحميل.

🧪 ثانيًا: إنشاء جدول خاص بالتحديث

في قاعدة البيانات (Back-End) أنشئ جدولًا باسم:

tblUpdate

ويحتوي على الحقول:

الحقل الوصف

Version رقم الإصدار الحالي

DownloadURL رابط تحميل النسخة الجديدة

Notes ملاحظات التحديث

مثال:

Version = 1.5

DownloadURL = رابط مباشر للملف

Notes = إصلاح الأخطاء وتحسين الأداء

🖥️ ثالثًا: كود VBA لفحص التحديث عند تشغيل البرنامج

ضع هذا الكود في حدث Form_Load للنموذج الرئيسي:

vba

Private Sub Form_Load()

    Dim LocalVersion As Double

    Dim ServerVersion As Double

    Dim URL As String

    ' رقم النسخة الحالية

    LocalVersion = 1.0

    ' قراءة النسخة من السيرفر

    ServerVersion = DLookup("Version", "tblUpdate")

    URL = DLookup("DownloadURL", "tblUpdate")

    ' مقارنة النسخ

    If ServerVersion > LocalVersion Then

        If MsgBox("يوجد تحديث جديد للبرنامج. هل تريد التحديث الآن؟", vbYesNo + vbInformation) = vbYes Then

            Call DownloadUpdate(URL)

            DoCmd.Quit

        End If

    End If

End Sub

📥 رابعًا: كود تنزيل التحديث من الإنترنت

vba

Public Sub DownloadUpdate(URL As String)

    Dim FilePath As String

    FilePath = CurrentProject.Path & "\NewVersion.accdb"

    ' تنزيل الملف

    Dim WinHttp As Object

    Set WinHttp = CreateObject("Microsoft.XMLHTTP")

    WinHttp.Open "GET", URL, False

    WinHttp.send

    If WinHttp.Status = 200 Then

        Dim Stream As Object

        Set Stream = CreateObject("ADODB.Stream")

        Stream.Type = 1

        Stream.Open

        Stream.Write WinHttp.responseBody

        Stream.SaveToFile FilePath, 2

        Stream.Close

    End If

    MsgBox "تم تنزيل التحديث بنجاح. سيتم تشغيل النسخة الجديدة.", vbInformation

    ' تشغيل النسخة الجديدة

    Shell "msaccess.exe """ & FilePath & """", vbNormalFocus

End Sub

🔧 خامسًا: استبدال النسخة القديمة بالنسخة الجديدة

هناك طريقتان:

✔ الطريقة 1: تشغيل النسخة الجديدة مباشرة

بدون استبدال النسخة القديمة.

✔ الطريقة 2: استخدام ملف Updater خارجي

وهو ملف صغير يقوم بـ:

إغلاق البرنامج

حذف النسخة القديمة

نقل النسخة الجديدة مكانها

تشغيل البرنامج

هذه الطريقة احترافية جدًا وتستخدم في الشركات.

🧱 سادسًا: إنشاء ملف Updater بسيط (اختياري)

يمكنك إنشاء ملف Batch بسيط:

@echo off

timeout /t 2

del "OldVersion.accdb"

rename "NewVersion.accdb" "OldVersion.accdb"

start "" "OldVersion.accdb"

exit

ويتم تشغيله من Access بعد تنزيل التحديث.

⭐ نصائح مهمة

اجعل رقم الإصدار في Access ثابتًا في متغير واحد.

لا ترفع ملف Back-End مع كل تحديث، فقط Front-End.

استخدم روابط تحميل مباشرة (Direct Download).

اختبر التحديث على جهاز آخر قبل نشره.

احتفظ بنسخة احتياطية دائمًا.

خلاصة

إنشاء نظام تحديث تلقائي لبرنامج Access عبر الإنترنت يجعل برنامجك احترافيًا وسهل الصيانة.

الفكرة تعتمد على:

رفع النسخة الجديدة

مقارنة رقم الإصدار

تنزيل التحديث

تشغيل النسخة الجديدة تلقائيًا

وبهذا لن تحتاج لإرسال النسخ يدويًا للمستخدمين بعد الآن.

رابط تحميل المرفق