figo82eg قام بنشر يونيو 17, 2022 مشاركة قام بنشر يونيو 17, 2022 ارجو المساعدة فى معرفة المشكلة بالكود التالى حيث أن الكود يقوم بتنفيذ نصف المطلوب فقط بمعنى يقوم بإنشاء فولدرات برقم 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 رابط هذا التعليق شارك More sharing options...
محمد احمد لطفى قام بنشر يونيو 17, 2022 مشاركة قام بنشر يونيو 17, 2022 أول حاجة احذف كلمة End بعد كل كود لو مشتغلش ارفق مثالا رابط هذا التعليق شارك More sharing options...
figo82eg قام بنشر يونيو 17, 2022 الكاتب مشاركة قام بنشر يونيو 17, 2022 حذفتها ولكن نفس المشكلة الكود ينفذ الجزء الاول فقط رابط هذا التعليق شارك More sharing options...
محمد احمد لطفى قام بنشر يونيو 17, 2022 مشاركة قام بنشر يونيو 17, 2022 ارفق مثالا رابط هذا التعليق شارك More sharing options...
Eng.Qassim قام بنشر يونيو 17, 2022 مشاركة قام بنشر يونيو 17, 2022 اجعل ال End If الاولى في الاخير (بعد اختها) مع حذف End رابط هذا التعليق شارك More sharing options...
figo82eg قام بنشر يونيو 17, 2022 الكاتب مشاركة قام بنشر يونيو 17, 2022 شكرا اخى الكريم ولم تنفع مرفق مثال لتجربة عليه New Microsoft Office Access Application.zip رابط هذا التعليق شارك More sharing options...
ابو البشر قام بنشر يونيو 17, 2022 مشاركة قام بنشر يونيو 17, 2022 منذ ساعه, figo82eg said: شكرا اخى الكريم ولم تنفع مرفق مثال لتجربة عليه جرب .... New Microsoft Office Access Application.mdb 1 رابط هذا التعليق شارك More sharing options...
figo82eg قام بنشر يونيو 17, 2022 الكاتب مشاركة قام بنشر يونيو 17, 2022 اشكركم جمعيا على الاهتمام ولكن اريد معرفة كيفية تفعيل مكتبة اوفيس ١٦ مع العلم انى اعمل على اوفيس ٢٠٠٣ رابط هذا التعليق شارك More sharing options...
figo82eg قام بنشر يونيو 17, 2022 الكاتب مشاركة قام بنشر يونيو 17, 2022 اشكر جميع اساتذتى الكرام على مساهمتهم فى الوصول لأفضل حلول وتم بفضلكم الوصول لما اريد جعله الله فى ميزان حسناتكم رابط هذا التعليق شارك More sharing options...
figo82eg قام بنشر يونيو 21, 2022 الكاتب مشاركة قام بنشر يونيو 21, 2022 منذ ساعه, rockjone33 said: بقدم لك شغلة تفيدك بتحديث ..🙂 ليه ما تطور اعمالك من ٢.١٦ الى ٢٠٢١ وعمل آخر مخصص لامكانية ٢٠٠٣ اليوم برفعلك تحديث بارك الله فيك استاذى بحاول اشتغل على النسخ الجديدة بالتوزاى مع شغلى الى ان اتعلم على النسخ الجديده. وفى انتظار تحديثك جعله الله فى ميزان حسناتك رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.