آسف جداً
اكشفت الخطأ الذي وقعت فيه
كان علي أن احذف كلمة "\fails\" من داخل الكود ليصبح كالتالي :
Private Sub btn17_Click()
Dim str_folder As String
str_folder = CurrentProject.Path & Format(Me.num, "00") ' folder to open
If Len(Dir(str_folder, vbDirectory)) = 0 Then
MkDir (str_folder)
End If
Call Shell("explorer.exe " & str_folder, vbNormalFocus)
End Sub