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

[Mohamed Khaled Galal]

السلام عليكم اخواني الكرام

لدي هذا الكود وهو يقوم بالتحقق من البيانات يوجد فورم به 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

[Mohamed Khaled Galal]

up

[ابوخليل]

الكود صحيح

وتضاف القيمة الجديدة في جدول BundleDataOut

لم تبين المشكلة عندك ..

وانت مضطر ترفق مثالك ليتم التعديل عليه .. فالاخطاء لديك لا يمكن اكتشافها الا من خلال المثال

[kkhalifa1960]

بعد اذن استاذي @ابوخليل هل تقصد مابالشرح . إذا كذلك إليك المرفق . أما غير ذلك ارسل مرفقك موضح عليه طلبك .

DD448.rar

[Mohamed Khaled Galal]

اخواني الكرام  مازالت المشكله متواجده مرفق لكم مثال على مشروعي

 

هذه المشكله التي تظهر عند كتابه الكود ثم التنقل الي الخليه التاليه له

QRSystemManagerFinal.accdb

تم تعديل يناير 6 بواسطه Mohamed Khaled Galal

[Mohamed Khaled Galal]

في 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

[شايب]

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 & "')"

اخونا الشايب

[Mohamed Khaled Galal]

7 دقائق مضت, شايب said:

علامات التنصيص لمعيار الحقل الرقمي تختلف عن الحقل النصي

جرب استبدل السطر الثالث لديك الى

If Not IsNull(DLookup("[BundleCode]", "BundleDataINCutting", "[BundleCode] =" & Me.BundleCode.Value)) Then

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

DoCmd.RunSQL "INSERT INTO BundleDataOut (BundleCode) VALUES ('" & fieldValue & "')"

اخونا الشايب

تمام اخي هكذا الكود يعمل ولكن عندي النزول لكتابه كود جديد تظهر لي هذه الرساله

[شايب]

5 دقائق مضت, Mohamed Khaled Galal said:

تمام اخي هكذا الكود يعمل ولكن عندي النزول لكتابه كود جديد تظهر لي هذه الرساله

شوف ردي السابق

14 دقائق مضت, شايب said:

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

جرب احذف السطر الرابع والخامس

[Mohamed Khaled Galal]

2 دقائق مضت, شايب said:

شوف ردي السابق

جرب احذف السطر الرابع والخامس

تسلم جدا اخي الكود يعمل جيدا 

انا اعتذر لك اريد انا يطبق هذا الكود على الفورم وبداخله Child وهو الذي يحتوي على خليه التحقق 

BundleCode

[شايب]

6 دقائق مضت, Mohamed Khaled Galal said:

سلم جدا اخي الكود يعمل جيدا 

انا اعتذر لك اريد انا يطبق هذا الكود على الفورم وبداخله Child وهو الذي يحتوي على خليه التحقق

اخي الفاضل انا ماني فاهم هل انتهت مشكلتك ؟

[Mohamed Khaled Galal]

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

[شايب]

37 دقائق مضت, Mohamed Khaled Galal said:

وهذا هو الكود النهائي ولكن اريد ان اضيف عليه الChild لان مربع نص التحقق بداخله وليس في النموذج الرئيسي

لا تجعل الجدول BundleDataOut هو النموذج الفرعي وانما اعمل نموذج اضافي مصدرة الجدول BundleDataOut وبالامكان جعل النموذج الجديد يعرض على شكل ورقة بيانات ثم ضع الكود في حدث بعد التحديث للحقل BundleCode وسوف يعمل الكود

انظر للفيديو ⬇️