Mohamed Khaled Galal

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

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

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

اخواني الكرام مازالت المشكله متواجده مرفق لكم مثال على مشروعي هذه المشكله التي تظهر عند كتابه الكود ثم التنقل الي الخليه التاليه له اكتشفت انا هذه المشكله تظهر عند تحويل الخليه من Short Text الي Number ولكن يجب ان تكون هذه الخليه Number وليس Text QRSystemManagerFinal.accdb

اخواني الكرام مازالت المشكله متواجده مرفق لكم مثال على مشروعي هذه المشكله التي تظهر عند كتابه الكود ثم التنقل الي الخليه التاليه له QRSystemManagerFinal.accdb

up

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

up

السلام عليكم اخواني الكرام كل عام وانتم بخير وعام سعيد عليكم يارب كنت اريد مساعده في نسخ حقل من جدول الي جدول اخر كما في الصوره التاليه وهو رقم الاذن ولكن كل معرف له رقم الاذن الخاص به: في الصوره الثانيه اريد عند كتابه رقم سريال البندل يتم استدعاء رقم الاذن الخاص به من الجدول الذي يسمي BundleDataOut خلاصه الموضوع: اريد نسخ رقم الأذن من جدول LinesIN الي حقل رقم الأذن في جدول BundleDataOut ليتم استدعائه الي حقل رقم الأذن عند كتابه سريال البندل في جدول ProductionControl ولكل سريال بندل رقم الأذن الخاص به. ومرفق لكم قاعده البيانات https://www.mediafire.com/file/i6onmna1iy9678e/QRSystemManagerFinal.rar/file

هذا هو المطلوب انا عاجز عن الشكر فعلا فليس لدي من كلام اقوله شكرا جدا جدا لك اخي العزيز

للرفع

للرفع

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

اشكركم اخواني الكرام علي تعبكم معي مشروعي باختصار المربعات التي بالاعلي يتم كتابه بيانات فيهم ثم اختيار المراحل من القائمه علي اليمين عاي حسب الاختيار ويتم اضافه في الجدول الي في الاسفل بعد الضغط عاي زر اضافه اذا قمت باختياز ثلاث اختيازات يتم تكرارهم ثلاث مرات والمتغير فقط هو خانه المرحله يتم اضافه البيانات الي في المربعات ثلاث مرات او اثنان علي حسب اختياز المراحل من القائمه علي اليمين بالنسبه لStage_subform قومت بوضعه لمعرفه الفكره التي اريدها فقط لاني اريد وضع مربع قابل للزياده يوجده به مراحل وكل مرحله بجانبها مربع اختيار

السلام عليكم اخواني الكرام لدي نموذج به بيانات ويوجد على الجانب الايمن للنموذج جدول به بعض البيانات اريد عندما اقوم بالتعليم على احد البيانات او مجموعه منهم يقوم بالاضاففي الSubform مرفق قاعده البيانات Sample.rar