Mohamed Khaled Galal قام بنشر أغسطس 30, 2023 قام بنشر أغسطس 30, 2023 السلام عليكم اخواني الكرام لدي نموذج به بيانات ويوجد على الجانب الايمن للنموذج جدول به بعض البيانات اريد عندما اقوم بالتعليم على احد البيانات او مجموعه منهم يقوم بالاضاففي الSubform مرفق قاعده البيانات Sample.rar
ابوخليل قام بنشر أغسطس 30, 2023 قام بنشر أغسطس 30, 2023 النموذج الفرعي وايضا الرئيسي فيهما مربع تحرير يحمل القيم نفسها وممكن تختار منهما طلبك غير واضح اشرح الفكرة بالتفصيل
Eng.Qassim قام بنشر أغسطس 30, 2023 قام بنشر أغسطس 30, 2023 وعليكم السلام.. عن اذن استاذي @ابوخليل ممكن تشرح لنا قليلا عن مشروعك ..لان اختلط الامر عندي ... الذي فهمته ان النموذج الرئيسي عبارة عن بطاقة صنف ...تقوم بأدخال المعلومات من خلال مربعات النص ليتم حفضها في الجدول StageBundleUPC السؤال...ماهي علاقة النموذج Stages subform ؟ ممكن الاستفادة منه في فاتورة المبيعات ..عند الضغط على اي صنف يتم الاضافة الى الفاتورة
Mohamed Khaled Galal قام بنشر أغسطس 30, 2023 الكاتب قام بنشر أغسطس 30, 2023 اشكركم اخواني الكرام علي تعبكم معي مشروعي باختصار المربعات التي بالاعلي يتم كتابه بيانات فيهم ثم اختيار المراحل من القائمه علي اليمين عاي حسب الاختيار ويتم اضافه في الجدول الي في الاسفل بعد الضغط عاي زر اضافه اذا قمت باختياز ثلاث اختيازات يتم تكرارهم ثلاث مرات والمتغير فقط هو خانه المرحله يتم اضافه البيانات الي في المربعات ثلاث مرات او اثنان علي حسب اختياز المراحل من القائمه علي اليمين بالنسبه لStage_subform قومت بوضعه لمعرفه الفكره التي اريدها فقط لاني اريد وضع مربع قابل للزياده يوجده به مراحل وكل مرحله بجانبها مربع اختيار
Mohamed Khaled Galal قام بنشر أغسطس 31, 2023 الكاتب قام بنشر أغسطس 31, 2023 (معدل) من الممكن ان نلغي مربع المراحل في النموذج الرئيسي لنفعل الفكرخ الثانيه وهي النموذج على جه اليمين لاني اريد كل مرحله بجانبها مربع اختيار وللعلم البيانات الموجوده بالاسفل قمت بوضعها يدويا تم تعديل أغسطس 31, 2023 بواسطه Mohamed Khaled Galal
أفضل إجابة شايب قام بنشر سبتمبر 3, 2023 أفضل إجابة قام بنشر سبتمبر 3, 2023 منذ ساعه, Mohamed Khaled Galal said: للرفع مع ان الاخ العزيز شايب فهمه على قده ولكن محاولة بسيطة بداية ممكن عمل استعلام الحاق وممكن العمل مباشرة مع مصدر السجلات وهنا الاخ شايب عمل مع مصدر السجلات Dim rs As Recordset Dim rst As Recordset Dim a As Integer Set rs = CurrentDb.OpenRecordset("stages") Set rst = CurrentDb.OpenRecordset("StageBundleUPC") rs.MoveFirst For a = 0 To rs.RecordCount - 1 If rs!AddStage = True Then rst.AddNew rst!CutColor = Me.txtco rst!CutYSGPO = Me.txtysgpo rst!CutTotal = Me.txtct rst!CutNumber = Me.txtcn rst!CutStyle = Me.CutStyle rst!CutStages = rs!Stages rst.Update End If rs.MoveNext Next a rs.Close: rst.Close Set rs = Nothing: Set rst = Nothing Me.Child15.Requery الملف مرفق الشايب Sample.accdb 1
Mohamed Khaled Galal قام بنشر سبتمبر 4, 2023 الكاتب قام بنشر سبتمبر 4, 2023 في 3/9/2023 at 13:08, شايب said: مع ان الاخ العزيز شايب فهمه على قده ولكن محاولة بسيطة بداية ممكن عمل استعلام الحاق وممكن العمل مباشرة مع مصدر السجلات وهنا الاخ شايب عمل مع مصدر السجلات Dim rs As Recordset Dim rst As Recordset Dim a As Integer Set rs = CurrentDb.OpenRecordset("stages") Set rst = CurrentDb.OpenRecordset("StageBundleUPC") rs.MoveFirst For a = 0 To rs.RecordCount - 1 If rs!AddStage = True Then rst.AddNew rst!CutColor = Me.txtco rst!CutYSGPO = Me.txtysgpo rst!CutTotal = Me.txtct rst!CutNumber = Me.txtcn rst!CutStyle = Me.CutStyle rst!CutStages = rs!Stages rst.Update End If rs.MoveNext Next a rs.Close: rst.Close Set rs = Nothing: Set rst = Nothing Me.Child15.Requery الملف مرفق الشايب Sample.accdb 656 kB · 3 downloads هذا هو المطلوب انا عاجز عن الشكر فعلا فليس لدي من كلام اقوله شكرا جدا جدا لك اخي العزيز 1
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.