مشكلة عند استدعاء نسخة احتياطية وكان يعمل جيداً وهذا عطل جديد

[king5star]

السلام عليكم اخوانى

استخدم كود لاستدعاء نسخة احتياطية ويعمل جيداً وظهر عطل مره واحدة غريب كما بالصورة ارجو المساعدة ؟

Private Sub Res_Click()
 Dim Path, myfile As String
    Dim varItem As Variant

    With Application.FileDialog(msoFileDialogFilePicker)
        .Title = "اختر الملف المراد نسخه"
        If .Show Then
            For Each varItem In .SelectedItems
                      myfile = varItem
            Next varItem
        End If
    End With
If Len(myfile & "") > 0 Then

    Dim strSQL As String
    Dim tdf As TableDef
    Dim ThisDb  As DAO.Database
    
     If Len(passDatabase & "") = 0 Then pass = "Test" Else: pass = "Test"
    
    Set ThisDb = DBEngine.Workspaces(0).OpenDatabase(myfile, True, False, ";pwd=" & pass)
     
     For Each tdf In CurrentDb.TableDefs
     If Not (Left(tdf.Name, 4)) = "MSys" Then
     CurrentDb.Execute ("delete * from " & tdf.Name)
   strSQL = "INSERT INTO " & tdf.Name & " SELECT " & tdf.Name & ".* FROM " & tdf.Name & " IN '" & myfile & "';"
   CurrentDb.Execute (strSQL)
      End If
    Next tdf

End If


MsgBox "تم استرداد النسخة الاحتياطية بنجاح", vbInformation
End Sub

 

[أ / محمد صالح]

وفقنا الله جميعا لكل خير

الرسالة تعني أن المتغير passDatabase لم يتم تعريفه 

فكيف يتم حساب عدد حروفه؟!

يجب ان يتم الإعلان عن المتغير أولا

ثم وضع قيمة له

ثم استخدامه بعد ذلك

بالتوفيق للجميع

[king5star]

18 ساعات مضت, أ / محمد صالح said:

وفقنا الله جميعا لكل خير

الرسالة تعني أن المتغير passDatabase لم يتم تعريفه 

فكيف يتم حساب عدد حروفه؟!

يجب ان يتم الإعلان عن المتغير أولا

ثم وضع قيمة له

ثم استخدامه بعد ذلك

بالتوفيق للجميع

تسلم اخى عملت بشكل جيد بعد اعلان المتغير