Skip to main content

AccessTr.neT


Excel Vba Formdaki Bilgilerde Değişiklik Yapıldıysa Güncellesin.

Oğuz Türkyılmaz
Oğuz Türkyılmaz
13
1359

Excel Vba Formdaki Bilgilerde Değişiklik Yapıldıysa Güncellesin.

#4
Berduş Hocam vakit ayırıp çözüm ürettiğiniz için çok teşekkür ederim. Güncellenen verilerin checkboxlardaki yansıması doğru yanlış şeklinde olmuş bu durumu

Kod:
Sub checkboxKontrol(ByVal son As Long)
    With ThisWorkbook.Worksheets("Ana_Sayfa")
        '.Unprotect sifre
        .Cells(son, 16).Value = IIf(CheckBox_BioClimatic.Value = True, "Evet", "Hayır")
        .Cells(son, 17).Value = IIf(CheckBox_CamBalkon.Value = True, "Evet", "Hayır")
        .Cells(son, 18).Value = IIf(CheckBox_CamTavan.Value = True, "Evet", "Hayır")
        .Cells(son, 19).Value = IIf(CheckBox_FotoselliKapi.Value = True, "Evet", "Hayır")
        .Cells(son, 20).Value = IIf(CheckBox_Giyotin.Value = True, "Evet", "Hayır")
        .Cells(son, 21).Value = IIf(CheckBox_İsicamliSurme.Value = True, "Evet", "Hayır")
        .Cells(son, 22).Value = IIf(CheckBox_Pergola.Value = True, "Evet", "Hayır")
        .Cells(son, 23).Value = IIf(CheckBox_RuzgarKirici.Value = True, "Evet", "Hayır")
        .Cells(son, 24).Value = IIf(CheckBox_TavanPerdesi.Value = True, "Evet", "Hayır")
        .Cells(son, 25).Value = IIf(CheckBox_ZipPerde.Value = True, "Evet", "Hayır")
        '.Protect sifre
    End With
End Sub


kodlarıyla eğer sonuçlardaki checkbox değeri true ise evet değilse hayır şeklinde hücrelere yaz demiştik.
Güncelleme işlemi gerçekleştikten sonra checkboxlardaki hücrelere yazılan değerler doğru yanlış şeklinde sirayet etmiş. Bu durumu düzeltmek için ne yapabilirim.

[Resim: do.php?img=10923]
Access Çekirgesi 
[Resim: img-cray.gif]


Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
RE: Excel Vba Formdaki Bilgilerde Değişiklik Yapıldıysa Güncellesin. - Yazar: Oğuz Türkyılmaz - 19/04/2021, 21:23