(11/03/2021, 01:06)feraz yazdı: Zaman bulmuşken kodlarınızı düzenledim tekrar eden kodları tek sub içine aldım ve kısaldı.
Düzelttiklerimden biride örneğin  alttaki "" yerine False yaptım.Zaten onuda soracaktınız silmede felan neden checkboxların tiki kalkmıyor diye

CheckBox_AlbertGenau.Value = ""

CheckBox_AlbertGenau.Value = False

Feraz Hocam Çok Teşekkür ederim. Sadece aşağıdaki Fonksiyon kodlaması ters olmuş. birinci satır if değerini 1'e
2. satır if değerini 0 'a çevirdim. Sorun kalmadı.


Function Evet_Hayir(deger) As Byte
' 0 demek checkboxtaki tik olmayacak 1 se olacak demektir

If deger = "Evet" Then Evet_Hayir = 0
If deger = "Hayır" Then Evet_Hayir = 1

End Function