Cari Bilgilere Tc No Dahil Etmek.

   Merhaba Arkadaslar,

Asagidaki kod ile excel'e cari bilgilerini aliyorum fakat vergi no kismini buraya nasil dahil ederim.
Kodda nasil bir degisiklik yapmaliyiz.

Ilginize tesekkür ederim.

TBLCASABITEK

.
.
.
.
.
End With

    SqlText = "SELECT*"
    SqlText = SqlText + " FROM TBLCASABIT"
(A.CARI_KOD=B.CARI_KOD)"

    rs.Open SqlText, conn, adOpenStatic, adLockReadOnly
    Sayfa2.Range("A2:M10000").ClearContents
    Sayfa2.Activate
    i = 2

   Application.ScreenUpdating = False

    Do While Not rs.EOF

        Sayfa2.Cells(i, 2).Value = rs(2) '
        Sayfa2.Cells(i, 3).Value = rs(6)
        Sayfa2.Cells(i, 4).Value = rs(14)
        Sayfa2.Cells(i, 5).Value = rs(4)
        Sayfa2.Cells(i, 6).Value = rs(15)
        Sayfa2.Cells(i, 7).Value = rs(3)
        Sayfa2.Cells(i, 8).Value = rs(18)
        Sayfa2.Cells(i, 9).Value = rs(16)
        Sayfa2.Cells(i, 10).Value = rs(17)
        'Sayfa4.Cells(i, 10).Value = rs(8)
        Sayfa2.Cells(i, 12).Value = rs(46)
        Sayfa2.Cells(i, 13).Value = rs(47)
        rs.MoveNext
        i = i + 1

    Loop
    rs.Close
    conn.Close
    Set rs = Nothing
    Set conn = Nothing
    sira
    Application.ScreenUpdating = True

End Sub

Yazar	Mesaj Konu Arama Topic Seçenekleri Yanıt Yaz Yeni Konu Oluştur Konuyu Yazdır Çeviri Konu
unalh Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Üye Kayıt Tarihi: 08 Ekim 2009 Durum: Aktif Değil Puanlar: 0	Mesaj Seçenekleri Yanıt Yaz Alıntı unalh Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Konu: Cari Bilgilere Tc No Dahil Etmek. Gönderim Zamanı: 01 Kasım 2010 Saat 13:34
	Merhaba Arkadaslar, Asagidaki kod ile excel'e cari bilgilerini aliyorum fakat vergi no kismini buraya nasil dahil ederim. Kodda nasil bir degisiklik yapmaliyiz. Ilginize tesekkür ederim. TBLCASABITEK . . . . . End With SqlText = "SELECT*" SqlText = SqlText + " FROM TBLCASABIT" (A.CARI_KOD=B.CARI_KOD)" rs.Open SqlText, conn, adOpenStatic, adLockReadOnly Sayfa2.Range("A2:M10000").ClearContents Sayfa2.Activate i = 2 Application.ScreenUpdating = False Do While Not rs.EOF Sayfa2.Cells(i, 2).Value = rs(2) ' Sayfa2.Cells(i, 3).Value = rs(6) Sayfa2.Cells(i, 4).Value = rs(14) Sayfa2.Cells(i, 5).Value = rs(4) Sayfa2.Cells(i, 6).Value = rs(15) Sayfa2.Cells(i, 7).Value = rs(3) Sayfa2.Cells(i, 8).Value = rs(18) Sayfa2.Cells(i, 9).Value = rs(16) Sayfa2.Cells(i, 10).Value = rs(17) 'Sayfa4.Cells(i, 10).Value = rs(8) Sayfa2.Cells(i, 12).Value = rs(46) Sayfa2.Cells(i, 13).Value = rs(47) rs.MoveNext i = i + 1 Loop rs.Close conn.Close Set rs = Nothing Set conn = Nothing sira Application.ScreenUpdating = True End Sub

Conari Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Kidemli Üye Kayıt Tarihi: 04 Mayıs 2007 Konum: YSTANBUL Durum: Aktif Değil Puanlar: 3513	Mesaj Seçenekleri Yanıt Yaz Alıntı Conari Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 01 Kasım 2010 Saat 14:40
	Sayfa2.Cells(i, 14).Value = rs(18) Ekle sona.
	Netsisden vazgeçemiyorum. Beni engelliyor..

unalh Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Üye Kayıt Tarihi: 08 Ekim 2009 Durum: Aktif Değil Puanlar: 0	Mesaj Seçenekleri Yanıt Yaz Alıntı unalh Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 01 Kasım 2010 Saat 15:21
	Conari bey, Bu bölümü ben yapabiliyorum. Sayfa2.Cells(i, 14).Value = rs(18) ------- Yapmak istedigim buraya TBLCASABITEK tablosundan da verileri çekmek ve ayni sayfada listelemek End With SqlText = "SELECT*" SqlText = SqlText + " FROM TBLCASABIT" (A.CARI_KOD=B.CARI_KOD)"

Conari Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Kidemli Üye Kayıt Tarihi: 04 Mayıs 2007 Konum: YSTANBUL Durum: Aktif Değil Puanlar: 3513	Mesaj Seçenekleri Yanıt Yaz Alıntı Conari Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 01 Kasım 2010 Saat 15:33
	O Zaman cümleyi bu sekilde yapin. SqlText = "SELECT *" SqlText = SqlText + " FROM TBLCASABIT A, TBLCASABITEK B WHERE " SqlText = SqlText + (A.CARI_KOD=B.CARI_KOD)" Son field i rs() Olarak eklersen TCkimlik orada.
	Netsisden vazgeçemiyorum. Beni engelliyor..

unalh Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Üye Kayıt Tarihi: 08 Ekim 2009 Durum: Aktif Değil Puanlar: 0	Mesaj Seçenekleri Yanıt Yaz Alıntı unalh Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 01 Kasım 2010 Saat 18:00
	Conari bay Dediginiz gibi degistirdim fakat TBLCASABITEK tablosundan veri almadi tüm verileri TBLCASABIT tablosundan aldi. Yapmak istedigim böyle birsey http://img183.imageshack.us/img183/8531/listed.jpg End With SqlText = "SELECT*" SqlText = SqlText + " FROM TBLCASABIT A, TBLCASABITEK B WHERE " SqlText = SqlText + "(A.CARI_KOD = B.CARI_KOD)" rs.Open SqlText, conn, adOpenStatic, adLockReadOnly Sayfa2.Range("A2:M10000").ClearContents Sayfa2.Activate i = 2 Application.ScreenUpdating = False Do While Not rs.EOF Sayfa2.Cells(i, 2).Value = rs(2) ' Sayfa2.Cells(i, 3).Value = rs(6) Sayfa2.Cells(i, 4).Value = rs(14) Sayfa2.Cells(i, 5).Value = rs(4) Sayfa2.Cells(i, 6).Value = rs(15) Sayfa2.Cells(i, 7).Value = rs(3) Sayfa2.Cells(i, 8).Value = rs(18) Sayfa2.Cells(i, 9).Value = rs(16) Sayfa2.Cells(i, 10).Value = rs(17) 'Sayfa4.Cells(i, 10).Value = rs(8) Sayfa2.Cells(i, 12).Value = rs(46) Sayfa2.Cells(i, 13).Value = rs(47) Sayfa2.Cells(i, 15).Value = rs(35) 'bu satiri ekledim rs.MoveNext i = i + 1 Loop rs.Close conn.Close Set rs = Nothing Set conn = Nothing sira Application.ScreenUpdating = True End Sub Düzenleyen unalh - 01 Kasım 2010 Saat 18:06

Conari Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Kidemli Üye Kayıt Tarihi: 04 Mayıs 2007 Konum: YSTANBUL Durum: Aktif Değil Puanlar: 3513	Mesaj Seçenekleri Yanıt Yaz Alıntı Conari Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 02 Kasım 2010 Saat 09:33
	35. field degilki son field iki tabloda kaç field varsa toplami. 80 90 arasi bir sey olur.
	Netsisden vazgeçemiyorum. Beni engelliyor..

unalh Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Üye Kayıt Tarihi: 08 Ekim 2009 Durum: Aktif Değil Puanlar: 0	Mesaj Seçenekleri Yanıt Yaz Alıntı unalh Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 02 Kasım 2010 Saat 12:17
	Conari bey, Evet o sekilde hallettim. Çok tesekkür ederim.