طلب اكواد لفورم مع الشرح للفهم (استدعاء بيانات من اكثر من جدول فى فورم واحد)

[عمر ضاحى]

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

وكل عام وحضراتكم بخير 

اولا احب ان ابدأ باعتذار عن موضوع السابق لعدم توضيح الطلبات بشكل اوضح واوجز (اتمني قبول اعتذارى)

انا هنا معايا فورم هذا الفورم اريد ان استدعي البيانات من اكثر من جدول 

ولتسهيل الامر أنشأت استعلام بالجداول الثلاث 

انا انا اريد الاتى :-

01- فى رأس النموذج يوجد 2 كامبو بوكس واحد لرقم الموظف والاخر لاسم الموظف ( اريد تفعيلهم بحيث اذا فتحة القائمة يظهر لى اسم الموظفين او قائمة ارقامهم واستطيع البحث بداخلهم)

02-ان استدعى المعلومات للفورم من الاستعلام  حسب الشرط وهو فى رأس النموذج اما اسم او رقم الموظف

03- افعل عمل مفاتيح التحكم فى النموذج في زيل النموذج (طلب اكواد لهم حتى يتم التحكم فى البيانات)

 

فقط هذه الطلبات وأريد ان افهم لو شرح بسيط لكل كود فانا معايا خلفيه وان شاء الله ما اغلَبكم فى الشرح والفهم

واظن ان هذا سيكون مرجع لكثير من طلبت العلم هنا والله

الملف فى المرفقات 

Request.accdb

[عبد اللطيف سلوم]

2 ساعات مضت, عمر ضاحى said:

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

وكل عام وحضراتكم بخير 

اولا احب ان ابدأ باعتذار عن موضوع السابق لعدم توضيح الطلبات بشكل اوضح واوجز (اتمني قبول اعتذارى)

انا هنا معايا فورم هذا الفورم اريد ان استدعي البيانات من اكثر من جدول 

ولتسهيل الامر أنشأت استعلام بالجداول الثلاث 

انا انا اريد الاتى :-

01- فى رأس النموذج يوجد 2 كامبو بوكس واحد لرقم الموظف والاخر لاسم الموظف ( اريد تفعيلهم بحيث اذا فتحة القائمة يظهر لى اسم الموظفين او قائمة ارقامهم واستطيع البحث بداخلهم)

02-ان استدعى المعلومات للفورم من الاستعلام  حسب الشرط وهو فى رأس النموذج اما اسم او رقم الموظف

03- افعل عمل مفاتيح التحكم فى النموذج في زيل النموذج (طلب اكواد لهم حتى يتم التحكم فى البيانات)

 

فقط هذه الطلبات وأريد ان افهم لو شرح بسيط لكل كود فانا معايا خلفيه وان شاء الله ما اغلَبكم فى الشرح والفهم

واظن ان هذا سيكون مرجع لكثير من طلبت العلم هنا والله

الملف فى المرفقات 

Request.accdb 704 kB · 0 downloads

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

Request.accdb

[د.كاف يار]

للإضافة استخدم الكود التالي

Dim db As  DAO.Database
    Dim rs As DAO.Recordset
    
    Set rs = CurrentDb.OpenRecordset("ضع اسم الجدول هنا")
		rs.AddNew
        rs![Folde1]=[TextBox1]
        rs![Folde2]=[TextBox2]
        rs![Folde3]=[TextBox3]
		rs.Update
    rs.Close
    Set rs = Nothing

لتعديل البيانات استخدم الكود التالي

Dim db As  DAO.Database
    Dim rs As DAO.Recordset
    
    Set rs = CurrentDb.OpenRecordset("SELECT * FROM TabolName Where [Folde1]='"+ [TextBox1] +"'")
		rs.Edit
        rs![Folde1]=[TextBox1]
        rs![Folde2]=[TextBox2]
        rs![Folde3]=[TextBox3]
		rs.Update
    rs.Close
    Set rs = Nothing

حذف سجل استخدم الكود التالي

Dim db As  DAO.Database
    Dim rs As DAO.Recordset
    
    Set rs = CurrentDb.OpenRecordset("SELECT * FROM TabolName Where [Folde1]='"+ [TextBox1] +"'")
		rs.Delete
    rs.Close
    Set rs = Nothing

لإستدعاء بيانات محدد الى النموذج استخدم الكود التالي

Dim db As  DAO.Database
    Dim rs As DAO.Recordset
    
    Set rs = CurrentDb.OpenRecordset("SELECT * FROM TabolName Where [Folde1]='"+ [TextBox1] +"'")
		 
	If Not rs.BOF Then   ' عرض السجلات التي بها بيانات فقط
        	rs.MoveFirst  'بيانات السجل الأول فقط                

         [TextBox1] = rs.Fields(1)
         [TextBox2] = rs.Fields(2)
         [TextBox3] = rs.Fields(3)

    End If
    rs.Close
    Set rs = Nothing

 

 

[عمر ضاحى]

اولا بشكركم جميع 

لما حاولت ان احول الميكرو الى VBA عن طريق محول الميكرو فى الاكسيس 

بجيلي خطأ 

 

هل لها حل ؟

لانى دورت على النت ولم اصل لشئ

 

 

وانا اريد ان احول الكمبو بوكس الى VBA

تم تعديل يوليو 13, 2021 بواسطه عمر ضاحى

[Eng.Qassim]

2 hours ago, عمر ضاحى said:

اولا بشكركم جميع 

لما حاولت ان احول الميكرو الى VBA عن طريق محول الميكرو فى الاكسيس 

بجيلي خطأ 

 

هل لها حل ؟

لانى دورت على النت ولم اصل لشئ

 

 

وانا اريد ان احول الكمبو بوكس الى VBA

عزيزي ..اترك الماكرو الان

وامشي على طريقة الاستاذ عبد اللطيف والدكتور كاف يار

اشرح لنا مالذي فعلته خطوة خطوة حتى حصل لك الخطأ... بعون الله ستجد الاجابة

[عمر ضاحى]

2 ساعات مضت, Eng.Qassim said:

عزيزي ..اترك الماكرو الان

وامشي على طريقة الاستاذ عبد اللطيف والدكتور كاف يار

اشرح لنا مالذي فعلته خطوة خطوة حتى حصل لك الخطأ... بعون الله ستجد الاجابة

تمام 

انا حاولت نقل الاكواد والميكرو من ملف الاستاذ عبداللطيف للملف ال شغال عليه 

فظهر لى هذا الخطأ عند محاولة ان اختار استعراض البيانات من خلال رقم الموظف

 

مش عارف السبب فين

 

تم تعديل يوليو 13, 2021 بواسطه عمر ضاحى
تم حل مشكله من المشكلتين

[عمر ضاحى]

9 ساعات مضت, د.كاف يار said:

للإضافة استخدم الكود التالي

Dim db As  DAO.Database
    Dim rs As DAO.Recordset
    
    Set rs = CurrentDb.OpenRecordset("ضع اسم الجدول هنا")
		rs.AddNew
        rs![Folde1]=[TextBox1]
        rs![Folde2]=[TextBox2]
        rs![Folde3]=[TextBox3]
		rs.Update
    rs.Close
    Set rs = Nothing

لتعديل البيانات استخدم الكود التالي

Dim db As  DAO.Database
    Dim rs As DAO.Recordset
    
    Set rs = CurrentDb.OpenRecordset("SELECT * FROM TabolName Where [Folde1]='"+ [TextBox1] +"'")
		rs.Edit
        rs![Folde1]=[TextBox1]
        rs![Folde2]=[TextBox2]
        rs![Folde3]=[TextBox3]
		rs.Update
    rs.Close
    Set rs = Nothing

حذف سجل استخدم الكود التالي

Dim db As  DAO.Database
    Dim rs As DAO.Recordset
    
    Set rs = CurrentDb.OpenRecordset("SELECT * FROM TabolName Where [Folde1]='"+ [TextBox1] +"'")
		rs.Delete
    rs.Close
    Set rs = Nothing

لإستدعاء بيانات محدد الى النموذج استخدم الكود التالي

Dim db As  DAO.Database
    Dim rs As DAO.Recordset
    
    Set rs = CurrentDb.OpenRecordset("SELECT * FROM TabolName Where [Folde1]='"+ [TextBox1] +"'")
		 
	If Not rs.BOF Then   ' عرض السجلات التي بها بيانات فقط
        	rs.MoveFirst  'بيانات السجل الأول فقط                

         [TextBox1] = rs.Fields(1)
         [TextBox2] = rs.Fields(2)
         [TextBox3] = rs.Fields(3)

    End If
    rs.Close
    Set rs = Nothing

 

 

مش عارف ايه السبب 

انا وضعت كل كود فى مكانه بعد ما عدلت عليهم 

وانا فاهم ان  ده للحقل فى النموذج

TextBox2

وان ده للحلق فى الجدول 
rs.Fields(2)

لكن بيظهر معايا خطأ مش عارف السبب ايه 

 

جربت الميكرو اشتغل تمام لكن بالكود مش شغال

[د.كاف يار]

3 ساعات مضت, عمر ضاحى said:

مش عارف ايه السبب 

انا وضعت كل كود فى مكانه بعد ما عدلت عليهم 

وانا فاهم ان  ده للحقل فى النموذج

TextBox2

وان ده للحلق فى الجدول 
rs.Fields(2)

لكن بيظهر معايا خطأ مش عارف السبب ايه 

 

جربت الميكرو اشتغل تمام لكن بالكود مش شغال

زودنا بصورة من رسالة الخطأ 

جرب هذا التعديل

 

Request.accdb

[Eng.Qassim]

13 hours ago, عمر ضاحى said:

مش عارف ايه السبب 

انا وضعت كل كود فى مكانه بعد ما عدلت عليهم 

وانا فاهم ان  ده للحقل فى النموذج

TextBox2

وان ده للحلق فى الجدول 
rs.Fields(2)

لكن بيظهر معايا خطأ مش عارف السبب ايه 

 

جربت الميكرو اشتغل تمام لكن بالكود مش شغال

اعتقد انك خلطت بين طريقة استاذ عبد اللطيف التي تعتمد على حقول مصدرها الجدول ... وبين طريقة الدكتور كاف التي تعتمد على حقول غير منظمة

[عمر ضاحى]

اعتقد ان هذا ما حدث 

علشان كده قررت اسيب موضوع الحقول الغير منضمه لانها اصعب بكثير عليا من الحقول المنضمه 

وعليه اعدت بناء النموذج كله من اول وجديد واضفت باقى الجداول 

واثناء العمل على ملئ البيانات 

ظهرت لى مشكله اخرى

الا وهي الاستعلام نفسه 

لما باضيف جدول الرواتب فى الاستعلام مش بيشتغل ومش بيجبلى اى قيم 

وانا مش ضايف اى معايير علشان يجلبلى جميع البيانات 

ف اريد ان اعرف هل للاستعلامات حدود من البيانات التى يقوم بجمعها ؟

مرفق المشروع للمعرفة السبب

Project.rar

[Eng.Qassim]

51 minutes ago, عمر ضاحى said:

اعتقد ان هذا ما حدث 

علشان كده قررت اسيب موضوع الحقول الغير منضمه لانها اصعب بكثير عليا من الحقول المنضمه 

وعليه اعدت بناء النموذج كله من اول وجديد واضفت باقى الجداول 

واثناء العمل على ملئ البيانات 

ظهرت لى مشكله اخرى

الا وهي الاستعلام نفسه 

لما باضيف جدول الرواتب فى الاستعلام مش بيشتغل ومش بيجبلى اى قيم 

وانا مش ضايف اى معايير علشان يجلبلى جميع البيانات 

ف اريد ان اعرف هل للاستعلامات حدود من البيانات التى يقوم بجمعها ؟

مرفق المشروع للمعرفة السبب

Project.rar 123.87 kB · 1 download

الغي الاستعلام القديم واعمل استعلام من query wizard.. اختار جدول الموظفين وادخل جميع الحقول ثم اختار جدول salary  واختار الحقول التي تريدها بدون المفتاح الاساسي لانها اصلا مرتبطة بجدول الموظفين ..وهكذا بالنسبة لبقية الجداول

واذا احتجت لشيء جديد افتح به موضوعا جديدا

[عمر ضاحى]

مش عارف ليه مش راضيه تظبط 

انا محتاج اجمع المعلومات من اكثر من جدول 

 

يعنى فى حاجه عاوز افهمها 

انا عندي جداول زي الجنسيه والنوع والمسمى الوظيفى 

الجداول دي تحتوي على مفتاح رائيسي فيها علشان عدم تكرار البيانات وفى نفس الوقت دي بيانات تعتبر عامه 

لما فكرت اعملهم استعلام خاص بي كل جدول منهم على حده تحت شرط معين حسب فى الفورم

واعمل باقى البيانات الرئيسيه المتوزعه على 6 جداول وقعت فى نقطه 

اولا الاستعلام ال فيه ال 6 جداول لم يعمل 

ثانيا عاوز اربط المعلومات الرئيسيه من الاستعلام الرئيسي بالاستعلامات الاخرى الفرعيه 

لقيت نفسي فى ديره مش عارف اطلع منها 

حاسس انى دخت من اللف فيها 😅

فمحتاج حد يوضح ارتب الحوار ده كيف

[Eng.Qassim]

2 hours ago, عمر ضاحى said:

مش عارف ليه مش راضيه تظبط 

انا محتاج اجمع المعلومات من اكثر من جدول 

 

يعنى فى حاجه عاوز افهمها 

انا عندي جداول زي الجنسيه والنوع والمسمى الوظيفى 

الجداول دي تحتوي على مفتاح رائيسي فيها علشان عدم تكرار البيانات وفى نفس الوقت دي بيانات تعتبر عامه 

لما فكرت اعملهم استعلام خاص بي كل جدول منهم على حده تحت شرط معين حسب فى الفورم

واعمل باقى البيانات الرئيسيه المتوزعه على 6 جداول وقعت فى نقطه 

اولا الاستعلام ال فيه ال 6 جداول لم يعمل 

ثانيا عاوز اربط المعلومات الرئيسيه من الاستعلام الرئيسي بالاستعلامات الاخرى الفرعيه 

لقيت نفسي فى ديره مش عارف اطلع منها 

حاسس انى دخت من اللف فيها 😅

فمحتاج حد يوضح ارتب الحوار ده كيف

عزيزي عمر ..انا افضل ان تنسخ جميع الجداولفقط لقاعدة جديدة..وتبدا من جديد في عمل الاستعلام .. وحدد مالذي تريده في الاستعلام الاول وان لم تستطع فأفتح موضوع جديد حتى يراه بقية الزملاء 

[عمر ضاحى]

تم نقل جميع الجداول وتم اعدة بناء العلاقات وعدلت على بعض الحقول التى ما لها لزمه بالحذف 

واشتغل كله تمام 

 

هناك سؤال ومش عارف اذا كان يستحق ان افتح له موضوع جديد ام لا 

اترك التقدير لكم 

 

انا عاوز الفوم لا يحفظ او يأخذ رقم سجل الا بعد ان يتم تعبة جميع الحقول 

اعتقد انه ممكن من مفتاح حفظ اجعل قاعدة اف تبحث بعد ما اكتب امساء جميع الحقول المطلوبه 

لكن الحقول كثيره جدا  والموضوع ملل علشان اكتب كل هذه الحقول واحد واحد 

فهل هناك طريقه مختصره مثل (فى الاكسيل ممكن اجعل مجموعة من الخلايا ليها اسم معين كجروب مثلا )

فهل هذا موجود ايضا فى الاكسيس ؟

 

 

وختاما 

احب أوجه الشكر لكل من ساعدنى وحاول ان يفهمنى 

فربنا يجازيكم عنا كل خير ويجعل البركه فيكم وفى ذريتكم ويغفر لأمواتنا واموات المسلمين 

تم تعديل يوليو 14, 2021 بواسطه عمر ضاحى

[Eng.Qassim]

اذا اردت الفورم لايحفظ السجلات في الجدول مباشرة فيجب ان تجعل الحقول غير منظمة.. اما السؤال الثاني لم افهم قصدك فبالتاكيد اسل يختلف عن اكسس لان خلاياه متشابهة وتحمل نفس الخصائص اما الاكسس ففيه حقول تعتمد على اجراء معين

[Eng.Qassim]

13 hours ago, عمر ضاحى said:

تم نقل جميع الجداول وتم اعدة بناء العلاقات وعدلت على بعض الحقول التى ما لها لزمه بالحذف 

واشتغل كله تمام 

 

هناك سؤال ومش عارف اذا كان يستحق ان افتح له موضوع جديد ام لا 

اترك التقدير لكم 

 

انا عاوز الفوم لا يحفظ او يأخذ رقم سجل الا بعد ان يتم تعبة جميع الحقول 

اعتقد انه ممكن من مفتاح حفظ اجعل قاعدة اف تبحث بعد ما اكتب امساء جميع الحقول المطلوبه 

لكن الحقول كثيره جدا  والموضوع ملل علشان اكتب كل هذه الحقول واحد واحد 

فهل هناك طريقه مختصره مثل (فى الاكسيل ممكن اجعل مجموعة من الخلايا ليها اسم معين كجروب مثلا )

فهل هذا موجود ايضا فى الاكسيس ؟

 

 

وختاما 

احب أوجه الشكر لكل من ساعدنى وحاول ان يفهمنى 

فربنا يجازيكم عنا كل خير ويجعل البركه فيكم وفى ذريتكم ويغفر لأمواتنا واموات المسلمين 

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

 

[عمر ضاحى]

4 ساعات مضت, Eng.Qassim said:

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

 

اشكرك استاذى على ردك 

طيب هل هناك طريقه سهله لتحويل الحقول من حقول منضمه الى حقول غير منضمه 

لو امكن حضرتك توجيهي لشرح لعمل هذا 

[Eng.Qassim]

1 hour ago, عمر ضاحى said:

اشكرك استاذى على ردك 

طيب هل هناك طريقه سهله لتحويل الحقول من حقول منضمه الى حقول غير منضمه 

لو امكن حضرتك توجيهي لشرح لعمل هذا 

الحقل المنظم في النموذج تكون مصدر بياناته من الجدول مباشرة اما الحقل الغير منظم هو الذي لايسجل بياناته مباشرة الى الجدول الا بعد الحفظ

[عمر ضاحى]

2 ساعات مضت, Eng.Qassim said:

الحقل المنظم في النموذج تكون مصدر بياناته من الجدول مباشرة اما الحقل الغير منظم هو الذي لايسجل بياناته مباشرة الى الجدول الا بعد الحفظ

هل يوجد شرح حتى اعمل مثله

[Eng.Qassim]

16 minutes ago, عمر ضاحى said:

هل يوجد شرح حتى اعمل مثله

هناك العشرات من الفيديوهات حول عمل برنامج للموظفين ..لكن اسؤال هو لماذا تريد حقول غير منظمة فكل ماتحتاجه هو نموذج لادخال بيانات الموظفين وهذا يسير جدا ولا تدخل في التعقيدات...تحياتي لك

تم تعديل يوليو 15, 2021 بواسطه Eng.Qassim

[عمر ضاحى]

11 دقائق مضت, Eng.Qassim said:

هناك العشرات من الفيديوهات حول عمل برنامج للموظفين ..لكن اسؤال هو لماذا تريد حقول غير منظمة فكل ماتحتاجه هو نموذج لادخال بيانات الموظفين وهذا يسير جدا ولا تدخل في التعقيدات...تحياتي لك

لان الغرض من الموضوع ان اتعلم كل شئ بس بالتدريج 

انا حاليا خلاص عرفت اعمل الفورم كامل مع نظام ان يكون الفورم منضم 

لكن وجدة ان عندما اقوم بتسجيل موظف وثم اتراجع عن التسجيل لغرض ما او لخطأ او لاي سبب قد يحدث 

اجد ان رقم الموظف يعطينى رقم جديد قد اصل لرقم 30 وكل ال معايا هما مثلا 10 موظفين وده مش عاوزه

(ممكن تتحل تلقائيا لما اعمل اعادة ضغط واصلاح لقاعدة البيانات ) لكن هذا حل غير مجدي وليس عملي

والغرض كله ليس برنامج موظفين او غيره(طبعا هحتاجه فى شغلى ان شاء الله مستقبلا لو انتهيت منه

ولكن الغرض منه هو التعليم بحث انا من زمان ونفسي اتعلمه لكن لم يسعفنى الوقت بسبب الشغل

لكن حاليا انا فى فترة اجازه 

واريد ان استغل الفتره دي فى التعلم قدر المستطاع 

(الواحد بقي بيصحى ويحلم بالمشاكل ويصحى على حلها 😅 ان شاء الله لو كانت المشكله بسيطه )

لهذا اريد ان اتعلم الموضوع ده 

 

 

 

 

 

[Eng.Qassim]

18 minutes ago, عمر ضاحى said:

لان الغرض من الموضوع ان اتعلم كل شئ بس بالتدريج 

انا حاليا خلاص عرفت اعمل الفورم كامل مع نظام ان يكون الفورم منضم 

لكن وجدة ان عندما اقوم بتسجيل موظف وثم اتراجع عن التسجيل لغرض ما او لخطأ او لاي سبب قد يحدث 

اجد ان رقم الموظف يعطينى رقم جديد قد اصل لرقم 30 وكل ال معايا هما مثلا 10 موظفين وده مش عاوزه

(ممكن تتحل تلقائيا لما اعمل اعادة ضغط واصلاح لقاعدة البيانات ) لكن هذا حل غير مجدي وليس عملي

والغرض كله ليس برنامج موظفين او غيره(طبعا هحتاجه فى شغلى ان شاء الله مستقبلا لو انتهيت منه

ولكن الغرض منه هو التعليم بحث انا من زمان ونفسي اتعلمه لكن لم يسعفنى الوقت بسبب الشغل

لكن حاليا انا فى فترة اجازه 

واريد ان استغل الفتره دي فى التعلم قدر المستطاع 

(الواحد بقي بيصحى ويحلم بالمشاكل ويصحى على حلها 😅 ان شاء الله لو كانت المشكله بسيطه )

لهذا اريد ان اتعلم الموضوع ده 

 

 

 

 

 

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

[عمر ضاحى]

فى حد معين حضرتك ممكن ترشحه لى 

[Eng.Qassim]

13 minutes ago, عمر ضاحى said:

فى حد معين حضرتك ممكن ترشحه لى 

انت بس ابحث في اليوتيون عن برنامج محاسبة بالأكسس, خطوة بخطوة

لاني لاريد ان اخرق قوانين المنتدى

[TQTHAMI]

السلام عليكم 

اولا وقبل كل شي انا مبتدي لا احد يقولي  ما هكذا تورد يا سعد الابل 

ولكن حبيت اشارك بالي اعرفه قد يكون ليس المطلوب وليس حوله ولكن هي دلو ادلي بها مع الكل

وتقبلو اكلامي بصدر رحب 

Request.accdb