مشكلة في كود

[محمد غنيمي]

ارجو المساعدة في الكود التالي لعمل مسار لحفظ نسخة إحتياطية

 

 

عند الضغط على زر BACKUP  يعطى خطأ ويقوم بتظليل بالاصفر على BrowseFolder 

Private Sub SaveDB_Click()

[ResultLBL].Visible = False

Dim StrFolder As String
StrFolder = BrowseFolder 

On Error GoTo MyErr

If IsNull(StrFolder) Then
[StrNew] = Null
Else
[StrNew] = Left(StrFolder, Len(StrFolder) - 1)
End If

MyErr:
If Err.Number <> 0 And Err.Number <> 5 Then
MsgBox Err.Number & " - " & Err.Description
End If

End Sub

[ابوخليل]

BrowseFolder  هذه وحدة نمطية عامة وهي الخاصة بفتح مربع الحوار الذي ستعين منه مكان النسخة

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