هل هناك وسيلة لرفع البرنامج على جوجل درايف ؟

[عبد اللطيف سلوم]

السلام عليكم

هل هناك وسيلة لرفع البرنامج على موقع سحابي مثل جوجل درايف

بحيث اكون مطمئن على بياناتي اني لن افقدها اذا حدث شيء للكمبيوتر

وليس المقصود رفع يدوي

بل ان ادخل عليها في جوجل درايف من أي مكان

واعمل عليها ويتم التخزين مباشرة على الموضع السحابي

 

اذا حدا من الاخوة عنده فكرة عن هذا الموضوع يا ريت يتحفنا به 

 

[محمد أبوعبدالله]

وعليكم السلام ورحمة الله وبركاته

من وجهة نظري البسيطة لو وضعت كود لعمل نسخة احتياطية عند الاغلاق ومسار الحفظ هو google drive سيكون حل مناسب

تحياتي

[عبد اللطيف سلوم]

كمل معروفك واعطينا الكود اخوي ابو عبد الله

انا ارفع على onedrive

[Ali Mohamed Ali]

السلام عليكم بعد اذن الأساتذة ,يمكنك تجربة هذا استاذى الكريم

Uploading to Google drive using VBA?

 

[محمد أبوعبدالله]

تفضل اخي الكريم

Private Sub Command0_Click()
If MsgBox("هل تريد اجراء نسخة احتياطية من البرنامج؟", _
    vbQuestion + vbYesNo, _
    "نسخة احتياطية") = vbYes Then

        On Error Resume Next
        
        Dim OldFile As String, DBwithEXT, DBwithoutEXT, NewFile As String, CopyMyDB
        
           Dim fs, cf, strFolder
                   strFolder = CurrentProject.Path & "\Backup"
            Set fs = CreateObject("Scripting.FileSystemObject")
                If fs.FolderExists(strFolder) = False Then
            Set cf = fs.CreateFolder(strFolder)

      End If
     
        OldFile = CurrentDb.Name
        StrNew = CurrentProject.Path & "\Backup"
        
        DBwithEXT = Dir(OldFile)
        DBwithoutEXT = Left(DBwithEXT, Len(DBwithEXT) - 6)
        If [BKUP] = True Then
        NewFile = StrNew & "\" & DBwithoutEXT & "-" & Format(Date, "yyyy-mm-dd") & "-" & Format(Now(), "Hh-Nn-Ss-AMPM") & Right(DBwithEXT, 6)
        CopyMyDB = "cmd.exe /C copy " & """" & OldFile & """" & " " & """" & NewFile & """"
        Shell CopyMyDB, 0
        Exit Sub
        End If

    End If

Backup_2.rar

تحياتي

[محمد سلامة]

سوف اشرح لك الموضوع ببساطة

اولا في تطبيق لجوجل درايف يتم تصطيبه علي جهاز الكمبيوتر وبعد تصطيبه تدخل بريدك الالكتروني بعد الفتح اصبح لديك ١٥ جيجا علي جهازك سحابي مثل أي برتشن

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

بس مشكلته في المزامنة لازم تغلق وتفتح البرنامج حتي تقدر تشوف البيانات التي تم إدخالها

تحياتي

[عبد اللطيف سلوم]

مشكورين جميعا على المرور

تم حل الموضوع