اذهب الي المحتوي
أوفيسنا

مساعده في عمل chekbox واضافه البيانات المحتاره فيه الي الحقول


إذهب إلى أفضل إجابة Solved by شايب,

الردود الموصى بها

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

لدي نموذج به بيانات ويوجد على الجانب الايمن للنموذج جدول به بعض البيانات اريد عندما اقوم بالتعليم على احد البيانات او مجموعه منهم يقوم بالاضاففي الSubform

image.png.29690b08a5af075b7b3ee63e0403918f.png

 

مرفق قاعده البيانات 

Sample.rar

رابط هذا التعليق
شارك

وعليكم السلام..

عن اذن استاذي @ابوخليل

ممكن تشرح لنا قليلا عن مشروعك ..لان اختلط الامر عندي ...

الذي فهمته ان النموذج الرئيسي عبارة عن بطاقة صنف ...تقوم بأدخال المعلومات من خلال مربعات النص ليتم حفضها في الجدول StageBundleUPC

السؤال...ماهي علاقة النموذج Stages subform ؟

ممكن الاستفادة منه في فاتورة المبيعات ..عند الضغط على اي صنف يتم الاضافة الى الفاتورة  

رابط هذا التعليق
شارك

اشكركم اخواني الكرام علي تعبكم معي

مشروعي باختصار 

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

بالنسبه لStage_subform قومت بوضعه لمعرفه الفكره التي اريدها فقط لاني اريد وضع مربع قابل للزياده يوجده به مراحل وكل مرحله بجانبها مربع اختيار 

رابط هذا التعليق
شارك

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

image.png.d9685c19ab44dceb49099dfe93f395a1.png

تم تعديل بواسطه Mohamed Khaled Galal
رابط هذا التعليق
شارك

  • أفضل إجابة
منذ ساعه, 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

  • Thanks 1
رابط هذا التعليق
شارك

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

هذا هو المطلوب

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

شكرا جدا جدا لك اخي العزيز 

  • Like 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information