الســـــلام عليكـــــم ورحمــــة اللــــــه وبركاتــــــه
===============================
مرفق أداة قمت بحمــــد اللـــــه بعملهــــا
ولأنى مبتدىء فى هــــذا المجال أرجــــو من الأخـــوة الكــــــــرام ممن لديــهم وقت الإطلاع عليها وإبــــداء آرائهــــم وهل هى محـــاولــــة ناجحــــة أم لا
وجــــزاكم اللـــــه خيــــرا كثيــــرا
أخي أحمد الاداة جيدة وجميلة ..
واسمحلي بأن اقترح عليك إذا كنت تريد فائدة باقي الأخوة والأعضاء هنا أن تتكرم بوضع الأداة مع كودها ..
لكي يستفيد منها الآخرون ونعمل لها تطويرات .(طبعاً إذا أردت)
جزاك الله خيراً
الســـــلام عليكــــم ورحمـــة اللـــــه وبركاتــــه
===========================
مرفق الأداة مع الكــــود وأتمنى من اللـــه عز وجـــل أن تفيــد الأخــوة رواد المنتدى
نســـألكـــم ألا تنسونــا من دعائــــكم
---------------------------------------
وجـــزاكم اللــــه خيـــرا كثيـــرا
الأخ أحمد كيف أفتح هذا الملف وخصوصاً أنه يطلب مني إدخال إسم المستخدم والباسورد ؟؟!!
تحياتي سعد
الاخ احمد :
جزاك الله خيرا عن الاداة الجميلة, بس اذا كان ممكن ان يتفضل احدا بشرح كيفية صنع ادوات .OCX للاكسيس.... وشكرا
الســـــلام عليكــــم ورحمـــة اللـــــه وبركاتــــه
===========================
الأخ سعـــــد2 لم أضع كلمـــة ســـر على الملـــف , المهـــم هـــو الأداة listAccess.ocx
ســوف أقــــوم بشـــرحها لك إذا أردت أن تجربهـــا:-
أولا :- تسجيـــل الأداة
--------------------------
1- قــــم بفتـــح أى ملف أكسيس ثم إختيار Tools ثم ActiveX Controls
2- سيظهر لك المربع الحوارى ActiveX Controls
3- قم بإختيــــار Register سيظهـــرلك مربع إختيار الملفAdd ActiveX Controls قم بإختيـــار الملف ListAccess.ocx ثم إضغط ok
4- سيتم غلق المربع الحوارى وتظهـــر لك نافذة المربع ActiveX Controls قم بغلقهــا
============================
ثانيــــا :- إدراج الأداة
------------------------
5- قم بفتـــح ملف أكسيس الذى تريد إدارج تلك الأداة بها وليكن مثلا ملف يحتوى على جدول واحـــد فقـــط وهـــو جدول الموظفين Emp الذى يحتوى على العديد من الحقول وليكن مثلا عشرين حقلا منه
code,name,phone,address..........etc
6- قم بإنشـــاء نموذج غير منضم واعرضــه فى مود التصميم وإختـر Insert ثم إختر ActiveX Control ثم إختر Project1.List_Edit ثم إضغـــط ok
7- قم بحفظ وغلق النموذج واعرضه فى مود المشــاهدة
============================
ثالثـــا :- إدراج الكود
----------------------
8- فى الحدث الخـــاص بتحميل النموذج المحتوى على الأداة قم بكتابة الأتى
Private Sub Form_Load()
List_Edit0.ConnectionString = "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & CurrentProject.FullName
List_Edit0.RecordSource = "SELECT CODE,NAME,PHONE FROM EMP
List_Edit0.Form_Open = "EMP_DATA
End Sub
-----------------------------------------------------------
حيث List_Edit0 إســـم الأداة
ConnectionString خاصيـــة بالأداة تقــوم بإرجاع قيمـــة نصيـــة تستخدم لإنشـــاء إتصال مع قاعدة البيانات
CurrentProject.fullname خاصيــــة تقوم بإرجــاع قيمـــة نصيــة لتعبر عن مســـار قاعدة البيانات
RecordSource خاصيـــة بالأداة تقوم بإرجاع قيمــة نصيــة ليتم إستخدامها فى تحديد البيانات المعــروضــة فى أداة Listview
Form_open متغير لتحديد النموذج الذى سيتم فتحه عند الضغط على الزر Add
*********************
قم بكتابة الخاصية ConnectionString كما هى معروضة
بالنسبة للخاصيــة RecourdSource أكتب الجملــة التى تقوم بعرض الحقول التى تريدها فى List
بالنسبة Form_open فيجب أن يكون نموذج منضم بالجدول emp بحيث عند الضغط على زر Add بقوم بفتح النموذج على سجل جديد
========================
رابعا :- فتح النموذج Form_open على سجل معين عند الضغط مرتين على صف معين فى List
---------------------------------------------------------------
فى الحدث Lis_Edit0_DbClick
Private Sub List_Edit0_DbClick()
Dim txtcode As Variant
List_Edit0.TextList
txtcode = List_Edit0.TextList1
DoCmd.OpenForm "EMP_DATA", , ,"
=" & txtcode
End Sub
حيث txtcode هو متغير بقوم بإرجاع قيمة الحقل للعمود الأول والصف الذى قمت بإختياره
ثم يتم فتح النموذج على هذا السجل فقط فتستطيع أن تغير البيانات فبـــه
******************************************************************
أتمنى ألا أكون أطلت عليك وأتمنى أن تستفيد منها
لا تنسانى فى دعائك
الأخ أحمد
أشكرك على مرة ثانية على مساهمتك المفيدة ..
بالنسبة للأداة أنا رأيتها .. وهي كفكرة قابلة للمزيد ..
ولدي سؤال لك ..
لماذا تقوم بتكرار هذين السطرين :
Set dbcon = New ADODB.Connection Set rscon = New ADODB.Recordset
مع أن وجودهما مرة واحدة في خاصية Let RecordSource يكفي !!
الســـلام عليكـــم ورحمــــة اللـــــه وبركاتــــه
============================
مشرفنا الغالى جزاك اللـــه خيرا
------------------------------------
بالنسبـــة للجملــــة السالفة الذكر فقـــد كررتــــها فى الحدث CmdUnfilter_Click
حيث أعتقـــد أن الكائــن Recordset الذى تم إنشـــائــه فى الخاصيـــة
Let RecordSource قـــد إنتهى بإنشـــاء كائن RecordSet جديد فى الحدث
CmdFilter_Click لـــذا فتطلب الأمــر إنشـــاء Connection جديد و Recordset جديد
أرجـــو التصحيــح إن كان هناك خطـــأ
*********************************
توجد لدى فكـــرة تعديل على الأداة وهى كالتالى
إنشـــاء Property Page لهــذه الأداة حيث تحتوى على الآتى
1- مربع نص يحتوى على مســــار قاعدة البيانات
2- مربع تحرير وسرد يحتوى على الجداول الموجودة بالقاعدة لاختيار الجدول فيتم عرض الحقول فى List box ثم إختيار الحقول المراد عرضها فى الأداة
3- مربع تحرير وسرد يحتوى على أسماء النماذج
لكن لم أبـــدأ فى المحاولــــة بعـــد وذلك لأنى أريـــد أن يتم تطبيق خصائص الأداة
عند إدخالها فى وقت التصميم مثل خصائص أى كائن فى الأكسيس وليس بكتابة كود فىForm_Load
أرجـــو إن كــان لديـــك متسع من الوقت أن تساعدنى فقط فى تطبيق خصائص الأداة عند إدخالها وقت التصميم حتى أقوم بتنفيذ إنشـــاء Property Page لها
أخي الكريم
اقتباسحيث أعتقـــد أن الكائــن Recordset الذى تم إنشـــائــه فى الخاصيـــةLet RecordSource قـــد إنتهى
المتحول dbcon هو متحول عام وكذلك rscon لذلك فإنهما يحافظان على قيمتيهما ضمن جميع أجزاء أداة الـ Activex
بالنسبة لطلبك :
اقتباسأن تساعدنى فقط فى تطبيق خصائص الأداة عند إدخالها وقت التصميم حتى
فسّر لي أكثر مالضي تريده لأني لم أفهم عليك
الســــلام عليكم ورحمــــة اللــــه وبركـــاتـــه
==========================
جـــزاكم اللـــه خيـــرا مشــرفنا الغالى على تصحيح المعلومة
---------------------------------------------------------------------
بالنسبــــة لطلبى سأشرحــه أكثر
عنــدمــا أقـــوم بإدراج الأداة فى نموذج جديد ثم أقوم بإستعراض خصائص الأداة
وأكتب مثلا فى خاصيــة Form_Open إســـم النموذج الذى أريـــد فتحـــه ثم أقـــوم بإستعراض النموذج فى مود المشاهدة وأقــوم بالضغط على زر Add فلا يقوم بفتح النموذج
إذا قمت بتعريف قيمــــة لتلك الخاصيـــة فى الحدثForm_Load فإنه يستجيب لها
على سبيل المثال
-----------------------
لأى نموذج أكسيس(أو أى كائن أخر) فى مود التصميـــم إذا قمت بإدخال أى قيــــمة لأى خاصيـــة وذهبت إلى مود المشاهدة ستجد أن النموذج إستجاب لتلك الخاصية وقام بتنفيـــذها أى أنك لا تذهب الى الحدث Form_Load وتكتب قيمة لتلك الخاصية
حـــاول أن تقوم بالغاء القيم المعطاة لخصائص الاداة فى Form_Load للنموذج الموجود به الأداة ثم أعطى قيم للخصائص ConnectionString ,RecordSource ,Form_Open فى مربع الخصائص العادى للأداة وأستعرض النموذج فى حالة المشاهدة تجد أنه لا يطبق تلك القيم المعطـــاة للخصائص
أسف على الإطالة وأتمنى أن أكون وفقت فى التوضيح
وجــــزاكم اللــــه خيــــرا
أخي أحمد ..
إن Form_Open ليس خاصية في هذه الأداة .. ولكنك تعرّفه في قسم التصريحات على أنه متحول عام
اعمله خاصية وضع له حدث Let و Get وسيعمل عندها
هذا الموضوع مغلق.
