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

تفضل Lease IFRS 50.xlsx

السلام عليكم ورحمة الله تعالى وبركاته اخوانى الكرام منذ ان بدأت هذا المشروع ولم افكر لحظة فى ان احيد عنه الان اقدم لكم مكتبة جديدة متلافيا فيها بعض المشاكل التي قابلتنا قديما وادرجت بها دوال جاهزة وسهلة المكتبة بها اداة listview وبها ثلاث دوال الدالة الاولي ListFolder(ByVal FolderPath As String) وهى دالة لعرض الملفات فى مجلد معين حيث FolderPath هو مسار المجلد ويتم استدعااء الدوال بهذا الكود Option Explicit Option Compare Database Public listv As MsAccessListviewACX1_00.UCBySedo Private Sub Command115_Click() Set listv = Me.UCBySedo2.Object call listv.ListFolder ("C:\Users\Elsayed\Desktop\New folder\") End Sub حيث UCBySedo2 هي اسم Activex التى ادرجتها فى النموذج ========================== الدالة الثانية FillListviewWithRecord(ByVal CurrntDb As String, ByVal QuerySQl As String) وهذه الدالة لتعبئة الليست فيو بالسجلات وجهلها مثل النموذج الفرعي حيث CurrntDb هي المسار الكامل لقاعدة البيانات وهذه خاصية جيدة حيث يمكن الاتصال ياقاعدة بيانات خارجية واذا كنت تريد نفس قاعدة البيانات يمكنك ادراج هذه الجملة بدل المسار CurrentProject.FullName ============================== QuerySQl وهو الاستعلام المراد عرضه ويتم ادراجه بطريقة SQL "SELECT Accounts.ID AS [م], Customers.Customer AS [العميل], Accounts.Debit AS [مدين], Accounts.Credit AS [دائن], Accounts.Dates AS [التاريخ], Accounts.Notes AS [البيان] FROM Accounts INNER JOIN Customers ON Accounts.Customer_ID = Customers.Customer_ID;" طبعا انشئ الاستعلام الخاص بك واعرضه بطريقة SQL وانسخه وادرجه ======================= الدالة الثالثة filLvWithImage(ByVal ImgType As String, ByVal FolderPath As String) هذه الدالة لعرض الصور حيث ImgType هي نوع الصور الموجودة في المسار حيث FolderPath هو المسار المراد عرض الصور بداخله طريقة التسجيل اتمنى ان تنال اعجابكم وانا فى خدمتكم لادراج اى تحديث بها او انشاء ادوات جديدة نستفيد بها فى الاكسس --------------------------------------------------------------------------------------------------- تعديل : 12-02-2021 : قمت بانشاء قاعدة بيانات مدرج بها الاداة والدوال الثلاثة وطريقة الاستخدام الدالة الاولى وهى تعبئة الاداة بالسجلات من نفس قاعدة البيانات قم باختيار الاستعلام ( يتم عمل قائمة بالاستعلامات تلقائيا فى حدث عند التحميل وادرجها فى الكمبوبوكس ) بعد اختيار الاستعلام سيتم تحويل الاستعلام الى صيغة سيكوال تلقائيا فقط ما عليك الا ان تضغط على عرض السجلات ) الدالة الثانية اختر المسار ونوع الصورة المراد عرضها فى المسار ثم عرض الدالة الثالثة الملفات فى مجلد معين اضافة الى ايقوناتها اختر المسار ثم عرض قاعدة البيانات MsAccessListviewACX1.01.rar

السلام عليكم ستجد الحل ان شاء الله بالملف المرفق Seclect Date.xlsb

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

Private Sub dat2_AfterUpdate() Me.dat3 = DateSerial(Year(dat1) + 1, Month(dat1) - Me.dat2, Day(dat1)) End Sub

تفضل DATA14.rar

انا لم اتعرض للاشهر الأخرى وضعت اداة الشرط فيما لو كان الشهر في ( dat1 = 3 ) يزيد يوما واحدا علما اني جربت المثال ويعمل بشكل صحيح حسب طلبك

المسألة سهلة جدا تضيف حقل اسم المخزن ضمن الاستعلام مصدر النموذج ، ثم تجعل مصدر الحقل اسم المخزن بدلا من الرقم DATA13.rar

Expr1: DateAdd("m";1;[date_report]) اضافة شهر الى حقل الشهر الذي تريد الاضافة علية

النتيجة صحيحة لان الشهر ناقص ومع ذلك وحسب رغبتك يمكن ان نعامل شهر 3 معاملة خاصة Dim i As Byte Private Sub dat1_AfterUpdate() i = Month(dat1) If i = 3 Then ys = DateAdd("m", -Me.dat2, Me.dat1 + 1) + DateAdd("yyyy", 1, Me.dat1) - dat1 Else ys = DateAdd("m", -Me.dat2, Me.dat1) + DateAdd("yyyy", 1, Me.dat1) - dat1 End If Me.dat3 = ys DoCmd.Requery End Sub test2.rar

LastRow = ThisWorkbook.Sheets("DETABEZ").Range("B1000000").End(xlUp).Row

شكراً للاستاذ حسين مامون وجزاك الله كل خير

هذه المعادلة في AA4 واسحب يساراً و نزولا =IF(SUMPRODUCT(--($C$2:$Z$2=AA$2),$C4:$Z4)/6=0,"",SUMPRODUCT(--($C$2:$Z$2=AA$2),$C4:$Z4)/6) الملف مرفق Samah_sumpr.xlsb

طيب ممكن تجرب الكود الاتى Public Function DisplayHideNavPane(Optional Visible As Boolean = True) On Error GoTo ErrHandler DoCmd.SelectObject acForm, , True 'Hide ribbon of access window DoCmd.ShowToolbar "Ribbon", acToolbarNo 'select the navigation pange Call DoCmd.NavigateTo("acNavigationCategoryObjectType") 'hide the selected object Call DoCmd.RunCommand(acCmdWindowHide) Exit Function ErrHandler: MsgBox Err.Description, vbCritical, "Error" End Function 'and call it like this: DisplayHideNavPane False

تعديل بسيط بإضافة أزرار التنقل للاستعراض والتنقل Vote.mdb Vote.zip

ألف مبروك وبالتوفيق دائمًا بإذن الله

جرب المرفق معلومات فنية اتصالات.xlsm

اتســاءل من عنده الوقت الكافي لقراءة هذا المقال الصحفي؟؟؟؟ فقط ارفع ملف شارحاً ما تريد مع بعض الأمثلة

تفضل اخي الكريم حسب ما فهمت من طلبك انك تريد اذا اخترت عنصر من comb1 يختفي من comb2 واذا اخترت عنصر من comb2 يختفي من comb1 tst.rar جرب واعلمني بالنتيجة تحياتي

اخي حتي يتضح كلامك لنا ضع النتائج في الملف ثم ارسله مرة اخري

مرفق الملف بعد التعديل لمعلمى العزيز جعفر جزاه الله كل خير واول مره ارى هذا الكود Me.Painting = False فجزاه الله عنى كل خير وتعديل بسيط فكود التكرار Private Sub btnInsert_Click() Dim intNum As Integer Dim i As Integer intNum = txtNum For i = 0 To intNum - 1 DoCmd.SetWarnings False DoCmd.OpenQuery "qry_InsertIpage" DoCmd.SetWarnings True Next DoCmd.RunCommand acCmdSaveRecord Me.Requery Me.Filter = "iBill_Number ='" & Main_iBill_Number & "'" Me.FilterOn = True End Sub DATA11(1).mdb

السلام عليكم ورحمة الله وبركاته🌹 هذا الاصدار شبهه الاخير ان شاء الله تقريبا من وجهة نظرى البسيطة والضئيلة واطرحه بين اياديكم للاطلاع والتجربة والرد بما ترونه مناسبا من تعديلات واضافات المميزات الاضافية امكانية وضع مجلد القارئ داخل مجلد الصوت بمسار القاعدة فقط والباقى على البرنامج ، ملاحظة يتم مسح اى مجلدات فارغة من مسار مجلد الصوت اليا كنا يتم اضافة اسم القارئ والرابط اليا الى الجدول دون تدخل من المستخدم الاصدار السابق كان لابد من ان تكون ملفات الصوت mp3 بفضل الله تم التحايل بالكود حتى يتم تشغيل ال wav يوجد مجلد منافع يتم إدراجه اليا بمجرد فتح القاعدة تجدون فيه برنامج تغيير اسماء ملفات الصوت للمصحف دفعة واحدة طبعا لابد من الحرص قبل اضافة المجلدات ان تكون اسماء الملفات الصوتية مثل المرفق السابق والمثال الموجود بالمرفق الحالي كما تم اضافة امكانية تعديل الوان التطبيق ارضاء لجميع الاذواق وبذلك اكون بفضل الله تعالي اضفت كل ما تم تناوله وطرحه فى الموضوع السابق استاذى الجليل ومعلمى القدير ووالدى الحبيب استاذ @ابوخليل يعلم الله لم انم منذ ردكم بان المرفق لا يعمل عند حضرتك تاكدت من الاكواد جميعا بالسطر والكلمة والحرف اسال الله ان لا تواجه مشكلة هذه المرة لا يوجد كود بلا داع ولا توجد كلمات عربية داخل المحرر وتم التصميم على النواة ٣٢ بايت استاذى الجليل ومعلمى القدير الاستاذ @Gamal.Saad 🙏 لكم جزيل الشكر والعرفان بالجميل جزاكم الله خيرا 🌹 وضعت بهذا التطبيق عصارة ما لدى من افكار على طريقة كل من اساتذتى الافاضل الاجلاء الاستاذ @ابوخليل والاستاذ @jjafferr والاستاذ @رمهان وكل من تعلمت منهم وعلى ايديهم حتى لا اخطئ بنكران فضل لاحد فى هذا الصرح الرائع اتمنى ان شاء الله ان تنال رضاكم الذكر_الحكيم_V.__3.0.1.zip

اضافة لما اشار اليه استاذي الفاضل جعفر اود ان اشير الى ان الاشكاليه كانت في النسخ الاولى للاصدار 2007 وتم حلها بعد ذلك مع ذلك هناك اربع خطوات اشارت اليها مايكروسوفت فيما يتعلق بعملية الضغط والاصلاح بعنوان قبل البدء نفذ الإجراءات التالية قبل بدء عمليه الضغط والإصلاح: إنشاء نسخه احتياطيه لقاعده البيانات فأثناء عملية الإصلاح، قد يقتطع Access بعض البيانات من الجداول التالفة. وفي بعض الأحيان يكون من الممكن استعادة هذه البيانات من النسخة الاحتياطية. بالاضافه إلى استراتيجية النسخ الاحتياطي العادية ، يجب إنشاء نسخه احتياطيه علي الفور قبل استخدام الأمر " ضغط قاعده البيانات وإصلاحها ". الحصول علي حق وصول حصري إلى قاعده البيانات تتطلب عملية ضغط قاعدة بيانات وإصلاحها امتلاك وصول حصري إلى ملف قاعدة البيانات نظراً لأن هذه العملية قد تتسبب في تعطيل المستخدمين الآخرين. لذا يجب عليك إعلام المستخدمين الآخرين بموعد تشغيلك لعميلة الضغط والإصلاح حتى يتمكنوا من تجنب استخدام قاعدة البيانات خلال هذا الوقت. يجب عليك إخبارهم (المستخدمين الاخرين) بالمدة التي يجب خلالها تجنب استخدام قاعدة البيانات. وإذا كنت تقوم بتشغيل عمليات ضغط وإصلاح بشكل منتظم، فقم بتسجيل الوقت الذي تستغرقه. وبذلك تتمكن فيما بعد من وضع تقديرات أكثر دقة تتيح للمستخدمين الآخرين معرفة الإرشادات اللازمة حول المدة التي يجب فيها تجنب استخدام قاعدة البيانات. الحصول علي اذن الملف الكافي إلى قاعده البيانات إذا لم يكن لديك أذونات كافيه وكانت بحاجه إلى ضغط قاعده بيانات وإصلاحها ، فاتصل بمسؤول النظام للحصول علي المساعدة. النقطة الرابعة متعلقة بصلاحيات الوصول لنظام التشغيل مما سبق تجنب استخدام خيار ضغط واصلاح عند الاغلاق واستخدم الامر فقط عند الحاجة ووفقا للاجراءات التي اشارت اليها مستندات الدعم المشار اليها اعلاه. من الصعب الاجابة عن ذلك والتخمين لكون المشكله قد تنتج من اسباب متعددة ولكن استخدام ويندوز سيرفر وان كان هناك تشابه في النظام مع اصدارات ويندوز للمستخدم العادي الا ان هناك فروقات كبيرة ومتطلبات للنظام فويندوز سيرفر يعمل على الاجهزة المكتبية ولكن للحصول على طاقة النظام نحتاج الى اجهزة ذات عتاد اقوى استخدام كمية اكبر من الرام استخدام معالجات Xeon هي الخيار المناسب والافضل معالجين كحد ادنى عالما بان هذه المعالجات خيار غير مناسب للمستخدم العادي حاليا سعر المعالج انتل بوكسد زيون جولد بحدود 15000 ريال توجد نسخ اخرى باسعار اقل من ذلك الافضل عند استخدام ويندوز سيرفر عدم استخدام الواجهة الرسومية لتوفير موارد النظام وجود موظف لديه الخبرة لادارة السيرفر لكون المشاركة بشكل فعال تتطلب ان يكون السيرفر مسئول عن منح الصلاحيات للمستخدمين الاخرين وادارة كلمات المرور لكل منهم اي بمعنى ان السيرفر يتحكم بشكل كامل بالاجهزة الطرفية . سبق ان اشرت في موضوع سابق الى اصدارات ويندوز سيرفر واعتذر عن الاطالة

اخبرني احد الأخوة أن المرفق لا يعمل ويبدو وكانه فيرس سأقوم بتحميل المرفق بصيغة accdb أشكر أخوتي أ/ @kanory و أ/ @abouelhassan علي مروهم الكريم وكلماتهم الطيبات ولا انسا تقديم الشكر للأستاذ أحمد عبدالمنعم صاحب هذا الفيديو فقد كان من المصادر الهامة أيضا هذا MenuAndShortCutMenu.accdb

هذا هو المرفق أرجو أن ينفع الله به أحدا من المسلمين المرفق يحتاج اضافة مرجع كما بالصورة المراجع والمصادر: 1- من شركة مايكروسوفت 2- لمزيد من الشرح والتوضيح من معلمنا أ/ جعفر MenuAndShortCutMenu.rar InsertReference.rar

جرب المرفق اخي الكريم بارك الله فيك DbIcon.rar تحياتي

السلام عليكم 🙂 في وجهة نظري ، اذا رأيت احد الاعضاء يرد على اسئلة الاعضاء ، واجاباته تفي بحل السؤال (من المعروف ان هناك عدة طرق لحل اي سؤال ، وهناك طرق افضل من اخرى) ، فأظل اراقب هذا العضو لمجموعة مشاركات ، حتى اتاكد من علمه ، ومواظبته للمنتدى ، ولو بشكل متقطع. عندها اقوم بترشيح ترقيته الى درجة خبير 🙂 الاخ حسام وهاب @husamwahab اهلا وسهلا بك على قائمة خبراء منتدى الاكسس 🙂 ولازال البحث مستمر لترقية بقية الاعضاء 🙂 جعفر