chexbox kullanımı hk.

[BYSERTTAS]

Herkese iyi günler.
Ekli dosyada detayını anlatmaya çalıştım becerebildiğim kadarıyla
Burada yapmak istediğim eğer ayın günü hafta sonuna geldiyse kullanıcı chexbox ile işlem yapamassın. yani cet atamassın. chexbox ın Change ine tek tek kod yazıyorum. acaba yanlışmı yapıyorum. chexboxların hepsine birden tek kodla uygulana bilirmi ? eğer hafta sonu yani cumartesi pazar günü ise chexbox işlem yapmasın istiyorum. chexbox 18 e kadar yaptım. belki daha kısa bir yolu vardır diye bilenlerin yardımcı olmasını istirham ederim.

 

[Korhan Ayhan]

Bir fonksiyon yazarak sorunu çözebilirsiniz.

Formunuzun kod bölümüne aşağıdaki kodu uygulayın.

Sub Kontrol(CBox As MSForms.CheckBox, CBox_Name As String)
    Dim No As Byte
   
    No = Replace(CBox_Name, "CheckBox", "")
   
    If Me.Controls("TextBox" & No).BackColor = vbRed Then
        CBox.Locked = True
        CBox = CBox.Visible = False
    Else
        If CBox.Value = True Then
            Me.Controls("TextBox" & No + 31) = "x"
        Else
            Me.Controls("TextBox" & No + 31) = ""
        End If
       
        If Me.Controls("TextBox" & No + 31) = "x" Then
            Me.Controls("TextBox" & No + 31).BackColor = vbGreen
        Else
            Me.Controls("TextBox" & No + 31).BackColor = vbYellow
        End If
    End If
End Sub

Sonra CheckBox1 için verdiğim aşağıdaki örneği diğer CheckBox'lara da uygulayın.

Private Sub CheckBox1_Click()
    Kontrol Me.CheckBox1, Me.CheckBox1.Name
End Sub