السلام عليكم ورحمة الله وبركاته
تحية طيبة لأساتذتنا الكرام ..
لدي المثال المرفق وهو عبارة عن نموذج جدولي يتم عرض جميع البيانات فيه .. ارغب في عمل تصفية للصف الذي يتم التأشير عليه فقط من داخل النموذج بحيث يفتح في نموذج جديد يحتوي على بيانات ذلك الصف الذي تم اختياره .. ارجو منكم مساعدتي في ذلك ولكم مني جزيل الشكر.
ما من كاتبٍ إلا سيفنى ... ويبقي الدهر ما كتبت يداه
فلا تكتب بخطك غير شيءٍ ... يسرك في القيامة أن تراه
مواضيع مفيدة
أخي جعفر للأسف ليس هذا ماطلبته .. للتوضيح اكثر انظر الصورة المرفقة .. المطلوب هو عند اختيار صف ما عن طريق التأشير عليه (عن طريق الضغط على المثلث الموضح داخل الدائرة الحمراء في الصورة ) فانه يظهر لي فورم جديد يحتوي على ذلك الصف المؤشر عليه فقط .. اتمنى ان تكون الفكرة واضحة اخي الكريم جعفر
ما من كاتبٍ إلا سيفنى ... ويبقي الدهر ما كتبت يداه
فلا تكتب بخطك غير شيءٍ ... يسرك في القيامة أن تراه
مواضيع مفيدة
وعليكم السلام :)
لتسهيل الامر ، اضفت الحقل Auto_ID الى الجدول :)
ومن ثم ، المسألة اصبحت سهلة بهذا الكود:
DoCmd.OpenForm "form1_Copy", , , "[Auto_Id]=" & frm.auto_id
والنتيجة:
جعفر
بارك الله فيك أخي جعفر على اهتمامك الكبير بهذا الموضوع .. اعجبتني طريقتك في عمل الفلترة وهي 90% من المطلوب .. أما 10% التي اتأمل الوصل الى حل لها هي اظهار النتيجة بدون استعمال زر أمر على النموذج بل ان يتم ذلك عن طريق اختيار الصف المطلوب بالماوس والضغط دبل كلك على ذلك الصف ليفتح بعدها ذلك النموذج الذي يحتوي على البيانات المختارة ..
ما من كاتبٍ إلا سيفنى ... ويبقي الدهر ما كتبت يداه
فلا تكتب بخطك غير شيءٍ ... يسرك في القيامة أن تراه
مواضيع مفيدة
هذه اسهل من سابقتها :)
اعمل حدث النقر المزدوج Double click على كل حقل (اسم الفرع ، اسم الجهة ، الاحتياجات ، الملاحظات) ، وخلي فيه نفس الكود السابق ، وهو:
DoCmd.OpenForm "form1_Copy", , , "[Auto_Id]=" & frm.auto_id
جعفر
أخي جعفر من بعد أمرك لو تكرمت ارجو منك التعديل على هذا الملف المرفق حيث ان مصدر النموذج الفرعي ليس الجدول وانما استعلام .. وهنا ستواجهني مشكلة في Auto_ID حيث انه لايمكن ان يوضع في استعلام يحتوي على Group By :(
تم تعديل هذه المشاركة بواسطة SANDANET في 16 أكتوبر 2014 في 13:30
ما من كاتبٍ إلا سيفنى ... ويبقي الدهر ما كتبت يداه
فلا تكتب بخطك غير شيءٍ ... يسرك في القيامة أن تراه
مواضيع مفيدة
وعليكم السلام :)
الجواب ، لا يمكن :(
في الصورة التالية ، نموذج البيانات فيه 3 سجلات (مصدرهم الاستعلام) ،
وفي الصورة الجدول وفيه السجلات ،
الآن ، انظر في سجل النموذج الذي به اسم الفرع = المدينة ، وانظر الى السجلين في الجدول الذين اسم الفرع فيهما يساوي المدينة ،
اخبرني اي من السجلين تريد ان تفتح ؟
ولكن ، اذا اردت نقل البيانات الى نموذج آخر (لا تستطيع تغيير شئ فيه) ، فيمكننا استخدام الكود التالي لنقل البيانات:
Option Compare Database
Dim frm As Form
Private Sub cmd_Open_Current_Click()
Set frm = Me.form1.Form
'open the Form
DoCmd.OpenForm "frm_View_ONLY"
'assign values from our form1, to the open Form frm_View_ONLY:
'1 individually
' Forms!frm_View_ONLY!area = frm.area
' Forms!frm_View_ONLY!offices = frm.offices
' Forms!frm_View_ONLY!requierd = frm.requierd
' Forms!frm_View_ONLY!amount = frm.amount
' Forms!frm_View_ONLY!notes = frm.notes
'2 All in one go, good if there were too many fields in the Form
Dim ctl As Control
For Each ctl In frm.Controls
If ctl.ControlType = acTextBox Then
DoCmd.GoToControl ctl.Name
Forms!frm_View_ONLY(ctl.Name) = ctl.Value
End If
Next ctl
End Subوالنتيجة:
جعفر
نعم أخي جعفر الطريقة الثانية هي أقرب الى المطلوب .. جاري تجربتها وسأخبرك بالنتيجة
ما من كاتبٍ إلا سيفنى ... ويبقي الدهر ما كتبت يداه
فلا تكتب بخطك غير شيءٍ ... يسرك في القيامة أن تراه
مواضيع مفيدة
الى الآن النتيجة ممتازة أخي جعفر لكن ينقصني طريقة الضغط دبل كلك على الصف بدل زر الأمر .. ارجو منك مساعدتي فيها
ما من كاتبٍ إلا سيفنى ... ويبقي الدهر ما كتبت يداه
فلا تكتب بخطك غير شيءٍ ... يسرك في القيامة أن تراه
مواضيع مفيدة
تفضل :)
بدل ان نعيد كتابة الكود ، غيرنا Sub اللي في النموذج الرئيسي من Private الى Public ، مما سيسمح لنا بأن نناديه من اي نموذج آخر :
Option Compare Database
Dim frm As Form
Public Sub cmd_Open_Current_Click()
Set frm = Me.form1.Form
'open the Form
DoCmd.OpenForm "frm_View_ONLY"
'assign values from our form1, to the open Form frm_View_ONLY:
'1 individually
' Forms!frm_View_ONLY!area = frm.area
' Forms!frm_View_ONLY!offices = frm.offices
' Forms!frm_View_ONLY!requierd = frm.requierd
' Forms!frm_View_ONLY!amount = frm.amount
' Forms!frm_View_ONLY!notes = frm.notes
'2 All in one go, good if there were too many fields in the Form
Dim ctl As Control
For Each ctl In frm.Controls
If ctl.ControlType = acTextBox Then
DoCmd.GoToControl ctl.Name
Forms!frm_View_ONLY(ctl.Name) = ctl.Value
End If
Next ctl
End Subوعلى حدث Double click لكل خانه في النوذج الفرعي ، وضعنا هذا الكود ، والذي ينادي الكود اعلاه :
Private Sub area_DblClick(Cancel As Integer)
Call Form_frm_Main.cmd_Open_Current_Click
End Subجعفر
أشكرك جزيل الشكر أخي جعفر على جهودك الجبارة هذه وسعة صدرك وتحملك عناء كتابة الأكواد باحترافية تامة ماشاء الله عليك .. تم انجاز المطلوب بنسبة 100% :D بارك الله فيك
ما من كاتبٍ إلا سيفنى ... ويبقي الدهر ما كتبت يداه
فلا تكتب بخطك غير شيءٍ ... يسرك في القيامة أن تراه
مواضيع مفيدة
حياك الله :)
لاحظ الكود ، انا تركتك لك اختيارين في نقل البيانات بين النموذجين:
1. طريقة يدوية (تقليدية) ، حيث انك تنقل المعلومة من حقل في نموذج الى حقل في نموذج آخر ،
2. طريقة تلقائية (وهي طريقة متقدمة وسريعة) ، ولكن يجب ان تكون اسماء الحقول متطابقة بين النموذجين (طبعا مو لازم جميع الحقول ، بس غالبية الحقول) ، ونستخدم هذه الطريقة عندما يكون النموذج والحقول غير مرتبطة بجدول/استعلام وبحقولهم ،
جعفر
استاذي الكريم جعفر هل بامكانك الاطلاع على المرفق التالي وهو لنفس مثالك الاخير لكني اضفت إليه خانه للنموذج frm_View_ONLY لكن هنالك مشكلة ما ارجو الاطلاع عليها
ما من كاتبٍ إلا سيفنى ... ويبقي الدهر ما كتبت يداه
فلا تكتب بخطك غير شيءٍ ... يسرك في القيامة أن تراه
مواضيع مفيدة
استاذي الكريم جعفر هل بامكانك الاطلاع على المرفق التالي وهو لنفس المثال الاخير لكني اضفت إليه خانه للنموذج frm_View_ONLY لكن هنالك مشكلة وهي القيمة التي يتم ادخالها في الخانة الجديدة يجب ان تكون اكبر من الصفر وأقل او تساوي قيمة الخانة amount لكن الكود لا يستجيب :( ..ارجو منك الاطلاع عليها
تم تعديل هذه المشاركة بواسطة SANDANET في 16 أكتوبر 2014 في 23:00
ما من كاتبٍ إلا سيفنى ... ويبقي الدهر ما كتبت يداه
فلا تكتب بخطك غير شيءٍ ... يسرك في القيامة أن تراه
مواضيع مفيدة
تفضل :)
الكود بوجه عام صحيح ، ولكن الحقل Text38 غير مضمن ، لهذا السبب ، فقيمته ليس موجودة في
me.Text38 او me.Text38.value
وانما موجودة في
me.Text38.Text
فالكود يصبح:
If Me.Text38.Text < Me.amount And Me.Text38.Text > 0 Then
جعفر
اشكرك كثيراً استاذي الكريم جعفر على هذه المعلومات القيمة .. لكني لم أفهم ما المقصود بعبارة حقل غير مضمن ؟؟ يعني كيف يصبح الحق مضمن وكيف يتم التحكم في ذلك؟ كما ان المشكلة لازالت قائمة ..جرب غير الارقام في الجدول مثلاً ضع رقم 10 بدل 1 ستلاحظ ان المشكلة مازالت قائمة
تم تعديل هذه المشاركة بواسطة SANDANET في 17 أكتوبر 2014 في 14:49
ما من كاتبٍ إلا سيفنى ... ويبقي الدهر ما كتبت يداه
فلا تكتب بخطك غير شيءٍ ... يسرك في القيامة أن تراه
مواضيع مفيدة
قصدي في غير مضمن معناه unbound
استاذي الكريم جعفر ارجو اعادة النظر في المثال لان المشكلة لم تحل بعد ..جرب غير الارقام في الجدول مثلاً ضع رقم 10 بدل 1 ستلاحظ ان المشكلة مازالت قائمة
ما من كاتبٍ إلا سيفنى ... ويبقي الدهر ما كتبت يداه
فلا تكتب بخطك غير شيءٍ ... يسرك في القيامة أن تراه
مواضيع مفيدة
الادخال يتم قبوله في حال كتبنا الرقم كالتالي مثلاً 02 اما لو كتبته 2 فقط فلا يتم قبوله !!!
ما من كاتبٍ إلا سيفنى ... ويبقي الدهر ما كتبت يداه
فلا تكتب بخطك غير شيءٍ ... يسرك في القيامة أن تراه
مواضيع مفيدة
استاذي الكريم جعفر ارجو ان يكون غيابك عنا فيه الخير.. وأنا لازلت انتظر الحل من حضرتك :)
ما من كاتبٍ إلا سيفنى ... ويبقي الدهر ما كتبت يداه
فلا تكتب بخطك غير شيءٍ ... يسرك في القيامة أن تراه
مواضيع مفيدة
اتمنى اكون حققت المطلوب
اتمنى اكون حققت المطلوب
أشكرك أخي وليد على المحاولة لكن للأسف ليس هذا هو المطلوب :(
المشكلة تكمن في الاتي ..في الملف المرفق هنالك نموذج رئيسي اسمه frm_main فيه نموذج فرعي يحتوي على بيانات .. عند الضغط دبل كلك على اي خانة من خانة البيانات فانه يقوم بفتح نموذج صغير اسمه frm_View_ONLY يحتوي على البيانات المختارة فقط.. المشكلة تكمن في مربع النص الموجود في هذا الفوم الصغير فعند ادخال عدد ما فانه من المفروض ان عبارة if الشرطية الموضوعة له تقوم بالتحقق من القيمة المدخلة .. فاذا كانت اصغر من او يساوي قيمة مربع نص اخر في نفس الفوم اسمه amount فانه يتم تنفيذ عملية تخزين .. اما لو كانت القيمة اكبر من قيمة amount فتظهر رسالة خطأ في ذلك .. المشكلة ان الشرط لايستجيب لعبارة if
ما من كاتبٍ إلا سيفنى ... ويبقي الدهر ما كتبت يداه
فلا تكتب بخطك غير شيءٍ ... يسرك في القيامة أن تراه
مواضيع مفيدة
أشكرك أخي وليد على المحاولة لكن للأسف ليس هذا هو المطلوب :(
المشكلة تكمن في الاتي ..في الملف المرفق هنالك نموذج رئيسي اسمه frm_main فيه نموذج فرعي يحتوي على بيانات .. عند الضغط دبل كلك على اي خانة من خانة البيانات فانه يقوم بفتح نموذج صغير اسمه frm_View_ONLY يحتوي على البيانات المختارة فقط.. المشكلة تكمن في مربع النص الموجود في هذا الفوم الصغير فعند ادخال عدد ما فانه من المفروض ان عبارة if الشرطية الموضوعة له تقوم بالتحقق من القيمة المدخلة .. فاذا كانت اصغر من او يساوي قيمة مربع نص اخر في نفس الفوم اسمه amount فانه يتم تنفيذ عملية تخزين .. اما لو كانت القيمة اكبر من قيمة amount فتظهر رسالة خطأ في ذلك .. المشكلة ان الشرط لايستجيب لعبارة if
ما من كاتبٍ إلا سيفنى ... ويبقي الدهر ما كتبت يداه
فلا تكتب بخطك غير شيءٍ ... يسرك في القيامة أن تراه
مواضيع مفيدة