Mohamed Khaled Galal قام بنشر يناير 4 مشاركة قام بنشر يناير 4 (معدل) السلام عليكم اخواني الكرام لدي هذا الكود وهو يقوم بالتحقق من البيانات يوجد فورم به Child ودالخ مربع نص اذا قومت بكتابه كود المنتج يقوم بالتحقق اذا كان مدرج في جدول رقم 1 اما لا اذا كان مدرج يقوم بادراجه في مربع رقم2 اذا لم يكون مدرج تظهر رساله بان هذا المنتج غير مسجل في الجدول رقم 1 جدول رقم 1 اسمه (BundleDataINCutting). جدول رقم 2 اسمه (BundleDataOut). هذا هو الكود Private Sub BundleCode_AfterUpdate() Dim fieldValue As String fieldValue = Me.BundleCode.Value If (IsNull(DLookup("[BundleCode]", "BundleDataINCutting", "[BundleCode] ='" & Me.BundleCode.Value & "'"))) Then MsgBox "هذا البندل غير مسجل في جدول رقم 1" Else DoCmd.RunSQL "INSERT INTO BundleDataOut (BundleCode) VALUES ('" & fieldValue & "')" End If End Sub تم تعديل يناير 4 بواسطه Mohamed Khaled Galal رابط هذا التعليق شارك More sharing options...
Mohamed Khaled Galal قام بنشر يناير 4 الكاتب مشاركة قام بنشر يناير 4 up رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر يناير 4 مشاركة قام بنشر يناير 4 الكود صحيح وتضاف القيمة الجديدة في جدول BundleDataOut لم تبين المشكلة عندك .. وانت مضطر ترفق مثالك ليتم التعديل عليه .. فالاخطاء لديك لا يمكن اكتشافها الا من خلال المثال 1 رابط هذا التعليق شارك More sharing options...
kkhalifa1960 قام بنشر يناير 4 مشاركة قام بنشر يناير 4 بعد اذن استاذي @ابوخليل هل تقصد مابالشرح . إذا كذلك إليك المرفق . أما غير ذلك ارسل مرفقك موضح عليه طلبك . DD448.rar 1 رابط هذا التعليق شارك More sharing options...
Mohamed Khaled Galal قام بنشر يناير 6 الكاتب مشاركة قام بنشر يناير 6 (معدل) اخواني الكرام مازالت المشكله متواجده مرفق لكم مثال على مشروعي هذه المشكله التي تظهر عند كتابه الكود ثم التنقل الي الخليه التاليه له QRSystemManagerFinal.accdb تم تعديل يناير 6 بواسطه Mohamed Khaled Galal رابط هذا التعليق شارك More sharing options...
Mohamed Khaled Galal قام بنشر يناير 6 الكاتب مشاركة قام بنشر يناير 6 (معدل) في 4/1/2024 at 18:20, kkhalifa1960 said: بعد اذن استاذي @ابوخليل هل تقصد مابالشرح . إذا كذلك إليك المرفق . أما غير ذلك ارسل مرفقك موضح عليه طلبك . DD448.rar 20.05 kB · 1 download اخواني الكرام مازالت المشكله متواجده مرفق لكم مثال على مشروعي هذه المشكله التي تظهر عند كتابه الكود ثم التنقل الي الخليه التاليه له اكتشفت انا هذه المشكله تظهر عند تحويل الخليه من Short Text الي Number ولكن يجب ان تكون هذه الخليه Number وليس Text QRSystemManagerFinal.accdb تم تعديل يناير 6 بواسطه Mohamed Khaled Galal رابط هذا التعليق شارك More sharing options...
شايب قام بنشر يناير 6 مشاركة قام بنشر يناير 6 2 ساعات مضت, Mohamed Khaled Galal said: اكتشفت انا هذه المشكله تظهر عند تحويل الخليه من Short Text الي Number ولكن يجب ان تكون هذه الخليه Number وليس Text علامات التنصيص لمعيار الحقل الرقمي تختلف عن الحقل النصي جرب استبدل السطر الثالث لديك الى If Not IsNull(DLookup("[BundleCode]", "BundleDataINCutting", "[BundleCode] =" & Me.BundleCode.Value)) Then امر اخر طالما ان النموذج لديك مصدر بياناته جدول BundleDataOut وبالتالي القيمة المسجلة سوف تحفظ في الجدول فما هو الغرص من الاستعلام في السطر الرابع DoCmd.RunSQL "INSERT INTO BundleDataOut (BundleCode) VALUES ('" & fieldValue & "')" اخونا الشايب رابط هذا التعليق شارك More sharing options...
Mohamed Khaled Galal قام بنشر يناير 6 الكاتب مشاركة قام بنشر يناير 6 7 دقائق مضت, شايب said: علامات التنصيص لمعيار الحقل الرقمي تختلف عن الحقل النصي جرب استبدل السطر الثالث لديك الى If Not IsNull(DLookup("[BundleCode]", "BundleDataINCutting", "[BundleCode] =" & Me.BundleCode.Value)) Then امر اخر طالما ان النموذج لديك مصدر بياناته جدول BundleDataOut وبالتالي القيمة المسجلة سوف تحفظ في الجدول فما هو الغرص من الاستعلام في السطر الرابع DoCmd.RunSQL "INSERT INTO BundleDataOut (BundleCode) VALUES ('" & fieldValue & "')" اخونا الشايب تمام اخي هكذا الكود يعمل ولكن عندي النزول لكتابه كود جديد تظهر لي هذه الرساله رابط هذا التعليق شارك More sharing options...
شايب قام بنشر يناير 6 مشاركة قام بنشر يناير 6 5 دقائق مضت, Mohamed Khaled Galal said: تمام اخي هكذا الكود يعمل ولكن عندي النزول لكتابه كود جديد تظهر لي هذه الرساله شوف ردي السابق 14 دقائق مضت, شايب said: امر اخر طالما ان النموذج لديك مصدر بياناته جدول BundleDataOut وبالتالي القيمة المسجلة سوف تحفظ في الجدول فما هو الغرص من الاستعلام في السطر الرابع جرب احذف السطر الرابع والخامس 1 رابط هذا التعليق شارك More sharing options...
Mohamed Khaled Galal قام بنشر يناير 6 الكاتب مشاركة قام بنشر يناير 6 2 دقائق مضت, شايب said: شوف ردي السابق جرب احذف السطر الرابع والخامس تسلم جدا اخي الكود يعمل جيدا انا اعتذر لك اريد انا يطبق هذا الكود على الفورم وبداخله Child وهو الذي يحتوي على خليه التحقق BundleCode رابط هذا التعليق شارك More sharing options...
شايب قام بنشر يناير 6 مشاركة قام بنشر يناير 6 6 دقائق مضت, Mohamed Khaled Galal said: سلم جدا اخي الكود يعمل جيدا انا اعتذر لك اريد انا يطبق هذا الكود على الفورم وبداخله Child وهو الذي يحتوي على خليه التحقق اخي الفاضل انا ماني فاهم هل انتهت مشكلتك ؟ رابط هذا التعليق شارك More sharing options...
Mohamed Khaled Galal قام بنشر يناير 6 الكاتب مشاركة قام بنشر يناير 6 (معدل) 28 دقائق مضت, شايب said: اخي الفاضل انا ماني فاهم هل انتهت مشكلتك ؟ انتهت مشكلتي في النموذج التقليدي ولاكن انا اريد ان اطبق هذا الكود بداخل نموذج به Child كما في الصوره مرفق لك اخي قاعده البيانات https://www.mediafire.com/file/7q9qj29k8xsbin1/QRSystemManagerFinal.accdb/file وهذا هو الكود النهائي ولكن اريد ان اضيف عليه الChild لان مربع نص التحقق بداخله وليس في النموذج الرئيسي Dim fieldValue As String fieldValue = Me.BundleCode.Value If Not IsNull(DLookup("[BundleCode]", "BundleDataINCutting", "[BundleCode] =" & Me.BundleCode.Value)) Then Else MsgBox "هذا البندل غير مسجل في جدول رقم 1" Me.Undo End If اعتذر لك اخي الكريم على تعبك معي تم تعديل يناير 6 بواسطه Mohamed Khaled Galal رابط هذا التعليق شارك More sharing options...
أفضل إجابة شايب قام بنشر يناير 6 أفضل إجابة مشاركة قام بنشر يناير 6 37 دقائق مضت, Mohamed Khaled Galal said: وهذا هو الكود النهائي ولكن اريد ان اضيف عليه الChild لان مربع نص التحقق بداخله وليس في النموذج الرئيسي لا تجعل الجدول BundleDataOut هو النموذج الفرعي وانما اعمل نموذج اضافي مصدرة الجدول BundleDataOut وبالامكان جعل النموذج الجديد يعرض على شكل ورقة بيانات ثم ضع الكود في حدث بعد التحديث للحقل BundleCode وسوف يعمل الكود انظر للفيديو ⬇️ 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.