ERP ve Excel - Cari Bilgilere Tc No Dahil Etmek.

Cari Bilgilere Tc No Dahil Etmek.

Nereden Yazdırıldığı: ERP Nedir? | Türkiye'nin ERP Forum Platformu
Kategori: ERP Genel
Forum Adı: ERP ve Excel
Forum Tanımlaması: ERP'den Excel'e Veri Çekmek ve Excel İle İlgili Bilgiler ve Sorular İçin...
URL: http://www.erpne.org/forum_posts.asp?TID=2324
Tarih: 22 Kasım 2024 Saat 00:57
Program Versiyonu: Web Wiz Forums 11.10 - http://www.webwizforums.com

Konu: Cari Bilgilere Tc No Dahil Etmek.

Mesajı Yazan: unalh
Konu: Cari Bilgilere Tc No Dahil Etmek.
Mesaj Tarihi: 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

Cevaplar:

Mesajı Yazan: Conari
Mesaj Tarihi: 01 Kasım 2010 Saat 14:40

Sayfa2.Cells(i, 14).Value = rs(18)

Ekle sona.

-------------
Netsisden vazgeçemiyorum. Beni engelliyor..

Mesajı Yazan: unalh
Mesaj Tarihi: 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)"

Mesajı Yazan: Conari
Mesaj Tarihi: 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..

Mesajı Yazan: unalh
Mesaj Tarihi: 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 - 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

Mesajı Yazan: Conari
Mesaj Tarihi: 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..

Mesajı Yazan: unalh
Mesaj Tarihi: 02 Kasım 2010 Saat 12:17

Conari bey,

Evet o sekilde hallettim.

Çok tesekkür ederim.