-
Posts
1,162 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
11
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
مشاركات المكتوبه بواسطه Elsayed Bn Gemy
-
-
تحديث جديد
تم اضافة دالة لتجميع الاعمدة واسمها SumListViewItem
Public Function SumListViewItem(ByVal ColumnIndex As Integer) As Double
حيث ColumnIndex هى رقم العمود المراد جمعه علما بان ترقيم الاعمدة يبدأ من 0
ادرجت التحديث فى قاعدة البيانات المرفقة
الاداة مع المرفق
MsAccessListviewACX1.00.rar- 2
- 1
-
5 دقائق مضت, احمد الفلاحجي said:
الحمدلله ربنا يعينك اخى ويسرلك امرك وفى انتظار المكتبه بعدالاضافات الجديده ان شاء الله
اليس هناك طريقه لازالة المكتبه الاخرى لان بعد استعمال ملف الالغاء لم يتم ازالتها كما بالصوره السابقه
فقط قم بتعديل مسار الاداة القديمة فى ملف الغاء التسجيل واضغط حفظ ثم التشغيل كمسؤول
-
اذا ف اخر مكتبة هي التى تم تسجيلها وتم العمل عليها الحمد لله
نسعى الان فى اضافة دوال اكثر لها ان شاء الله -
عدل المسار
وتشغيل كمدير -
1 دقيقه مضت, احمد الفلاحجي said:
طب حط نفسك مكانى انت 🤣🤣🤣🤣 نحطله الاوبجكت يقولك لا كخ وحش ههههههههه
نشيل الاوبجكت يقولك لا انا عاوز الاوبجكت
جرب هذه المكتبة مع المرفق اعد التسجيل ثم جرب
-
15 ساعات مضت, احمد الفلاحجي said:
وعليكم السلام اخى واستاذى العزيز @Elsayed Bn Gemy بارك الله فيك وجزاك الله خيرا وان شاء الله موفق
قمت بتسجيل الاداه وتم التسجيل والحمدلله وعند تجربه المثال المرفق منك ظهر الخطأ ومرفق الصور
اخي هل يمكنك تعديل الكود الخاص بهذا الخطأ ليصبح
Dim AcxLvw As New MsAccessListviewACX1_00.UCBySedo Call AcxLvw.FillListviewWithRecord(CurrentProject.FullName, Me.Text11)
وجرب وقولي
-
45 دقائق مضت, احمد الفلاحجي said:
نفس الخطأ اخى
اذن ازل الاداة واعد تركيبها من جديد او علي قاعدة بيانات جديدة اعتقد ان المشكلة تكمن في قاعدة البيانات التي ارفقتها لاني اعدت تسمية المكتبة داخليا من اول وجديد
-
-
2 دقائق مضت, احمد الفلاحجي said:
وعليكم السلام اخى واستاذى العزيز @Elsayed Bn Gemy بارك الله فيك وجزاك الله خيرا وان شاء الله موفق
قمت بتسجيل الاداه وتم التسجيل والحمدلله وعند تجربه المثال المرفق منك ظهر الخطأ ومرفق الصور
اخي هل ظهرت الاداة فى عناصر Activex ?
-
السلام عليكم اخوانى
قمت بانشاء قاعدة بيانات مدرج بها الاداة والدوال الثلاثة وطريقة الاستخدام
الدالة الاولى وهى تعبئة الاداة بالسجلات من نفس قاعدة البيانات
قم باختيار الاستعلام ( يتم عمل قائمة بالاستعلامات تلقائيا فى حدث عند التحميل وادرجها فى الكمبوبوكس )
بعد اختيار الاستعلام سيتم تحويل الاستعلام الى صيغة سيكوال تلقائيا فقط ما عليك الا ان تضغط على عرض السجلات )
الدالة الثانية
اختر المسار ونوع الصورة المراد عرضها فى المسار ثم عرض
الدالة الثالثة
الملفات فى مجلد معين اضافة الى ايقوناتها اختر المسار ثم عرض
قاعدة البيانات
- 1
-
3 ساعات مضت, أبو إبراهيم الغامدي said:
كان اختيار أ. جمال بالبدء بهذه الأداة في تطويره لأدوات تعمل مع أكسس موفقا جدا!
الأداة فيها ميزات كثيرة لعرض البيانات بشكل جذاب وملفت!
أنا استخدم الأداة المتوفرة ضمن الأدوات التقلدية في ويندوز .. إلا أنها تحتاج بعض العمل من أجل عرض البيانات العربية
أتمنى ممن حمل الأداة وعملت معه أن يخبرنا. رجاءً
استاذنا ابو عبد الله
راعيت اثناء التصميم ان تعمل فى بيئة فريمورك 3.5 وهو المتاح فى ويندوز 7 .. حتى تعمل فى اصدرات الويندوز الحديثة
كما انها مصممة حتى تعمل على النواتين 32 و 64
ولكن دعنا نتاكد من بعض البيانات فى ملف التسجيل الخاص بك
فى ملف التسجيل يجب تعديل المسارات الاتية
اولا مسار النتفريم ورك يجب ان تتاكد من هذا المجلد
C:\Windows\Microsoft.NET\Framework\v4.0.30319
هل هو موجود فعلا ام لا
وهل اداة التسجيل موجودة فى الملف ام لا regasm.exe
ثانيا تعديل مسار الاداة فى ملف التسجيل
غير ذلك يبقي ننتظر احد الاخوة والله الموفق
-
6 دقائق مضت, أبو إبراهيم الغامدي said:
اتبعت الخطوات التي أشرت إليها لكن..
هل لنوات الأفس دخل بالموضوع؟
لا ولكن دعنا نري ان كان أحد من الاخوة واجهته مشكلة التسجيل
-
-
7 ساعات مضت, abouelhassan said:
بارك الله فيك اخى
بارك الله لك اخي 🙏🙏
2 ساعات مضت, ابو محمد 316 said:السلام عليكم
بارك الله فيك وحفظك الله
فيه فكرة لــ أداة قد تستفيد مه مادين
وهي خاصه بالصور
بالتوفيق إن شاء الله
وعليك السلام اخي ♥️
وما هي فكرة الاداة اخي
-
السلام عليكم ورحمة الله تعالى وبركاته
اخوانى الكرام منذ ان بدأت هذا المشروع ولم افكر لحظة فى ان احيد عنهالان اقدم لكم مكتبة جديدة متلافيا فيها بعض المشاكل التي قابلتنا قديما وادرجت بها دوال جاهزة وسهلة
المكتبة بها اداة 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 هو المسار المراد عرض الصور بداخله
طريقة التسجيل
في ١/١٠/٢٠١٩ at 18:00, Elsayed Bn Gemy said:اما عن طريقة التسجيل فستجد ملف من نوع .bat ارفقته مع الاداه اسمه " تسجيل الاداة "
قم بفتحة با النوتباد وقم بتغيير مسار الاداه وقم بحفظ الملف
وعن التسجيل قم بفتح الملف كمسؤل وسيقوم بتسجيل المكتبةتلقائيا
بعد التسجيل تاممكد من وجود ملف tlp فى قائمة الريفرنس هكذا
ثم بعد ذلك اختر عناصر Activex ثم ادراج جديد واختر الاداة
اتمنى ان تنال اعجابكم وانا فى خدمتكم لادراج اى تحديث بها او انشاء ادوات جديدة نستفيد بها فى الاكسس
---------------------------------------------------------------------------------------------------
تعديل : 12-02-2021 :
قمت بانشاء قاعدة بيانات مدرج بها الاداة والدوال الثلاثة وطريقة الاستخدام
الدالة الاولى وهى تعبئة الاداة بالسجلات من نفس قاعدة البيانات
قم باختيار الاستعلام ( يتم عمل قائمة بالاستعلامات تلقائيا فى حدث عند التحميل وادرجها فى الكمبوبوكس )
بعد اختيار الاستعلام سيتم تحويل الاستعلام الى صيغة سيكوال تلقائيا فقط ما عليك الا ان تضغط على عرض السجلات )
الدالة الثانية
اختر المسار ونوع الصورة المراد عرضها فى المسار ثم عرض
الدالة الثالثة
الملفات فى مجلد معين اضافة الى ايقوناتها اختر المسار ثم عرض قاعدة البيانات
- 4
- 1
-
يجري الان تصميم النظام في بيئة غير الاكسس لما لها من مشاكل واجهت العملاء النسخة الجديدة تدعم قواعد بيانات SQL وبيئة .NET
وفور اصدارها سأضع رابط التحميل هنا ان شاء الله
- 1
-
-
-
1 دقيقه مضت, SEMO.Pa3x said:
قمت بكتابة Class Library بلغة VB.NET
Public Class KillProcessLib Public Shared Function kProcess(ByVal prcName As String) Dim prc() As Process = System.Diagnostics.Process.GetProcessesByName(prcName) For Each xKill In prc xKill.Kill() Next End Function End Class
الان كيف سأقوم بإستدعاءه في الاكسس؟ يظهرلي ملف امتداداه .InstallLog لما استدعيه من الريفرينس يرفض
بعد تسجيلها بالبرنامج ستجدها في الريفرنس تلقائيا فقط قم باختيارها واستدعائها
ولكن هل قمت باضافة مفتاح لها وتفعيل خيار com registered في البيسك نت
-
منذ ساعه, SEMO.Pa3x said:
عليكم السلام، بارك الله بك..
سؤال 1: هل تقصد المكتبات المبرمجة بلغة اخرى يقبلها الاكسس؟
نعم class library و Com Control
منذ ساعه, SEMO.Pa3x said:سؤال 2: هل يقبل المكتبات المبرمجة بلغة VB.NET ؟
نعم فالمكتبة المرفقة مصممة بلغة. Net
منذ ساعه, ابوخليل said:شكرا استاذ جمال هدية جمبلة
انا استخدم ملف bat للنسخ والتسجل في الوقت نفسه وارفق هذا الملف ضمن حزمة التنصيب
بارك الله فيك بصراحة انا لم اقصد برنامج التسجيل في حد ذاته بل المكتبة المرفقة
فهذه اول مكتبة اصممها واردت من الاخوة تجربتها في الاكسس 🙏🥰🥰
-
السلام عليكم ورحمة الله تعالى وبركاته
اليوم اقدم لكم مرفق ليس ميكروسوفت اكسس انما .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)
- 2
- 1
-
1 ساعه مضت, أبو عبدالله الحلوانى said:
الله عليك يابطل وينك من زمان وحشانا ها الطلة (وبالعربي حمدا لله علي سلامتك 🙂)
ولكن هل لهذا الملف صلاحيات علي الجهاز الكلينت client
فهذا يمثل ثغرة أمنية خطيرة ان استطاع الجهاز الكلينت الوصول الي السرفر بهذه الطريقة 😰
وجزاكم الله خيرا
رجاءا لا تغب عنا كثيرا - أو اترك لنا عناوينك بالمنتديات الأخري كي نتتبعك 😁
اخي الكريم ابو عبد الله حياك الله
للاسف هذه هي طبيعة ملفات UDL ، لا يمكنهم تخزين كلمة المرور مشفرة انا لجأت للملف دا من تبسيط الامر على المستخدم
ولكن اذا كانت قاعدة بياناتك Sql فى مسار معين وتريد اضافتها للسيرفر دون اللجوء الى ملف ‘UDL فقط ستحتاج الى تغير الكود السابق
استبدل هذا السطر"Initial Catalog=MyDbVb;" & _
بالسطر التالي
"AttachDbFilename=D:\MyDbVb.mdf;" & _
وهو مسار قاعدة البيانات الخاصة بك
-
في ١٢/١/٢٠٢١ at 22:21, عبد الله قدور said:
السلام عليكم ورحمة الله وبركاته
وعليكم السلام ورحمة الله وبركاته
حياكم الله جميعا
اخي الكريم @Elsayed Bn Gemy
فكرة رائعة جدا لكنا نحتاج الى عدة امور تدعم هذه الفكرة منها
1- امكانية انشاء قاعدة بيانات جديدة sql والاتصال بها برمجيا (وذلك بسبب أن برامج المحاسبة تحتاج الى قاعدة بيانات جديدة لكل سنة)
بالنظر الى سؤالك اخى الكريم ستجد نفسك مشتت فى اكثر من جهة وستحتاج الى مجهود جبار انت تريد انشاء قاعدة Sql برمجيا تحتاج الى كود لانشاء كل جدول بقاعدة البيانات واختيار انواع الحقول بدقة نظرا لحساسية sql لنوع الحقول وياجبذا لو تمتكل 20 جدول مثلا ستجد نفسك تضيع وقتك وجهدك
امامنا خيران اذا سمحت ليه
الاول وهو البقاء على قاعدة البيانات كما هي دون تغييرها نظرا لانك لن تحتاج الى تغييرها بسم الحجم او ماشابه ذلك بسب تلك المشكلات التى تواجه الاكسسالخيار الثانى اذا كنت مصمم على التغيير فيكفى ان تحتفظ بقاعدة بياناتك فارغة واستبدالها بالقاعدة القديمة مع مراعاة نفس الاسم ونفس اصدار Sql
وان واجهك مشاكل فى ادراجها على السيرفر فاليك الاتى
قم بانشاء ملف .*txt فارغ وقم بحفظه بامتداد (.udl) سيظهر لك بهذه الصورة
ثم قم بفتحه سيظهر لك هذه النافذه
ثم اضغط next
وطبعا انت عارف الباقى
اختار السيرفر واعمل Attach لقاعدة بيانتاتك
خلى بالك من المهم بقى ودا هتحتاجه بعدين لسؤولك الاخير وهو اضافة سجلات للجدول دون الحاجة الى ربط الجداول
احفظ بياناتك وكدا القاعدة بقت على السيرفرفي ١٢/١/٢٠٢١ at 22:21, عبد الله قدور said:2- امكانية النسخ الاحتياطي للقاعدة واستعادة النسخة الاحتياطية برمجيا
لما الحاجة الى ذلك برمجيا اذا كنت تستخدم Sql mangment فهو يوفر لك تلك الخاصية
اطلع الى الرابط التالي
ستجد ما تريد
https://blogs.sap.com/2019/11/15/scheduled-automatic-sql-database-backup-using-ssms/3- يوجد في قواعد بيانات sql ميزة انشاء function بحيث ترسل الامر الى القاعدة عن طريق الاتصال بالفنكشن الموجود بقاعدة بيانات sql ، يا ترى اكسس يستطيع الاتصال بها ؟؟؟
طبعا هذه الميزة توفر جهد كبير في ادخال البيانات وتعديلها واستدعائها من قاعدة البيانات و تعطي سرعة في العمل على الشبكة
4- اخيرا اخي العزيز من خلال بحثي على اليوتيوب عن هذا الموضوع وجدت فيديو لادخال البيانات وتعديلها من الاكسس الى sql بدون ربط الجداول حسب ما فهمت من الفيديو ، لكني للأسف لم استطع تطبيق ذلك
نعم يمكنك الاتصال بقاعدة Sql برمجيا دون الحاجة الى ربط الجداول
فقط ستحتاج الي البيامنات التالية
اسم السيرفر
اسم قاعدة البيانات
ويمكنك الاتصال عن طريق هذا الكودDim conn As New ADODB.Connection conn.Open "Provider=SQLOLEDB;" & _ "Data Source=.\SQLEXPRESS;" & _ "Initial Catalog=MyDbVb;" & _ "Integrated Security=SSPI;" conn.Execute "Insert into dbo.Customers (Customer, Adress) " & _ "values ('" & "Elsayed" & "', '" & "Egypt" & "')" MsgBox "Customers imported." conn.Close Set conn = Nothing
طبعا "Data Source=.\SQLEXPRESS;" هو اسم السيرفر
"Initial Catalog=MyDbVb;" & _ هو اسم قاعدة البيانات---------------
----- ملحوظة بسيطة فاكر الملف التكست دا
افتحة بالمفكرة بعد ما تحفظ فيه بياناتك
هيطلعلك جملة الاتصال اللى موجودة بالكود السابق بهذا الشكل
شكرا لكم
- 1
-
تم اصدار النسخة التجريبية من برنامج المزرعة
ويمكنك تحميله من هنا
- 1
برنامج للتحميل (ادارة مزارع الماشية )
في قسم الأكسيس Access
قام بنشر
اخواني الافاضل السلام عليكم ورحمة الله وبركاته
اتمنى من الاخوة الصبر فان نشر برنامج ليكون م}هل للتعامل مع الجمهور ليس بالامر السهل
كنت قد بدأت تصميم نسخة غير الاكسس ولكن هذه النسخة كانت مبنية على نسخة الاكسس ليس فيها اى تعديل
وعيوبها انها محددة لثلاث انواع فقط من الحيوانات
ليس بها اى شق محاسبي
اخطاء فى التقارير
فقمت بدراسة الموضوع مع اكثر من عميل وتعمقت اكثر فى الموضوع وقمت باثراء النسخة الجديدة باضافات كثيرة
اولا البرنمج لن يكون قاصر على نوع محدد من الحيوانات فالنسخة مفتوحة لجميع انواع الحيوانات
ثانيا التلقيحات تعديل التلقيحات بما يتناسب مع كل نوع لمنع اختلاط الانساب
ثالثا التطعيمات اثراء هذا الجزء بحيث النظام سيخبرك بميعاد التطعيم القادم لكل حيوان والجرعة المناسبة له
رابعا شجرة الانساب تعديل هذا الجزء لمنع اختلاط الانساب حتى لا يضر السسلات
الشق المحاسبي بيع وشراء
الادوية والاعلاف وخلافة
ارجو الصبر وفور اطلاق النسخة ساضع نسخة تجريبية منها هنا ان شاء الله