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

السلام عليكم ورحمة الله أخي الفاضل (موسى) اسمح لي بشرح الفكرة نيابة عن أخي الخبير (ابو خليل) كان طلبي هو أن يتم طباعة كلمة (مستجد) و (دمج) و (قرار) بنفس هذا الترتيب ولكن الاكسس يقوم بترتيبهم ابجديا فيقوم بطباعة دمج أولا ثم دمج ثم قرار وللتحايل على هذا الأمر قام أخي (ابو خليل) بعمل جدول وقام بإسناد رقم ID للكلمات الثلاث بالترتيب (مستجد) 1 (دمج) 2 (قرار) 3 ثم قام بعمل استعلام داخل property sheet في قسم Row Source ليقوم التقرير بعرضهم بالترتيب حسب رقم ID متجاوزا بذلك الترتيب الأبجدي للأكسس ثم يقوم مربع النص المسمى (الحالة) في التقرير بأخذ النص أو الكلمات (مستجد) و (دمج) و (قرار) بترتيب ID ثم يقوم التقرير بتكرار الكلمات الثلاث في كل صفحاته لأن مربع النص المسمى (الحالة) موضوع في (الحالة Hader) وأي نص يوضع في شريط مكتوب عليه (Hader) أو رأس في التقرير سيقوم التقرير بتكراره في كل الصفحات. كيف يعرف التقرير أين يضع الكلمات (مستجد) و (دمج) و (قرار)؟ يتم ذلك عن طريق من حقل الحالة في الجدول المسمى (الرقمية) حيث يقوم التقرير بعمل مجموعة وفرز عل الجدول ليضع كل حالة أمام الكلمات (مستجد) و (دمج) و (قرار) الخاصة بها. أرجو أن أكون قد أوضحت قدر الإمكان وشكراً لكم جميعاً.

وعليكم السلام 🙂 الفرز يجب ان يكون عن طريق حقل المعرف. الاستعلام: . والدالة في الوحدة النمطية: Function Concat(PR As Double) Dim rst As Recordset Dim i As Long, RC As Long Set rst = CurrentDb.OpenRecordset("select [Category] From PRindex Where [PuReq]=" & PR & " Order by [المعرف]") rst.MoveLast: rst.MoveFirst: RC = rst.RecordCount For i = 1 To RC Concat = Concat & "," & rst!Category rst.MoveNext Next i Concat = Mid(Concat, 2) rst.Close: Set rst = Nothing End Function . والنتيجة: 1617.PRindex.accdb.zip

اليك طريقة متبعة غالبا عند تصميم قواعد البيانات 3.rar

استاذي العزيز @ابو البشر الفكرة جديدة علي ... وهو ابداع من حضرتك ...كيف ل abo1 ان يعد من جديد وهو غير مرتبط بأي شيء ؟ ممكن توضيح الفكرة لو سمحت

ما شاء الله ، تبين أن في المنتدى مبدعون لا نراهم في الساحة كثيراً ، إلا أن بصماتهم تبقى لامعة كأسمائهم أخي @بحار الاكسس 🥰

Gemini API.accdb

عمل جميل ورائع ، أحسنت أخي @فريدالطحان إبداع في توظيف وتطوير المهارة

Me.Page Me.PageFooter Me.PageFooterSection Me.PageHeader ! Me.Pages فأكملة على الفكر @ابو البشربستخراج فهرس للكل صفحة وترتيب الصفحات 😇 (تجربه) بس بعدين تعدل Close Function Pusse And Add TimerTr ... Control = "-" whit Completed صمم تقرير للفهرسة مع استعلام 2024.rar

تفضل التعديل لاحظ : تم تغيير نوع حقل الباركود الى نصي .. لأن بعض الباركودات تشتمل على حروف ، ايضا لو كان بداية الباركود صفر عند لصقه في الحقل الرقمي فسوف يتم حذف الصفر تم تغيير المسميات بحروف اجليزية _______ الآن النماذج جاهزة لاستخدام قارىء الباركود Database23.rar

شكرا جدا على الكلام الجميل ده الى دايما بيعطى ثقة اكثر وفرحة للنفس ودائما هذا الكلام المشجع يعطى دفعة للعطاء اكثر واكثر اشكرا على ذوقك حضرتك

طيب مشاركة مع الاخوة الافاضل جرب تعديل بسيط لمثالك السابق 2 (1).rar

الله الله الله .. من أيهما أعجب؟ .. من الشرح أم من التطبيق!! 😊🌹 لله دركم جميعا 🌹🌷

هبص عالملف أن شاءالله انهارده احللك المشكله

اعرض الملف استبدال أسماء كل الملفات فى مجلد بحثت عنه ولم اجده ـ على الرغم اني اذكر اضافته سابقا فاضيفه الان لمن يحتاج مثل هذا الكود 1- استخدم الكود السابق نشره لتوثيق كافة اسماء الملفات فى مجلد مكتبة الموقع - تطبيق لتوثيق قائمة بالمجلدات و الملفات و خصائصها - مفيد جداً او كتب اسماء الملفات الحالية الموجودة فى المجلد المستهدف مباشرة فى العمود B 2 - ثم اكتب فى العمود D اسماء الملفات الجديدة 3- شغل الكود لاستبدال اسماء الملفات ، و اختار المجلد المستهدف Sub RenameMultipleFiles() ' add old file name to column B , and new File name to Col D With Application.FileDialog(msoFileDialogFolderPicker) .AllowMultiSelect = False If .Show = -1 Then selectDirectory = .SelectedItems(1) dFileList = Dir(selectDirectory & Application.PathSeparator & "*") Do Until dFileList = "" curRow = 0 On Error Resume Next 'read old file name from column B curRow = Application.Match(dFileList, Range("B:B"), 0) If curRow > 0 Then 'cganeg to new file name from column D Name selectDirectory & Application.PathSeparator & dFileList As _ selectDirectory & Application.PathSeparator & Cells(curRow, "D").Value End If dFileList = Dir Loop End If End With End Sub صاحب الملف محمد طاهر عرفه تمت الاضافه 06 يول, 2024 الاقسام قسم الإكسيل  

اشكرك اخي الفاضل جزاء الله خير الجزاء

اتفضل هذا المطلوب 2.rar