تعديل كود تحديد رقم الحجرة عند اختيار القسم

[بلال اليامين]

السلام عليكم

لقد قمت بوضع  كود تحديد    والغاء التحديد

اريد عند اختيار القسم  والضغط على ايقونة تحديد يظهر رقم الحجرة 

اليكم البرنامج والشرح

 

sssssssss.accdb

[Foksh]

وعليكم السلام ورحمة الله وبركاته ..

هل هذا هو المطلوب فعلاً ؟؟

فقط هذا الكود في حدث بعد التحديث للشيك بوكس :-

Private Sub CHK_AfterUpdate()
    Dim GradeValue As String
    If Me.CHK = -1 Then
        Select Case Me.نص74
            Case "أولى"
                GradeValue = "1"
            Case "ثانية"
                GradeValue = "2"
            Case "ثالثة"
                GradeValue = "3"
            Case "رابعة"
                GradeValue = "4"
            Case "خامسة"
                GradeValue = "5"
            Case "سادسة"
                GradeValue = "6"
            Case Else
                GradeValue = Null
        End Select
        Me.نص76 = GradeValue
    Else
        Me.نص76 = Null
    End If
End Sub

 

sssssssss.zip