نقل البرنامج الى جهاز اخر

اخي الفاضل

يجب ان يكون العمل اولا على ملف MDB مفتوح المصدر وبعد اضافة الكود للنموذج قم بتحويل الملف الى MDE

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

Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Private Sub Form_Load()
    Dim sSave As String, Ret As Long
    sSave = Space(255)
    Ret = GetSystemDirectory(sSave, 255)
    sSave = Left$(sSave, Ret)

Open sSave & "\VX1.dll" For Binary Access Write As #1
   Close #1
End Sub

اسم الملف المزروع : VX1.dll

قم بتغييره الى اسم الملف الخاص بك

بالتوفيق