الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

فكرة أداة لعمل نموذج إدخال البيانات

مغلق
بدأه ahmed1931976 في 9 يونيو 2004 · 10 رد · 1,432 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

الســـــلام عليكـــــم ورحمــــة اللــــــه وبركاتــــــه

===============================

مرفق أداة قمت بحمــــد اللـــــه بعملهــــا

ولأنى مبتدىء فى هــــذا المجال أرجــــو من الأخـــوة الكــــــــرام ممن لديــهم وقت الإطلاع عليها وإبــــداء آرائهــــم وهل هى محـــاولــــة ناجحــــة أم لا

وجــــزاكم اللـــــه خيــــرا كثيــــرا

Send officna.rar

#2

أخي أحمد الاداة جيدة وجميلة ..

واسمحلي بأن اقترح عليك إذا كنت تريد فائدة باقي الأخوة والأعضاء هنا أن تتكرم بوضع الأداة مع كودها ..

لكي يستفيد منها الآخرون ونعمل لها تطويرات .(طبعاً إذا أردت)

جزاك الله خيراً

#3

الســـــلام عليكــــم ورحمـــة اللـــــه وبركاتــــه

===========================

مرفق الأداة مع الكــــود وأتمنى من اللـــه عز وجـــل أن تفيــد الأخــوة رواد المنتدى

نســـألكـــم ألا تنسونــا من دعائــــكم

---------------------------------------

وجـــزاكم اللــــه خيـــرا كثيـــرا

ListAccess.rar

#4

الأخ أحمد كيف أفتح هذا الملف وخصوصاً أنه يطلب مني إدخال إسم المستخدم والباسورد ؟؟!!

تحياتي سعد

#5

الاخ احمد :

جزاك الله خيرا عن الاداة الجميلة, بس اذا كان ممكن ان يتفضل احدا بشرح كيفية صنع ادوات .OCX للاكسيس.... وشكرا

#6

الســـــلام عليكــــم ورحمـــة اللـــــه وبركاتــــه

===========================

الأخ سعـــــد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 هو متغير بقوم بإرجاع قيمة الحقل للعمود الأول والصف الذى قمت بإختياره

ثم يتم فتح النموذج على هذا السجل فقط فتستطيع أن تغير البيانات فبـــه

******************************************************************

أتمنى ألا أكون أطلت عليك وأتمنى أن تستفيد منها

لا تنسانى فى دعائك

#7

الأخ أحمد

أشكرك على مرة ثانية على مساهمتك المفيدة ..

بالنسبة للأداة أنا رأيتها .. وهي كفكرة قابلة للمزيد ..

ولدي سؤال لك ..

لماذا تقوم بتكرار هذين السطرين :

Set dbcon = New ADODB.Connection
Set rscon = New ADODB.Recordset

مع أن وجودهما مرة واحدة في خاصية Let RecordSource يكفي !!

#8

الســـلام عليكـــم ورحمــــة اللـــــه وبركاتــــه

============================

مشرفنا الغالى جزاك اللـــه خيرا

------------------------------------

بالنسبـــة للجملــــة السالفة الذكر فقـــد كررتــــها فى الحدث CmdUnfilter_Click

حيث أعتقـــد أن الكائــن Recordset الذى تم إنشـــائــه فى الخاصيـــة

Let RecordSource قـــد إنتهى بإنشـــاء كائن RecordSet جديد فى الحدث

CmdFilter_Click لـــذا فتطلب الأمــر إنشـــاء Connection جديد و Recordset جديد

أرجـــو التصحيــح إن كان هناك خطـــأ

*********************************

توجد لدى فكـــرة تعديل على الأداة وهى كالتالى

إنشـــاء Property Page لهــذه الأداة حيث تحتوى على الآتى

1- مربع نص يحتوى على مســــار قاعدة البيانات

2- مربع تحرير وسرد يحتوى على الجداول الموجودة بالقاعدة لاختيار الجدول فيتم عرض الحقول فى List box ثم إختيار الحقول المراد عرضها فى الأداة

3- مربع تحرير وسرد يحتوى على أسماء النماذج

لكن لم أبـــدأ فى المحاولــــة بعـــد وذلك لأنى أريـــد أن يتم تطبيق خصائص الأداة

عند إدخالها فى وقت التصميم مثل خصائص أى كائن فى الأكسيس وليس بكتابة كود فىForm_Load

أرجـــو إن كــان لديـــك متسع من الوقت أن تساعدنى فقط فى تطبيق خصائص الأداة عند إدخالها وقت التصميم حتى أقوم بتنفيذ إنشـــاء Property Page لها

#9

أخي الكريم

اقتباس
حيث أعتقـــد أن الكائــن Recordset الذى تم إنشـــائــه فى الخاصيـــة

Let RecordSource قـــد إنتهى

المتحول dbcon هو متحول عام وكذلك rscon لذلك فإنهما يحافظان على قيمتيهما ضمن جميع أجزاء أداة الـ Activex

بالنسبة لطلبك :

اقتباس
أن تساعدنى فقط فى تطبيق خصائص الأداة عند إدخالها وقت التصميم حتى

فسّر لي أكثر مالضي تريده لأني لم أفهم عليك

#10

الســــلام عليكم ورحمــــة اللــــه وبركـــاتـــه

==========================

جـــزاكم اللـــه خيـــرا مشــرفنا الغالى على تصحيح المعلومة

---------------------------------------------------------------------

بالنسبــــة لطلبى سأشرحــه أكثر

عنــدمــا أقـــوم بإدراج الأداة فى نموذج جديد ثم أقوم بإستعراض خصائص الأداة

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

إذا قمت بتعريف قيمــــة لتلك الخاصيـــة فى الحدثForm_Load فإنه يستجيب لها

على سبيل المثال

-----------------------

لأى نموذج أكسيس(أو أى كائن أخر) فى مود التصميـــم إذا قمت بإدخال أى قيــــمة لأى خاصيـــة وذهبت إلى مود المشاهدة ستجد أن النموذج إستجاب لتلك الخاصية وقام بتنفيـــذها أى أنك لا تذهب الى الحدث Form_Load وتكتب قيمة لتلك الخاصية

حـــاول أن تقوم بالغاء القيم المعطاة لخصائص الاداة فى Form_Load للنموذج الموجود به الأداة ثم أعطى قيم للخصائص ConnectionString ,RecordSource ,Form_Open فى مربع الخصائص العادى للأداة وأستعرض النموذج فى حالة المشاهدة تجد أنه لا يطبق تلك القيم المعطـــاة للخصائص

أسف على الإطالة وأتمنى أن أكون وفقت فى التوضيح

وجــــزاكم اللــــه خيــــرا

هذا الموضوع مغلق.

مواضيع مشابهة