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

بارك الله فيك اخي الكريم

متشكر جدا اخي الكريم

متشكر جدا اخي الكريم على دعمك الدائم ولكن كنت اريد عمل اشعار من نوع pop up بحيث المدير يعلم بحدوث التغيير الذي يقوم به الموظف لحظيا

اخواني الكرام اريد عمل اشعار في الصفحه الرئيسيه عند التعديل في نموذج معين سواء في الحقول ككل او حقل معين بعد اضافه البيانات في نموذج TaskDue والرجوع اليه لتعديل في حقل معين او كل الحقول بعد التعديل يطهر لي رساله على الشاشه الرئيسيه بانه تم تعديل في النموذج TaskDue والمعرف له لو يكن رقم 55 https://www.mediafire.com/file/djwtwr1r362t1qt/QRSystem1.rar/file

اخي الكريم لقد قمت بعمل ماهو مطلوب من خلال الكود التالي واشكرك جدا عل مجهودك الاكثر من رائع If IsNull([S]) Then Me.S.Height = 0 Me.S.Top = 0 Me.Label120.Height = 0 Me.Label120.Top = 0 Me.Detail.Height = 0 Else Me.S.Height = 217 Me.S.Top = 510 Me.Label120.Height = 217 Me.Label120.Top = 291 Me.Items.Top = 0 Me.Items.Height = 218 Me.Cons_Pc.Top = 0 Me.Cons_Pc.Height = 218 Me.Other.Top = 0 Me.Other.Height = 218 Me.Detail.Height = 1 End If If IsNull([M]) Then Me.M.Height = 0 Me.M.Top = 0 Me.Label119.Height = 0 Me.Label119.Top = 0 Me.Detail.Height = 0 Else Me.M.Height = 218 Me.M.Top = 510 Me.Label119.Height = 218 Me.Label119.Top = 291 Me.Items.Top = 0 Me.Items.Height = 218 Me.Cons_Pc.Top = 0 Me.Cons_Pc.Height = 218 Me.Other.Top = 0 Me.Other.Height = 218 Me.Detail.Height = 1 End If If IsNull([L]) Then Me.L.Height = 0 Me.L.Top = 0 Me.Label118.Height = 0 Me.Label118.Top = 0 Me.Detail.Height = 0 Else Me.L.Height = 217 Me.L.Top = 510 Me.Label118.Height = 217 Me.Label118.Top = 291 Me.Items.Top = 0 Me.Items.Height = 218 Me.Cons_Pc.Top = 0 Me.Cons_Pc.Height = 218 Me.Other.Top = 0 Me.Other.Height = 218 Me.Detail.Height = 1 End If If IsNull([XS]) Then Me.XS.Height = 0 Me.XS.Top = 0 Me.Label121.Height = 0 Me.Label121.Top = 0 Me.Detail.Height = 0 Else Me.XS.Height = 217 Me.XS.Top = 510 Me.Label121.Height = 217 Me.Label121.Top = 291 Me.Items.Top = 0 Me.Items.Height = 218 Me.Cons_Pc.Top = 0 Me.Cons_Pc.Height = 218 Me.Other.Top = 0 Me.Other.Height = 218 Me.Detail.Height = 1 End If If IsNull([XXS]) Then Me.XXS.Height = 0 Me.XXS.Top = 0 Me.Label122.Height = 0 Me.Label122.Top = 0 Me.Detail.Height = 0 Else Me.XXS.Height = 217 Me.XXS.Top = 510 Me.Label122.Height = 217 Me.Label122.Top = 291 Me.Items.Top = 0 Me.Items.Height = 218 Me.Cons_Pc.Top = 0 Me.Cons_Pc.Height = 218 Me.Other.Top = 0 Me.Other.Height = 218 Me.Detail.Height = 1 End If If IsNull([XL]) Then Me.XL.Height = 0 Me.XL.Top = 0 Me.Label117.Height = 0 Me.Label117.Top = 0 Me.Detail.Height = 0 Else Me.XL.Height = 217 Me.XL.Top = 510 Me.Label117.Height = 217 Me.Label117.Top = 291 Me.Items.Top = 0 Me.Items.Height = 218 Me.Cons_Pc.Top = 0 Me.Cons_Pc.Height = 218 Me.Other.Top = 0 Me.Other.Height = 218 Me.Detail.Height = 1 End If If IsNull([XXL]) Then Me.XXL.Height = 0 Me.XXL.Top = 0 Me.Label116.Height = 0 Me.Label116.Top = 0 Me.Detail.Height = 0 Else Me.XXL.Height = 217 Me.XXL.Top = 979 Me.Label116.Height = 217 Me.Label116.Top = 760 Me.Items.Top = 0 Me.Items.Height = 218 Me.Cons_Pc.Top = 0 Me.Cons_Pc.Height = 218 Me.Other.Top = 0 Me.Other.Height = 218 Me.Detail.Height = 1 End If If IsNull([XXXL]) Then Me.XXXL.Height = 0 Me.XXXL.Top = 0 Me.Label115.Height = 0 Me.Label115.Top = 0 Me.Detail.Height = 0 Else Me.XXXL.Height = 217 Me.XXXL.Top = 979 Me.Label115.Height = 217 Me.Label115.Top = 760 Me.Items.Top = 0 Me.Items.Height = 218 Me.Cons_Pc.Top = 0 Me.Cons_Pc.Height = 218 Me.Other.Top = 0 Me.Other.Height = 218 Me.Detail.Height = 1 End If If IsNull([XXXXL]) Then Me.XXXXL.Height = 0 Me.XXXXL.Top = 0 Me.Label114.Height = 0 Me.Label114.Top = 0 Me.Detail.Height = 0 Else Me.XXXXL.Height = 217 Me.XXXXL.Top = 979 Me.Label114.Height = 217 Me.Label114.Top = 760 Me.Items.Top = 0 Me.Items.Height = 218 Me.Cons_Pc.Top = 0 Me.Cons_Pc.Height = 218 Me.Other.Top = 0 Me.Other.Height = 218 Me.Detail.Height = 1 End If If IsNull([XXXXXL]) Then Me.XXXXXL.Height = 0 Me.XXXXXL.Top = 0 Me.Label113.Height = 0 Me.Label113.Top = 0 Me.Detail.Height = 0 Else Me.XXXXXL.Height = 217 Me.XXXXXL.Top = 979 Me.Label113.Height = 217 Me.Label113.Top = 760 Me.Items.Top = 0 Me.Items.Height = 218 Me.Cons_Pc.Top = 0 Me.Cons_Pc.Height = 218 Me.Other.Top = 0 Me.Other.Height = 218 Me.Detail.Height = 1 End If If IsNull([XXXXXXL]) Then Me.XXXXXXL.Height = 0 Me.XXXXXXL.Top = 0 Me.Label112.Height = 0 Me.Label112.Top = 0 Me.Detail.Height = 0 Else Me.XXXXXXL.Height = 217 Me.XXXXXXL.Top = 979 Me.Label112.Height = 217 Me.Label112.Top = 760 Me.Items.Top = 0 Me.Items.Height = 218 Me.Cons_Pc.Top = 0 Me.Cons_Pc.Height = 218 Me.Other.Top = 0 Me.Other.Height = 218 Me.Detail.Height = 1 End If If IsNull([Total]) Then Me.Total.Height = 0 Me.Total.Top = 0 Me.Label143.Height = 0 Me.Label143.Top = 0 Me.Detail.Height = 0 Else Me.Total.Height = 217 Me.Total.Top = 979 Me.Label143.Height = 217 Me.Label143.Top = 760 Me.Items.Top = 0 Me.Items.Height = 218 Me.Cons_Pc.Top = 0 Me.Cons_Pc.Height = 218 Me.Other.Top = 0 Me.Other.Height = 218 Me.Detail.Height = 1 End If

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

السلام عليكم اخي الكريم لقد قمت بفصل التقرير في قاعده بيانات جديده ارجو الضغط على مفتاح SHIFT عند فتح قاعده البيانات والضغط على التقرير وكتابه رقم 4111 لبظهر التقرير المراد التعديل عليه المثال المرفق https://www.mediafire.com/file/nvt5io4t19xa4kq/QRSystemManagerFinal.rar/file

تم رفع المثال

متشكر جدا لك اخي الفاضل

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