انشاء مجلد برمجيا لكل سجل جديد وفتحه من زر امر

تفضل اخى

هذا الكود يؤدى ما تريد

Dim str_folder As String
str_folder = CurrentProject.Path & "\fails\" & Format(Me.num, "0000000") ' folder to open

 If Len(Dir(str_folder, vbDirectory)) = 0 Then
     MkDir (str_folder)
 End If

Call Shell("explorer.exe " & str_folder, vbNormalFocus)

الف شكر أخي 'Abo_Yossof' على هذا الحل الرائع حيث يعمل الكود بصورة ممتازة من زر الأمر ... لكن أخي العزيز هل بالامكان وضع كود خاص في زر امر في النموذج لإنشاء المجلد وبنفس الرقم المرجعي لأن المجلدات هنا يتم انشائها يدويا ولا نضمن ان تكون بنفس الاسم دائما

هذا وتقبل خالص التقدير،،،