Elsayed Bn Gemy

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

تحديث جديد تم اضافة دالة لتجميع الاعمدة واسمها SumListViewItem Public Function SumListViewItem(ByVal ColumnIndex As Integer) As Double حيث ColumnIndex هى رقم العمود المراد جمعه علما بان ترقيم الاعمدة يبدأ من 0 ادرجت التحديث فى قاعدة البيانات المرفقة الاداة مع المرفق MsAccessListviewACX1.00.rar

فقط قم بتعديل مسار الاداة القديمة فى ملف الغاء التسجيل واضغط حفظ ثم التشغيل كمسؤول

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

عدل المسار وتشغيل كمدير الغاء التسجيل.rar

طب حط نفسك مكانى انت 🤣🤣🤣🤣 نحطله الاوبجكت يقولك لا كخ وحش ههههههههه نشيل الاوبجكت يقولك لا انا عاوز الاوبجكت جرب هذه المكتبة مع المرفق اعد التسجيل ثم جرب MsAccessListviewACX1.01.rar

اخي هل يمكنك تعديل الكود الخاص بهذا الخطأ ليصبح Dim AcxLvw As New MsAccessListviewACX1_00.UCBySedo Call AcxLvw.FillListviewWithRecord(CurrentProject.FullName, Me.Text11) وجرب وقولي

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

قم بتجربة النماذج الاخري وان ظهر معك نفس الخطأ اخبرني

اخي هل ظهرت الاداة فى عناصر Activex ?

السلام عليكم اخوانى قمت بانشاء قاعدة بيانات مدرج بها الاداة والدوال الثلاثة وطريقة الاستخدام الدالة الاولى وهى تعبئة الاداة بالسجلات من نفس قاعدة البيانات قم باختيار الاستعلام ( يتم عمل قائمة بالاستعلامات تلقائيا فى حدث عند التحميل وادرجها فى الكمبوبوكس ) بعد اختيار الاستعلام سيتم تحويل الاستعلام الى صيغة سيكوال تلقائيا فقط ما عليك الا ان تضغط على عرض السجلات ) الدالة الثانية اختر المسار ونوع الصورة المراد عرضها فى المسار ثم عرض الدالة الثالثة الملفات فى مجلد معين اضافة الى ايقوناتها اختر المسار ثم عرض قاعدة البيانات AcxListview_V1.00.rar

استاذنا ابو عبد الله راعيت اثناء التصميم ان تعمل فى بيئة فريمورك 3.5 وهو المتاح فى ويندوز 7 .. حتى تعمل فى اصدرات الويندوز الحديثة كما انها مصممة حتى تعمل على النواتين 32 و 64 ولكن دعنا نتاكد من بعض البيانات فى ملف التسجيل الخاص بك فى ملف التسجيل يجب تعديل المسارات الاتية اولا مسار النتفريم ورك يجب ان تتاكد من هذا المجلد C:\Windows\Microsoft.NET\Framework\v4.0.30319 هل هو موجود فعلا ام لا وهل اداة التسجيل موجودة فى الملف ام لا regasm.exe ثانيا تعديل مسار الاداة فى ملف التسجيل غير ذلك يبقي ننتظر احد الاخوة والله الموفق

لا ولكن دعنا نري ان كان أحد من الاخوة واجهته مشكلة التسجيل

اهلا استاذنا تاكد من مسار النت فريم ورك كما هو موجود في ملف bat

بارك الله لك اخي 🙏🙏 وعليك السلام اخي ♥️ وما هي فكرة الاداة اخي

السلام عليكم ورحمة الله تعالى وبركاته اخوانى الكرام منذ ان بدأت هذا المشروع ولم افكر لحظة فى ان احيد عنه الان اقدم لكم مكتبة جديدة متلافيا فيها بعض المشاكل التي قابلتنا قديما وادرجت بها دوال جاهزة وسهلة المكتبة بها اداة 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

يجري الان تصميم النظام في بيئة غير الاكسس لما لها من مشاكل واجهت العملاء النسخة الجديدة تدعم قواعد بيانات SQL وبيئة .NET وفور اصدارها سأضع رابط التحميل هنا ان شاء الله

ستجد الصور والشرح في هذا الرابط https://codedocu.com/Net-Framework/Controls/COM-ActiveX/Details_mobile?d=2382&z=1&t=Create+C%23+COM+Control+for+Office

كما في هذه الصور

بعد تسجيلها بالبرنامج ستجدها في الريفرنس تلقائيا فقط قم باختيارها واستدعائها ولكن هل قمت باضافة مفتاح لها وتفعيل خيار com registered في البيسك نت

نعم class library و Com Control نعم فالمكتبة المرفقة مصممة بلغة. Net بارك الله فيك بصراحة انا لم اقصد برنامج التسجيل في حد ذاته بل المكتبة المرفقة فهذه اول مكتبة اصممها واردت من الاخوة تجربتها في الاكسس 🙏🥰🥰

السلام عليكم ورحمة الله تعالى وبركاته اليوم اقدم لكم مرفق ليس ميكروسوفت اكسس انما .exe وذلك لتسجيل مكتبات DLL هذا بالنسبة للمرفق ارفقت المكتبة الخاصة بالمرفق يمكنك اضافتها الى برنامج الاكسس الخاص بك لتسجيل المكتبات الخاصة بك المكتبة الذى ارفقتها بها ثلاث دوال GetPathBySedo وهى الدالة الخاصة باختيار ملف المراد تسجيله InstallService وهى الدالة الخاصة بتسجيل المكتبة UnInstallService وهى الدالة الخاصة بالغاء تسجيل المكتبة بعد اضافة المكتبة فى قاعدة البيانات الخاصة بك فى محرر اكود الاكسس تستطيع استدعاء الدوال عن طريق الاتى دالة تسجيل المكتبة + دالة جلب المسار يمكنك الاستغناء عن دالة استدعاء المسار اذا كان مسار المكتبة المراد تسجيلها محدد Dim dll As New Dll_Add_Remove.ClsTest dll.InstallService (dll.GetPathBySedo) دالة الغاء تسجيل المكتبة Dim dll As New Dll_Add_Remove.ClsTest dll.UnInstallService (dll.GetPathBySedo) برنامج تسجيل المكتبات.rar

اخي الكريم ابو عبد الله حياك الله للاسف هذه هي طبيعة ملفات UDL ، لا يمكنهم تخزين كلمة المرور مشفرة انا لجأت للملف دا من تبسيط الامر على المستخدم ولكن اذا كانت قاعدة بياناتك Sql فى مسار معين وتريد اضافتها للسيرفر دون اللجوء الى ملف ‘UDL فقط ستحتاج الى تغير الكود السابق استبدل هذا السطر "Initial Catalog=MyDbVb;" & _ بالسطر التالي "AttachDbFilename=D:\MyDbVb.mdf;" & _ وهو مسار قاعدة البيانات الخاصة بك

تم اصدار النسخة التجريبية من برنامج المزرعة ويمكنك تحميله من هنا