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

[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, 2024 بواسطه Mohamed Khaled Galal

[Mohamed Khaled Galal]

up

[ابوخليل]

الكود صحيح

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

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

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

[kkhalifa1960]

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

DD448.rarFetching info...

[Mohamed Khaled Galal]

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

 

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

QRSystemManagerFinal.accdbFetching info...

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

[Mohamed Khaled Galal]

  في 4‏/1‏/2024 at 16:20, kkhalifa1960 said:

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

DD448.rar 20.05 kB · 1 download

Expand  

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

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

اكتشفت انا هذه المشكله تظهر عند تحويل الخليه من Short Text  الي Number ولكن يجب ان تكون هذه الخليه Number  وليس Text

QRSystemManagerFinal.accdbFetching info...

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

[شايب]

  في 6‏/1‏/2024 at 11:19, Mohamed Khaled Galal said:

اكتشفت انا هذه المشكله تظهر عند تحويل الخليه من Short Text  الي Number ولكن يجب ان تكون هذه الخليه Number  وليس Text

Expand  

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

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

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

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

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

اخونا الشايب

[Mohamed Khaled Galal]

  في 6‏/1‏/2024 at 13:58, شايب said:

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

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

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

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

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

اخونا الشايب

Expand  

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

[شايب]

  في 6‏/1‏/2024 at 14:07, Mohamed Khaled Galal said:

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

Expand  

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

  في 6‏/1‏/2024 at 13:58, شايب said:

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

Expand  

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

[Mohamed Khaled Galal]

  في 6‏/1‏/2024 at 14:13, شايب said:

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

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

Expand  

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

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

BundleCode

[شايب]

  في 6‏/1‏/2024 at 14:17, Mohamed Khaled Galal said:

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

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

Expand  

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

[Mohamed Khaled Galal]

  في 6‏/1‏/2024 at 14:24, شايب said:

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

Expand  

انتهت مشكلتي في النموذج التقليدي ولاكن انا اريد ان اطبق هذا الكود بداخل نموذج به 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, 2024 بواسطه Mohamed Khaled Galal

[شايب]

  في 6‏/1‏/2024 at 14:51, Mohamed Khaled Galal said:

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

Expand  

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

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