نجوم المشاركات

السلام عليكم ورحمة الله ان التعامل مع المرفقات في اكسيس تكاد ان تكون صعبة نوعا ما وكذلك عملية البحث داخل نصوص الملفات pdf وغيرها تكاد مستحيلة في الاكسيس لكن بالربط مع اس كيو ال سيرفر فهي سهلة وومتعة حتى لو ان قاعدة بياناتك محلية تستطيع الشبك مع اس كي ال فقط لاستخدام خاصية البحث انظر الفيديو البحث داخل نصوص الملفات pdf وغيرها

تفضل عملت لك جدول يحتوي على حقل واحد يسجل فيه اسم الموظف المسؤول من اجل اتاحة المجال للمستخدم بتغيير اسم الموظف ، لانه من عير المنطقي برمجيا اني اكتب اسم موظف داخل الأكواد مشكلة في التقرير5_552.rar

اضافة لعمل استاذي أبو خليل تغيير اسم الملف لطالب واحد أو أكثر أو الكل . تعديل أسم الملف لطالب معين.rar

الاخ ابوخليل شكرا جزيلا زاد الله في علمك الاخ ابوبسمله شكرا اخي زاد الله في علمك بالتوفيق

يعمل بكفائه جزاك الله خيرا معلمنا وشيخنا الجليل ابوخليل

السلام عليكم ورحمه الله وبركاته مشاركه مع اخى ومعلمى وشيخنا الجليل @ابوخليل جزاه الله عنا كل خير اخى @مالك الحرايزة مشكلتكه لم تكن مع الحقل text77 وانما مع حقل عدد السجلات فالسند 8 عدده خفيف فيتم الالحاق بسرعه ويتم تنفيذ جميع الاوامر اما السند 7 فسجلاته كثيره وياخذ وقت فالتنفيذ ويتم تنفيذالاوامر قبل ظهور العدد والتشييك عليه هذا صحيح معلمى العزيز تقبلوا تحياتى

المشكلة لديك في تأخر جلب عدد السجلات من النموذج الفرعي لذا جعلت الجلب مباشرة من الجدول تفضل م11.rar

E2=IF(OR(A2<>"",B2<>""),IF(AND(A2<>"",B2=""),"قبض","صرف"),"") ربما ادرج نوع العملية تلقائي.xlsx

السلام عليكم ورحمة الله وبركاته ارفق لكم محاولة بشكل عاجل (وبدون كواد) لعلها تناسب. واذا كان يمكن الكود فالأمر أسهل. منسدلة ديناميكة لمناديب دول وفروعها (1).xls

هل Ezril = Ezrail = عزرائيل 😱 اما انا ، فبعد العديد من المحاولات ، ظهرت لي صورة bmp من الصفحة الاولى مقضومة من الاسفل ، وتشتمل على برواز الوندوز ، وكلمة ok على الطرف اليمين

أهلا بك مجددا يا عزرائيل 🙂 هل من المفترض أن يقوم البرنامج بتحويل ملفات ال PDF إلى صور ؟ لم يعمل معي ..

اخي طلبك غير واضح.المشكلة تكمن في طريقة طرحك للموضوع. قم على الأقل بوضع عينة للنتائج المتوقعة لنستطيع مساعدتك .

تفضل Dim i As Integer Dim rs As Recordset Set rs = Me.Recordset Dim OldName, NewName Dim x As Variant Dim xx As Variant With rs .MoveFirst For i = 0 To .RecordCount x = Me.Serial xx = Me.Name1 OldName = CurrentProject.Path & "\" & x & ".pdf" NewName = CurrentProject.Path & "\" & x & "_" & xx & ".pdf" Name OldName As NewName .MoveNext Next i End With ملحوظة : ضع البرنامج داخل مجلد الملفات ايضا تجنب تسمية الحقول بعبارات محجوزة في أكسس ... تم تعديل الحقل Name الى Name1 Students.rar

اخي هل هناك ملف اخر غير الدي قمت بارفاقه في المشاركة تريد تنفيد الامر عليه بعد اضافة الكود قم بحفظ الملف بصيغة الماكرو

اخي احمد لتأكيد ان الملف لم يكن به مشكله في تشغيل الماكرو انما المشكله في اعدادات الماكرو لديك هذا فيديو يوضح هذا show.zip

اخي اسف ليس لدي الوقت لشرح المعادلة يمكنك البحث في الانترنيت فهو متوفر في عدة اماكن بالصوت والصورة تفضل اخي تم اعادة تعديل الملف وتنسيقه مع تعديل بسيط داخل هدا الجزء من الكود لديك فهو يقوم بافراغ الخلابا الموجود بها المعادلات . Sheets("Input").Range("A6:A36,D6:F36,O6:S36,AA6:AE36").Select Selection.ClearContents وهدا مثال لتجربة العمل على الملف https://streamable.com/xnrgeb بالتوفيق............ Payroll123-3-2020 - Copy(4).xlsm

,0,(VLOOKUP(C11,$A$1:$CV$7,COLUMNS(AM1= بدون حرف الــ S