Private Sub bayrammesaisi_Click()
If bayrammesaisi.Value = False Then
If vardiyasayısı.Value <> "" Then
bayrammesaisi.Value = True
MsgBox "VARDİYA PERSONELİ TANIMLI İKEN İPTAL EDEMESSİNİZ ", , "Mantıksal Hata!"
Else
bayrammesaisi.Caption = "BAYRAM MESAİSİ KESİLMEYECEK"
bayramgünsayısı.visible = False
vardiyasayısı.Visible = False
toplamgüvenlik.Visible = False
Exit Sub
End If
End If
bayrammesaisi.Caption = "BAYRAM MESAİSİ KESİLECEK"
bayramgünsayısı.visible = True
vardiyasayısı.Visible = True
toplamgüvenlik.Visible = True
End Sub
Diye bir kodu uyarladım ancak "bayramgünsayısı" hatalı diyor ve şayet bu değeri "value" yaparsam doğru diyor ancak normal çalışmıyor açık kapadığımda kutular olması gerektiği gibi çalışmıyor bayram mesaisi var dediklerimde dahil görünmüyor ancak tekrar caption yaparsam normal görünüyor her açıp kapadığımda bozuluyor.
nerede hatam var yardımcı olurmusunuz.
If bayrammesaisi.Value = False Then
If vardiyasayısı.Value <> "" Then
bayrammesaisi.Value = True
MsgBox "VARDİYA PERSONELİ TANIMLI İKEN İPTAL EDEMESSİNİZ ", , "Mantıksal Hata!"
Else
bayrammesaisi.Caption = "BAYRAM MESAİSİ KESİLMEYECEK"
bayramgünsayısı.visible = False
vardiyasayısı.Visible = False
toplamgüvenlik.Visible = False
Exit Sub
End If
End If
bayrammesaisi.Caption = "BAYRAM MESAİSİ KESİLECEK"
bayramgünsayısı.visible = True
vardiyasayısı.Visible = True
toplamgüvenlik.Visible = True
End Sub
Diye bir kodu uyarladım ancak "bayramgünsayısı" hatalı diyor ve şayet bu değeri "value" yaparsam doğru diyor ancak normal çalışmıyor açık kapadığımda kutular olması gerektiği gibi çalışmıyor bayram mesaisi var dediklerimde dahil görünmüyor ancak tekrar caption yaparsam normal görünüyor her açıp kapadığımda bozuluyor.
nerede hatam var yardımcı olurmusunuz.