[ تمت الإجابة ]مشكلة فى قاعدة بيانات أرجو الحل

اقتباس

بالنسبة للنموزج المسمى kod يبدأ المستخدم بأدخال الحقول الأربع الأولى وهى nd- ad - sd - rd بالتتابع - المطلوب

بمجرد خروج التركيز من الحقل الرابع تحدث حالتين 1 - لو كان هناك سجل يحتوى نفس الاربع حقول مجتمعة تخرج رسالة تفيد بأن السجل هذا مكرر وأن لم يكن مكرر فيتم تتابع الأدخال بصورة طبيعية

تم عمل المطلوب

اقتباس

ثانيا - بالنسبة للنموزج المسمى Orders سألت مسبقا وأفادتنى أختنا الغالية - زهره - وفعلا فى هذا النموزج أدخل الأربع حقول الأولى والمميزة لكل سجل ألا وهى Nd- ad - sd- rd ثم حقلى On - ONum وبمجرد خروج التركيز من حقل ONum يستدعى البرنامج باقى البيانات فى الجزء العلوى سؤالى - أن هذا الأستدعاء أو التحديث يأخد وقتا لا يطاق بمعنى أننى أنتظر فوق ال5 دق لكل سجل فياريت نقضى على هذا الأنتظار بمعنى أن يتم التحديث وينتقل الماوس للسل التالى دون أحساس المستخدم بهذا الوقت

تم عمل المطلوب

اقتباس

ثالثا - والسؤال على نفس نموزج ال Orders

هذا النموزج يملاء البيانات المدخلة فى جدول ال Orders يوجد فى جدول ال Kod نفس البيانات عاوز عند الضغط على زر أستكمال بيانات فى نموزج ال Orders يفتح لى السجل الخاص بالسجل الحالى بمعنى ان الكود الرباعى هذا والى هو عبارة عن الحقول الأربع nd- ad - sd - rd

هذا عبارة عن سجل فى جدول Kod وطبعا وأنا فى نموزج ال Orders ببدأ بأدخال هذا الكود الرباعى عاوز بقى لما أضغط على زر أستكمال بيانات يفتحلى نفس السجل فى جدول ال Kod من خلال النموزج المسمى Kod1 والى طبعا بيدخل البيانات فى جدول Kod فأقوم بأستكمال أى بيانات لهذا السجل

تم تحديث الملف في اخر مشاركة

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

أختى الكريمة

بالنسبة للسؤال الأول ---

(بالنسبة للنموزج المسمى kod يبدأ المستخدم بأدخال الحقول الأربع الأولى وهى nd- ad - sd - rd بالتتابع - المطلوب

بمجرد خروج التركيز من الحقل الرابع تحدث حالتين 1 - لو كان هناك سجل يحتوى نفس الاربع حقول مجتمعة تخرج رسالة تفيد بأن السجل هذا مكرر وأن لم يكن مكرر فيتم تتابع الأدخال بصورة طبيعي)

فعلا تم عمل المطلوب - والله ينور عليكى

بالنسبة للسؤال التانى ---

(ثانيا - بالنسبة للنموزج المسمى Orders سألت مسبقا وأفادتنى أختنا الغالية - زهره - وفعلا فى هذا النموزج أدخل الأربع حقول الأولى والمميزة لكل سجل ألا وهى Nd- ad - sd- rd ثم حقلى On - ONum وبمجرد خروج التركيز من حقل ONum يستدعى البرنامج باقى البيانات فى الجزء العلوى سؤالى - أن هذا الأستدعاء أو التحديث يأخد وقتا لا يطاق بمعنى أننى أنتظر فوق ال5 دق لكل سجل فياريت نقضى على هذا الأنتظار بمعنى أن يتم التحديث وينتقل الماوس للسل التالى دون أحساس المستخدم بهذا الوقت )

-- معذرة أختنا الفاضلة - ليس هذا هو المطلوب - هذا النموزج يقوم بأدخال بيان أمر شغل جديد يعنى لكل كود رباعى لة أكثر من كود ثنائى فى هذا النموزج أقوم بأدخل أمر شغل جديد مكون من 2 حقل وهم On and Onum الى كود مسبق الأدخال مكون من 4 حقول وهم nd- ad - sd - rd

المطلوب -

المفروض دخلت بيانات فى جدول Kod ( الأربع حقول ) وأستكملت باقى بيانات السجل يعنى أسم الشغلة والقسم الى أخرة كل هذا بجدول Kod من خلال نموزج Kod

بعد ذلك هدخل على النموزج Orders وأدرج نفس الكود الرباعى فى الجزء العلوى فينتقل المؤشر الى الجزء السفلى فأقوم بأدخال الحقلين On و ONum " المفروض أن البيانين مجتمعين لم يتكررا " وبمجرد الخروج من الحقل ONum يقوم النموزج بالتحديث فيظهر فى الجزء العلوى جميع

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

--- بالنسبة للسؤال الثالث

(هذا النموزج يملاء البيانات المدخلة فى جدول ال Orders يوجد فى جدول ال Kod نفس البيانات عاوز عند الضغط على زر أستكمال بيانات فى نموزج ال Orders يفتح لى السجل الخاص بالسجل الحالى بمعنى ان الكود الرباعى هذا والى هو عبارة عن الحقول الأربع nd- ad - sd - rd

هذا عبارة عن سجل فى جدول Kod وطبعا وأنا فى نموزج ال Orders ببدأ بأدخال هذا الكود الرباعى عاوز بقى لما أضغط على زر أستكمال بيانات يفتحلى نفس السجل فى جدول ال Kod من خلال النموزج المسمى Kod1 والى طبعا بيدخل البيانات فى جدول Kod فأقوم بأستكمال أى بيانات لهذا السجل)

معذرة أختنا الفاضلة فأيضل لم تتم الأجابة أو ليس هذا هو المطلوب

انا موجود فى نموزج Orders وضغط أستكمال بيانات ففتح النموزج Kod1 - المطلوب بقى يفتح على نفس الكود الرباعى الى كان فى نموزج ال Orders حالة الضغط على أستكمال بيانات --- أعتقد أنى قدرت أوصل الى انا عاوزة --

معذرة أختى العزيزة على عدم مقدرتى على أيصال المطلوب بشكل صحيح -- وشكرا لكى وللجميع

والسلام عليكم.

السلام عليكم

أخوانى أنتظرت كثيرا - أهل من مجيب أعكم الله ؟

أسف على الأستعجال

وشكرا

تفضل اخي ناصر

تم عمل المطلوب الثاني والثالث بناء على طلبك وحسب ما قمت بشرحه

قم بعمل كود جديد ذو اربعة ارقام في نموذج KOD

80 - 900 - 22 - 1

وادخلت فيه كافة البيانات

ثم خرجت من النموذج KOD وفتحت النموذج Order وادخلت الرقم 80 - 900 - 22 - 1

ثم قمت بالضغط على مفتاح TAP من لوحة المفاتيح وانتقل المؤشر الى الحقل ON وادخلت رقم جديد ثم انتقلت ايضا بـ TAP الى الحقل OnNum وادخلت رقم جديد ثم خرجت من الحقل بواسطة TAP وتم استدعاء البيانات من الجدول KOD الخاصة بهذا الرقم الرباعي وتم تعبئة كافة الحقول بدون تأخير يذكر وفي اقل من ثانية واحده ثم انتقلت الى حقل الكمية ووضعت عدد معين ثم انتقلت الى حقل التاريخ وادخلت تاريخ جديد ثم خرجت من الحقل واصبح النموذج على سجل جديد وانتقل المؤشر الى حقل ND .

هل هذا ما تريده حسب شرحك ؟

اتمنى ان لا تقول ان هذا ليس هو المطلوب .

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

هل هذا ما تريده حسب شرحك ؟

اتمنى ان لا تقول ان هذا ليس هو المطلوب .

قم بالتجربة على الرقم 80 - 900 - 22 - 1

او اي رقم يوجد به بيانات كاملة .

ملاحظة : اذا لم يكن هذا الحل هو المطلوب فمعذرة اخي ناصر هذا ما فهمته من شرحك في المشاركات

تم تحديث الملف في آخر مشاركة

تفضل اخي ناصر

تم استكمال حل جميع المشاكل

قم بالتجربة بنفس الخطوات التي قمت بشرحها

1. بعد الخروج من الحقل OnNum سيتم التحديث للحقول وسيتم نقل التركيز مباشرة الى الكمية

2. بعد اجراء اي عملية بحث بواسطة Ctrl+F سيتم تحديث جميع البيانات .

تم تحديث الملف في آخر مشاركة

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

جربى أختى الكريمة أى كود رباعى يعجبك فى فورم Orders بشرط يكون لية أصل فى فورم Kod -- ماذا حدث ؟

فورم ال Ordres فى بداية فتحة بيكون التركيز فى حقل Nd هذا الحقل لا يقبل اى أدخال بمجرد كتابة أى رقم لا يقبل وينتقل مباشرة الى حقل Qty

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

فعلا أسف -- بس مش هو دة الى أنا عاوزة - بجد أسف

وشكرا

اخي ناصر

قمت بإيقاف خاصية التحديث على الحقل ND

الآن جرب وافتح النموذج Oreder وادخل الأرقام

7 - 70 - 700 - 7000

ثم اضغط Enter او TAP

سينتقل المؤشر الى ON ادخل رقم غير موجود مثلا 99 ثم TAP ثم ادخل الرقم في OnNum الغير موجود مثلا 999999999 ثم اضغط TAP وانظر ماذا يحدث

سيتم تحديث بيانات الجزء العلوي مباشرة ثم الإنتقال الى حقل الكمية Qyt

ملاحظة : عند عملية البحث فقط في النموذج Order بواسطة Ctrl+F سيكون التركيز على الحقل ND بعد ادخال اي رقم في خانة البحث ثم الضغط على بحث التالي ستظهر لك البيانات ناقصة الآن كل ما عليك فعله هو الإنتقال بمفتاح الـ TAP بين الحقول حتى تصل الى حقل الكمية وسوف تظهر لك كافة البيانات في الجزء العلوي والسفلي

nasser_order_LAST3.rar

يعينى على الجمال

أهو كدة

الله ينور عليكى وعلى والديكى

برافوا عليكى - هووووووووووووو دة المطلوب ------ صحيح ما يجبها الا زهرة

مغلش رخمت عليكى كتير وبجد بجد نفسى ارخم تانى - ممكن

بس لى طلب - قبل ما نكملى كلامى - اعملى كوب قهوة مضبوط او شاى تقيل سكر خفيف - علشان تكملى بمزاج عالى

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

وتقدرى تجاوبى -

وفى كلا الحالتين

مشكورة جدااااااااااااااااااااااااااا

وألف الف شكر

اخي الفاضل ناصر

سوف اشرح لك على السريع ما تم عمله

اولا : النموذج KOD

المطلوب : عدم تكرار الكود الرباعي

الإجابة :

Private Sub rd_Exit(Cancel As Integer)
If DCount("nd", "kod", "nd= forms!kod!nd") > 1 And DCount("ad", "kod", "ad = forms!kod!ad") > 1 And DCount("sd", "kod", "sd = forms!kod!sd") > 1 And DCount("rd", "kod", "rd = forms!kod!rd") > 1 Then
MsgBox "معذرة اخي الكريم ... هذا الكود مكرر", vbYes, "تنبيه تكرار"
DoCmd.CancelEvent
Me.Undo
End If
End Sub

تلاحظ في هذا الكود انه تم استخدام خاصية Dcount وهي الخاصة بعد السجلات بحيث عندما تكون نفس هذه الأرقام موجوده مسبقا في الجدول kod يتم انهاء الإجراء وعدم التحديث وقبول هذه الأرقام بعد ظهور الرسالة لأن رقم الكود الرباعي موجود مسبقا في الجدول

ثانيا : النموذج KOD1

تم وضع الكود التالي في حدث الحالي لعمل تحديث للبيانات

Private Sub Form_Current()
Me.Refresh
End Sub

وايضا تم وضع هذا الكود في حدث عند الإغلاق لعمل تحديث لأخر بيانات مدخله الى الجدول KOD

Private Sub Form_Close()
Me.Requery
End Sub

ثالثا : النموذج Order ( نموذج ابو المشاكل )

1. تم ترتيب الجدوله له ابتداءا من الحقل rd - sd - ad - nd ثم يلية مباشرة الحقلين OnNum - ON

2. عند فقد التركيز من الحقل rd وهو آخر حقل في الكود الرباعي يجب ان يقوم بتحديث البيانات الى الجدول Order بما يقابله فقط من الحقول الموجوده في الجدول Kod

Private Sub rd_LostFocus()
DoCmd.SetWarnings False
Set db = CurrentDb
sSQL = "UPDATE Kod LEFT JOIN Orders ON (Kod.rd = Orders.rd) AND (Kod.sd = Orders.sd) AND (Kod.ad = Orders.ad) AND (Kod.nd = Orders.nd) SET Orders.nd = Kod!nd, Orders.ad = Kod!ad, Orders.sd = Kod!sd, Orders.rd = Kod!rd, Orders.PartName = Kod!PartName, Orders.SecName = Kod!SecName, Orders.GroName = Kod!GroName, Orders.DraNum = Kod!DraNum, Orders.Matrial = Kod!Matrial, Orders.DraBy = Kod!DraBy, Orders.DNum = Kod!DNum, Orders.SecNum = Kod!SecNum" & _
" WHERE (((Orders.nd)=[Kod]![nd]) AND ((Orders.ad)=[Kod]![ad]) AND ((Orders.sd)=[Kod]![sd]) AND ((Orders.rd)=[Kod]![rd]));"
db.Execute sSQL
DoCmd.SetWarnings True
End Sub

3. تم وضع كود استدعاء تحديث الجدول Order ( جملة الأستعلام العلوية الخاصة بتحديث البيانات ) من خلال الحقل OnNum في حدث بعد التحديث ثم يتم تحديث البيانات مباشرة للمرة الأولى .

Private Sub ONum_AfterUpdate()
Call rd_LostFocus
Me.Requery
End Sub

4. في حدث عند فقد التركيز لنفس الحقل ايضا OnNum يتم تاكيد تحديث البيانات للحقول العلوية من النموذج لكي تظهر لنا عند البحث او عند فتح النموذج KOD1 بحيث يتم اولا التركيز على الحقل المطلوب ثم تحديثه وهكذا حتى اخر حقل في الجزء العلوي وبعد اجراء كل التحديثات على هذه الحقول يتم نقل التركيز مباشرة الى حقل الكمية في الجزء السفلي بدون ان تلاحظ ذلك ( وهذه حل لمشكلة البطء الشديد والتاخر في وقت التحديث كما كان سابقا )

Private Sub ONum_LostFocus()
On Error Resume Next
Call rd_LostFocus
Me.PartName.SetFocus
Me.PartName.Requery
Me.SecName.SetFocus
Me.SecName.Requery
Me.DraBy.SetFocus
Me.DraBy.Requery
Me.DraNum.SetFocus
Me.DraNum.Requery
Me.DNum.SetFocus
Me.DNum.Requery
Me.GroName.SetFocus
Me.GroName.Requery
Me.Matrial.SetFocus
Me.Matrial.Requery
Me.Qty.SetFocus

5. عند ضغط زر الأمر استكمال البيانات يقوم الكود بالتاكد من االحقول العلوية ( الكود الرباعي ) ويقوم بفتح النموذج kod1 بما يقابله فقط من هذا الكود الرباعي ( ويجب في هذه الحالة ان يكون النموذج Order مفتوح وإلا لن يتم فتح النموذج kod1 او تظهر لك رسالة خطأ بأن النموذج Order مغلق )

Private Sub أمر49_Click()
DoCmd.OpenForm "kod1", acNormal
[Forms]![Kod1]![nd] = Me![nd]
[Forms]![Kod1]![ad] = Me![ad]
[Forms]![Kod1]![sd] = Me![sd]
[Forms]![Kod1]![rd] = Me![rd]
End Sub

حيث ان

Me![nd]
Me![ad]
Me![sd]
Me![rd]

تمثل الحقول الموجوده في النموذج Order

كل هذه الخطوات قمت بها منذ البداية وقد قمت بالتجربة وكانت صحيحة ولكنك شوشت علينا عندما قمت بإدراج خاصية البحث بواسطة Ctrl+F للبحث عن سجل معين لهذا قمت في الأمثلة السابقة بمحاولة ايجاد حل لهذه المشكلة وقمت بإلغاء بعض ما قمت بعمله سابقا ولهذا لم اعد اركز معك وفقدت التركيز لهذا اعدت الخطوات والأحداث من جديد بترتيب منطقي ووجدت الحل انه لابد من ايقاف تحديث الحقل ND الذي كان يسبب المشكلة وبدأ الكود والبرنامج بإجتياز كل الإختبارات بنجاح .

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

كلمات الشكر تعجز

لكن وبالبلدى الله ينور عليكى

جارى الأطلاع والمذاكرة وأعادة العمل من جديد من أولة لأخرة وأن أستعصى شى متأكد أنك لن تخزليننى

"مع أطيب تمنياتى بدوام الصحة وأحسن الأحوال ووفقك الله لما يحبة ويرضاة "

بسم الله الرحمن الرحيم

تمت الإجابة على الموضوع

إدارة الفريق العربي للبرمجة