Tabloda 'evet/hayır' Veri Tiplerini Excel' E Çekme Hk.

1 2
06/02/2025, 15:57

truhi

Merhabalar,

Access tablosunda veri tipleri Ekte sunulan ekran görüntülerinde de görüleceği üzere;
"Evet/Hayır" olan verileri aşağıdaki kod ile Excel' ortamına çekmek istersek, işaretli olmayanları da Evet olarak getiriyor.
Özetle Hayır olanları da Evet gibi getiriyor
burada nerede hata yapıyor olabilirim?

Yardımlarınız için şimdiden teşekkürler,
iyi Çalışmalar.

Kod:
SQL = "Select * from tbl_Customers"
        SQL = SQL & " Where id= " & cId

        rs.Open SQL, cn, 1, 3

            txtClientName = rs!FirmaUnvani
            txtServiceProcess = rs!HizmetSureci
            cbServiceType.value = rs!HizmetTuru
            txtRateInfo.value = rs!OranTutarBilgisi
            
            txtPostScript.value = rs!Notes

            
            If rs!RaporYazilacakmi = True Then f1 = "E"
            If rs!DahaOnceRaporVarmi = True Then f2 = "E"
            If rs!BagliOrtaklik = True Then f3 = "E"
            If rs!ilkDefainceleniyor = True Then f4 = "E"
            If rs!DenetimKonsolidemiSunulacak = True Then f5 = "E"
06/02/2025, 18:14

berduş

Kodun tamamını görmeden kesin bir şey söylemesi zor ama
True iken E yap var ama false ise ne olacağına dair bir atama yok.
06/02/2025, 19:15

truhi

(06/02/2025, 18:14)berduş yazdı: Kodun tamamını görmeden kesin bir şey söylemesi zor ama
True iken E yap var ama false ise ne olacağına dair bir atama yok.

"False" iken bir şey yapmayacak Hocam;

Kod:
dim f1, f2, f3, f4, f5
.......................

f1,f2,f3,f4,f5 değerleri zaten başta boş olduğu için "False" durumunda bu değerler boş olarak kalacak

teşekkürler,
iyi akşamalar.
06/02/2025, 20:20

berduş

Then f1 = "E" Else f1="" gibi vır atama ise yarayabilir
Yada dim f1, f2 vs vs tanımlarken as string yazarak türün metin olmasını sağlayabilirsiniz
06/02/2025, 20:24

truhi

(06/02/2025, 20:20)berduş yazdı: Then f1 = "E" Else f1="" gibi vır atama ise yarayabilir
Yada dim f1, f2 vs vs tanımlarken as string yazarak türün metin olmasını sağlayabilirsiniz

Şimdi deneyerek bilgi veriyorum Hocam
06/02/2025, 21:03

truhi

(06/02/2025, 20:24)truhi yazdı:
(06/02/2025, 20:20)berduş yazdı: Then f1 = "E" Else f1="" gibi vır atama ise yarayabilir
Yada dim f1, f2 vs vs tanımlarken as string yazarak türün metin olmasını sağlayabilirsiniz

Şimdi deneyerek bilgi veriyorum Hocam

Tamamdır Hocam Sorun çözüldü, herşey için teşekkürler,
iyi akşamlar.
1 2