تخزين قيم checkboxes داخل حقل واحد

[haitham elareny]

كيف يمكن تخزين قيم مربعات الاختيار داخل حقل واحد بدلا من انشاء حقل لكل مربعه اختيار

ManyCheckboxValues.accdb

[ابوخليل]

تفضل

Private Sub cmdsave_Click()
     Dim c1, c2, c3, c4, c5, cc As String
     Dim numinfo As String  
     cc = "00"
     If Me.chk1 = True Then c1 = "1" Else c1 = "0"
     If Me.chk2 = True Then c2 = "1" Else c2 = "0"
     If Me.chk3 = True Then c3 = "1" Else c3 = "0"
     If Me.chk4 = True Then c4 = "1" Else c4 = "0"
     If Me.chk5 = True Then c5 = "1" Else c5 = "0"
     If Not IsNull(Me.txtfasthrs) Then cc = Me.txtfasthrs Else cc = "00"
     numinfo = Format(c1 & c2 & c3 & c4 & c5 & cc, "0000000")
     Me.moreinfo = numinfo
     
     With rs
     .AddNew
     ![pname] = txtpname
     ![moreinfo] = numinfo
     .Update
End With
lstData.Requery
End Sub

 

 

 

ManyCheckboxValues3.rar

[AbuuAhmed]

دالة لتجمع القيم
وإجراء لتوزيع القيم
 

Sub SplitValues()
    Dim Box As Byte
    
    For Box = 1 To 5
       Me.Controls("chk" & Box) = Mid(Me.moreinfo, Box, 1) * -1
    Next Box
End Sub


Function JoinValues()
    Dim Box As Byte
    
    For Box = 1 To 5
       JoinValues = JoinValues & Abs(Nz(Me.Controls("chk" & Box), 0))
    Next Box
End Function

 

تم تعديل يوليو 25, 2023 بواسطه AbuuAhmed

[دروب مبرمج]

عمالقة البرمجة

@ابوخليل   @AbuuAhmed

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

مبدعين بكل ما تعنيه الكلمة

[شايب]

23 ساعات مضت, ابوخليل said:

تفضل

 

20 ساعات مضت, AbuuAhmed said:

دالة لتجمع القيم
وإجراء لتوزيع القيم

اخونا الشايب يقول من الصعب عليه ان يجاري الاساتذة الكبار في مشاركاتهم

مع ذلك يرغب في طرح طريقة مشابهة لطريقة المعلم ابوخليل ولكن بدون تسمية عناصر الاختيار والاكتفاء بقيمة الكائن 106

وباقي الامر هو نفس كود استاذنا الفاضل

Dim ctl As Control
Dim t, x As String
x = Nz([txtfasthrs], "00")
For Each ctl In Me.Form.Controls
If (ctl.ControlType = 106) Then
If ctl.Value = True Then t = t & "1" Else t = t & "0"
End If
Next
Me.moreinfo = Format(t & x, "0000000")
     With rs
     .AddNew
     ![pname] = txtpname
     ![moreinfo] = Me.moreinfo
     .Update
End With
lstData.Requery

اما استاذنا ابو احمد ماشاء الله تبارك الله فلديه طريقة تدرس في كتابة الاكواد

اخونا شايب 🌹

[haitham elareny]

الف شكر اساتذتنا الكرام ولكن ظهرت مشكله عند التجريب ...فى حالة txtfasthrs فارغ يظهر على يسار الرقم (0011111) وفى حالة تم تسجيل txtfasthrsوليكن ٥ يظهر 0على يسار الرقم و٥ على اليمين وفى حالة كان رقمين وليكن ١٧ يظهر على يمين الرقم ....مما يصعب معه الإشارة إلى الكنترول عند الوقوف على listbox 

[AbuuAhmed]

لم أفهم المشكلة الجديدة،
جرب المثال بعد التعديلات الجديدة.

ManyCheckboxValues_02.accdb

[ابوخليل]

8 ساعات مضت, haitham elareny said:

الف شكر اساتذتنا الكرام ولكن ظهرت مشكله عند التجريب ...فى حالة txtfasthrs فارغ يظهر على يسار الرقم (0011111) وفى حالة تم تسجيل txtfasthrsوليكن ٥ يظهر 0على يسار الرقم و٥ على اليمين وفى حالة كان رقمين وليكن ١٧ يظهر على يمين الرقم ....مما يصعب معه الإشارة إلى الكنترول عند الوقوف على listbox 

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

قمت بتحسين العرض

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

ManyCheckboxValues4.rar