كل الانشطه

السلام عليكم عملية عد عدد المشاركات ، هي عملية مجدولة تتم كل فترة ولا تنعكس فى نفس وقت الرد ، و عليه فمن الطبيعي حدوث تأخير

جزاك الله خير اخي الكريم Foksh بيض الله وجهك .. فيه ملاحظة بسيطة وهي اذا كانت القاعدة لها كلمة مرور فكيف يكون العمل علما ان طريقتك يتم فيها الضغط والاصلاح لكن يطلب منك كلمة المرور والذي اريده ان لا يطلب مني كلمة المرور على كل عملية ضغط واصلاح بل تتم المعالجة اوتوماتيكي بدون الرجوع الي ... جزاك الله خير وتحملنا شوي 🤗

عادت للعمل بعد تنصيب اوفيس من جديد اشكرك اخي

@Foksh حاولت ان اعمل تقرير على ما تم الفلتره عليه من لونين ولم انجح بسبب ان معيار الاستعلام يفلتر على لون واحد فقط وعند اختيار اكثر من ذلك لا يعمل الاستعلام ,, كيف لي ان اعمل تقرير على ماتم الفلتره عليه اذا اخترت اكثر من لون 😬

الاخوة الاكارم هل اجد لديكم تصورا لتنسيق نموذج frmgiab افضل من التنسيق الحالي وانا لكم من الشاكرين New Microsoft Access Database.accdb

الملف بصيغة ACCDE ولا يمكن التعديل عليه يا صديقي

تم تعديل الكود والتأكد منه وتجربته . انسخه إلى مديول جديد ، واستدعيه بالأمر : ( CopactMyDb ) فقط حدد اسم قاعدة البيانات الخلفية التي بجانب القاعدة الرئيسية . Public Function compactDb(ByVal mydb As String, ByVal mydbb As String, ByVal mypass As String, Optional openIt As Boolean = False) Dim f As Integer Dim filenoext As String, extension As String, Access As String Access = """" & SysCmd(acSysCmdAccessDir) & "MSACCESS.EXE""" filenoext = Left(mydb, InStrRev(mydb, ".")) extension = Right(mydb, Len(mydb) - InStrRev(mydb, ".")) f = FreeFile Open CurrentProject.Path & "\compact.bat" For Output As f Print #f, "CHCP 1256" Print #f, ":checkldb1" Print #f, "if exist """ & filenoext & "l" & extension & """ goto checkldb1" Print #f, Access & " """ & mydbb & """" & mypass & " /compact" If openIt Then Print #f, ":checkldb2" Print #f, "if exist """ & filenoext & "l" & extension & """ goto checkldb2" Print #f, Access & " """ & mydb & """" Else Print #f, "del ""%~f0""" End If Close f End Function Public Function CopactMyDb() On Error Resume Next Dim Mypath, CurrDB, BEndTBL As String BEndTBL = "B-TBL.accdb" 'اسم قاعدة البيانات الخلفية CurrDB = CurrentProject.Path & "\" & CurrentProject.Name Mypath = CurrentProject.Path & "\" & BEndTBL Call compactDb(CurrDB, Mypath, "", True) Shell """" & Left(Mypath, InStrRev(Mypath, "\")) & "\compact.bat""", 0 DoCmd.Quit acQuitSaveAll End Function Desktop.zip

ألا يوجد حل آخر أخي دون الإخفاء لأن الملف يومياً يدخل عليه بيانات وعند إخفاء الصفوف تظهر هذه الرسالة " لا يمكن إزاحة العناصر خارج الورقة "

السلام عليكم أساتذتى وأحبائى الكرام مشرفين المنتدى الأفاضل .. كنت أود الإستفسار عن هذا , فهل هذا عطل ومشكلة بالمنتدى أم هذا أمر طبيعى ؟!!! وهو ان يكون هناك تفاعل وردود بالمشاركات على الرغم ان عدد القراءات 0 . صفر ؟!!! كما بالصورة باليسار

جزاك الله خير اخ جعفر حليت لي مشكلة كنت عاجز عن حلها. يبقى فقط كيفية التوسيط ان شاء الله تجد لها حل. ملاحظة يظهر خطاً عندما لايحتوي الحقل المُراد دمجه على بيانات.

فقط تم اخفاء السطور وتم اخفاء الاعمده

السلام عليكم أساتذتى وأحبائى الكرام رجاءاً من سيادتكم بعد إذنكم مساعدتى فى جعل هذا البرنامج يعمل أيضأ على نظام 64 بت حيث انه لا يعمل الا على 32 بت ولكم جزيل الشكر وبارك الله فى جهودكم إسم المستخدم: Admin كلمة المرور : 123 برنامج الصيدليه.rar

أنظر هنا : وهنا :

الله يوفقك ان شاء الله اخ kanory جزيل الشكر والامتنان لحضرتك

تابع هذا الموضوع سيفيدك إن شاء الله 🙂

بارك الله فيك office.xlsm مشكوووووووووووووووووورين

طيب ، سأشرح لك الدالة `GenerateSequence` هذه الدالة تقوم بإنشاء تسلسل رقمي للاسماء المتشابهة في استعلام : 1. `Function GenerateSequence( FullName As String) As Integer`: هذا تعريف الدالة `GenerateSequence` التي تأخذ مُدخل واحد يُسمى ` FullName` من نوع `String` وتُرجع قيمة من نوع `Integer`. 2. `Static dict As Object`: هنا نُعرف متغير `dict` ككائن `Object`. الكلمة `Static` تعني أن الكائن `dict` سيحتفظ بقيمته حتى بعد انتهاء تنفيذ الدالة، وهذا مهم لأننا نريد أن يحتفظ القاموس بالاسماءوالأرقام المتسلسلة التي تم إضافتها سابقًا. 3. `If dict Is Nothing Then Set dict = CreateObject("Scripting.Dictionary")`: هذا الشرط يتحقق إذا كان الكائن `dict` لم يتم إنشاؤه بعد، وفي هذه الحالة يتم إنشاء كائن جديد من نوع "Dictionary" (قاموس). 4. `If Not dict.exists( FullName) Then`: هذا الشرط يتحقق إذا كان الاسم` FullName` غير موجود في القاموس `dict`. 5. `dict.Add FullName, dict.Count + 1`: إذا كان الاسم` FullName` غير موجود، يتم إضافته إلى القاموس مع قيمة تسلسل رقمي جديدة تُحسب بإضافة واحد إلى عدد الاسماء الموجودة في القاموس. 6. `GenerateSequence = dict( FullName)`: في النهاية، تُرجع الدالة القيمة المتسلسلة للاسم` FullName` الموجود في القاموس. باستخدام هذه الدالة في استعلام، يمكنك إنشاء حقل محسوب يعرض رقمًا متسلسلًا لكل اسم متشابه بناءً على ترتيب ظهوره في الاستعلام. هذا مفيد لتتبع الاسماء وترتيبها بشكل فريد داخل الاستعلام.

جزاك الله خير هذا بالضبط ما اريده. بحثت كثيراً على مثل هذا الحل في المواقع ولم اجده حتى استخدمت ChatGPT ولم اصل الى نتيجة. هل من الممكن شرح مبسط لدالة GenerateSequence

طيب تفضل <<<<<<<<>>>>>>>> تقرير اجازات.accdb

نعم هذا ما اريده

نعم أخي هذا طلبي

بسم الله الرحمن الرحيم ( ولا تنسوا الفضل بينكم ) هذا واجب علي تجاهكم أخي الأستاذ / حسونة 🌹

وجزاكم مثله ابو مالك على سرعه الاستجابه😍

مثل هذا 2024.zip

هل تريدها بهذا الشكل ؟؟؟