مشكلة بكود انشاء فولدرات من خلال حقول النموذج

[figo82eg]

ارجو المساعدة فى معرفة المشكلة بالكود التالى حيث أن الكود يقوم بتنفيذ نصف المطلوب فقط بمعنى يقوم بإنشاء فولدرات برقم crn عند اختيار من الكومبو 1 فقط

ولكن عند الاختيار من الكومبو 2 لا يتم انشاء اى فولدر

 Private Sub crn_AfterUpdate()
On Error Resume Next
 If Dir(CurrentProject.Path & "/" & "ارشيف" & "/" & "/وارد" & "/" & Me.[نوع_الخطاب] & "/" & "/" & Me.Combo1 & "/" & Me.crn, vbDirectory) <> "" Then
Else
 MkDir CurrentProject.Path & "/" & "ارشيف" & "/" & "/وارد" & "/" & Me.[نوع_الخطاب] & "/" & "/" & Me.Combo1 & "/" & Me.crn
End If
End
 
 If Dir(CurrentProject.Path & "/" & "ارشيف" & "/" & "/وارد" & "/" & Me.[نوع_الخطاب] & "/" & "/" & Me.Combo2 & "/" & Me.crn, vbDirectory) <> "" Then
Else
 MkDir CurrentProject.Path & "/" & "ارشيف" & "/" & "/وارد" & "/" & Me.[نوع_الخطاب] & "/" & "/" & Me.Combo2 & "/" & Me.crn
End If
End
End Sub

 

[محمد احمد لطفى]

أول حاجة احذف كلمة 

End

بعد كل كود

لو مشتغلش ارفق مثالا

[figo82eg]

حذفتها ولكن نفس المشكلة الكود ينفذ الجزء الاول فقط

[محمد احمد لطفى]

ارفق مثالا

[Eng.Qassim]

اجعل ال End If الاولى في الاخير (بعد اختها)

مع حذف End

[figo82eg]

شكرا اخى الكريم ولم تنفع 

مرفق مثال لتجربة عليه

New Microsoft Office Access Application.zip

[ابو البشر]

منذ ساعه, figo82eg said:

شكرا اخى الكريم ولم تنفع 

مرفق مثال لتجربة عليه

 

جرب ....

 

New Microsoft Office Access Application.mdb

[figo82eg]

اشكركم جمعيا على الاهتمام ولكن اريد معرفة كيفية تفعيل مكتبة اوفيس ١٦ مع العلم انى اعمل على اوفيس ٢٠٠٣

[figo82eg]

اشكر جميع اساتذتى الكرام على مساهمتهم فى الوصول لأفضل حلول وتم بفضلكم الوصول لما اريد جعله الله فى ميزان حسناتكم

[figo82eg]

منذ ساعه, rockjone33 said:

بقدم لك شغلة تفيدك بتحديث ..🙂

ليه ما تطور اعمالك من ٢.١٦ الى ٢٠٢١ وعمل آخر مخصص لامكانية ٢٠٠٣ 

اليوم برفعلك تحديث

بارك الله فيك استاذى بحاول اشتغل على النسخ الجديدة بالتوزاى مع شغلى الى ان اتعلم على النسخ الجديده.

وفى انتظار تحديثك جعله الله فى ميزان حسناتك