السلام عليكم
لدي نموذج باسم ( بيانات) يحتوي على خلية غير منظمة باسم(الرقم)
ولدي جدول باسم (جدول البيانات) يحتوي على حقل باسم (الرقم) وهو مفتاح أساسي
أريد أن احفظ القيمة التي أدخلها في خلية ( الرقم ) في النموذج في الحقل في الجدول
فقمت باستخدام ما يلي :
Me.الرقم = [Forms]![بيانات]![الرقم]
ملاحظة الطرف الأيمن في الكود ظهر غير صحيح وهو : فورم!اسم النموذج!الرقم
هل هذا الكود صحيح ويقوم باسناد القيمة في النموذج للخلية في الجدول
علما بانه لم ينجح معي
ياليت لو ترفق ملف توضح فيه للاخوان طلبك وان شاء الله ستجد الحل مني او من الاخوان هنا
ريح من الزفرات تعصف في الحشى &&& و ورائها مطر من العبرات
ابو حسن
لا أظن الأمر يحتاج منكم ملف نرفقه
المطلوب معرفة قاعة الكتابة في الفجول بيسك هل طريقتي صحيح أم ماذا ينقصها؟
ما دام الحقل مرتبط موجود في الجدول لماذا لا تعتمد وضع الحقل على النموذج في وضعية التصميم و يحل الأمر!
مع ذلك أرى أن سؤالك تقصد به فكرة معينة لو وضحتها ربما يكون الجواب سهلا.
حسناً لعلي أوضح لك المطلوب بشكل أكثر دقة
أنا أريد أن استخدم الكود التالي :
DoCmd.Requery
'If IsNull([الرقم]) Then
'Me.الرقم = [Forms]![البيانات]![الرقم]
الاسم.SetFocus
'Else
الاسم.SetFocus
'End If
هذا الكود يقوم باختبار الرقم المدخل فإن كان موجود في القائمة يقوم بإحضار جميع بياناته
أما إذا كان غير موجود فانه يسمح بحفظ الرقم المدخل في جدول البيانات
علما بأن الكود حصلت عليه من مثال للأستاذ أبو عقيل وهو يعمل بشكل جيد في مثاله
والمشكلة التي عندي هي أنه عندما يكون الرقم المدخل غير موجود لا يسمح بحفظه
هذا المثال صممه الأستاذ MUSLIM_ES يفي بالغرض المطلوب ,
لا تنسى أخينا MUSLIM_ES بدعاء صالح
تم تعديل هذه المشاركة بواسطة biskra في 30 نوفمبر 2004 في 22:18
أخي أظنك لم تلاحظ قولي فيما سبق
اقتباسعلما بأن الكود حصلت عليه من مثال للأستاذ أبو عقيل وهو يعمل بشكل جيد في مثاله
يعني أنا أعتمدت على مثل ابو عقيل=MUSLIM_ES
اخواني أنا وضعت كود سابق المطلوب هل هذا الكود صحيح في إسناد القيمة من النموذج إلى الجدول !
أخي الكريم ،،، تحية طيبة وبعد
عندما يكون اسم الحقل الموجود في الجدول مع إسم الحقل الموجود على النموذج وتريد أن تعطي قيمة الحقل الذي في النموذج إلى الحقل الموجود في الجدول وهما بنفس الاسم ،،، سوف يكون هناك تضارب في حفظ القيمة ،،، فلو أنك غيرك إسم الحقل الذي على النموذج حتى ولو بشيء بسيط عن إسم الحقل الذي في الجدول سوف يقوم بالحفظ دون أي مشاكل ،،، مثلا :
اسم الحقل الذي في الجدول : ( الرقم )
ضع إسم الحقل الذي على النموذج : ( رقم ) أي بدون ( ألف ولام ) .
بهذه الطريقة سوف يكون الكود بعد التحديث في حقل ( رقم ) الذي على النموذج هكذا :
DoCmd.Requery If IsNull(الاسم) Then Me.الرقم = Me.رقم الاسم.SetFocus Me.أمر0.Caption = "إضـافة" Else الاسم.SetFocus Me.أمر0.Caption = "تعديل " End I
f
ملاحظة : هل تفحصت المثال جيداً ؟؟؟ إن النموذج يقرأ من إستعلام مبني على شرط أن يتساوى حقل ( الرقم ) الذي في الجدول مع حقل ( رقم ) الذي على النموذج .
تفحص المثال المرفق ،،، فقد غيرت فيه كي يتوافق مع طلبك ...
تحياتي : أبو عقيل
المسلم من سلم الناس من لسانه ويده
اشكركم جميعا
وأخص بالشكر استاذنا الفاضل أبو عقيل على جهوده
المشكلة حلت بفضل الله ثم بجهودكم
تم تعديل هذه المشاركة بواسطة عمر محمد في 2 ديسمبر 2004 في 04:19
حياك الله أخي الكريم ،،، بالتوفيق إن شاء الله ..
تحياتي : أبو عقيل
المسلم من سلم الناس من لسانه ويده
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…