Doğru yada yanlış olayı ile güncelleme kodu alakasızdı bildiğim.Normalde IIF mantığıda doğru birazdan bakarım yinede
Excel Vba Formdaki Bilgilerde Değişiklik Yapıldıysa Güncellesin.
Alttaki gibi yapınca evet yada hayır olrarak güncelledi güncelleme butonunda.
.Cells(Guncelle, 19) = IIf(CheckBox_FotoselliKapi.Value = True, "Evet", "Hayýr")
Güncelleme butonunu ayarladım.İff yerine alttaki gibi sub yaptım.
Call checkboxxGuncelle(Guncelle, 16, CheckBox_BioClimatic) '16 demek PHP Kod:
Sub checkboxxGuncelle(deger As Long, sutun As Byte, checboxad As MSForms.CheckBox)
With ThisWorkbook.Worksheets("Ana_Sayfa")
If checboxad.Value = True Then
.Cells(deger, sutun) = "Evet"
ElseIf checboxad.Value = False Then
.Cells(deger, sutun) = "Hayýr"
End If
End With
End Sub
WINPERAX SON_hy.rar
(Dosya Boyutu: 143,05 KB | İndirme Sayısı: 1)
Feraz hocam IIF şeklinde olan kodu anlamam daha kolay. Bu yüzden onu kullanmıştım zaten sorunsuz çalışıyor. Bir sorun olmaz ise onu kullanayım.
Access Çekirgesi
![[Resim: img-cray.gif]](https://www.accesstr.net/images/smilies/img-cray.gif)
Kodları biraz inceleyince alttakileri silip sadece checkboxKontrol Guncelle yazmanız yeterli aslında.
Çünkü checkboxKontrol adında sub var.
![[Resim: do.php?img=10925]](https://resim.accesstr.net/do.php?img=10925)
Aynışekilde btn_KayitEkle_Click kodundaki en alttaki kodları silip
yazmanız yeterli
Çünkü checkboxKontrol adında sub var.
Kod:
.Cells(Guncelle, 16) = CheckBox_BioClimatic.Value
.Cells(Guncelle, 17) = CheckBox_CamBalkon.Value
.Cells(Guncelle, 18) = CheckBox_CamTavan.Value
.Cells(Guncelle, 19) = CheckBox_FotoselliKapi.Value
.Cells(Guncelle, 20) = CheckBox_Giyotin.Value
.Cells(Guncelle, 21) = CheckBox_IsicamliSurme.Value
.Cells(Guncelle, 22) = CheckBox_Pergola.Value
.Cells(Guncelle, 23) = CheckBox_RuzgarKirici.Value
.Cells(Guncelle, 24) = CheckBox_TavanPerdesi.Value
.Cells(Guncelle, 25) = CheckBox_ZipPerde.ValueAynışekilde btn_KayitEkle_Click kodundaki en alttaki kodları silip
Kod:
checkboxKontrol SonSatir .Cells(SonSatir, 16) = CheckBox_BioClimatic.Value
.Cells(SonSatir, 17) = CheckBox_CamBalkon.Value
.Cells(SonSatir, 18) = CheckBox_CamTavan.Value
.Cells(SonSatir, 19) = CheckBox_FotoselliKapi.Value
.Cells(SonSatir, 20) = CheckBox_Giyotin.Value
.Cells(SonSatir, 21) = CheckBox_İsicamliSurme.Value
.Cells(SonSatir, 22) = CheckBox_Pergola.Value
.Cells(SonSatir, 23) = CheckBox_RuzgarKirici.Value
.Cells(SonSatir, 24) = CheckBox_TavanPerdesi.Value
.Cells(SonSatir, 25) = CheckBox_ZipPerde.Value
Konuyu Okuyanlar: 1 Ziyaretçi
