ERP Nedir? | Türkiye'nin ERP Forum Platformu : Cari Bilgilere Tc No Dahil Etmek. http://www.erpne.org/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Fri, 17 Apr 2026 19:33:03 +0000 Tue, 02 Nov 2010 12:17:37 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 11.10 360 www.erpne.org/RSS_post_feed.asp?TID=2324 <![CDATA[ERP Nedir? | Türkiye'nin ERP Forum Platformu]]> http://www.erpne.org/forum_images/logotype.png http://www.erpne.org/ <![CDATA[Cari Bilgilere Tc No Dahil Etmek. : Conari bey, Evet o sekilde...]]> http://www.erpne.org/cari-bilgilere-tc-no-dahil-etmek_topic2324_post13173.html#13173 Yazar: unalh
Konu: 2324
Gönderim Zamanı: 02 Kasım 2010 Saat 12:17

Conari bey,
 
Evet o sekilde hallettim.
 
Çok tesekkür ederim.
]]> Tue, 02 Nov 2010 12:17:37 +0000 http://www.erpne.org/cari-bilgilere-tc-no-dahil-etmek_topic2324_post13173.html#13173 <![CDATA[Cari Bilgilere Tc No Dahil Etmek. : 35. field degilki son field iki...]]> http://www.erpne.org/cari-bilgilere-tc-no-dahil-etmek_topic2324_post13172.html#13172 Yazar: Conari
Konu: 2324
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.]]> Tue, 02 Nov 2010 09:33:42 +0000 http://www.erpne.org/cari-bilgilere-tc-no-dahil-etmek_topic2324_post13172.html#13172 <![CDATA[Cari Bilgilere Tc No Dahil Etmek. : Conari bay Dediginiz gibi...]]> http://www.erpne.org/cari-bilgilere-tc-no-dahil-etmek_topic2324_post13166.html#13166 Yazar: unalh
Konu: 2324
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]]> Mon, 01 Nov 2010 18:00:49 +0000 http://www.erpne.org/cari-bilgilere-tc-no-dahil-etmek_topic2324_post13166.html#13166 <![CDATA[Cari Bilgilere Tc No Dahil Etmek. : O Zaman cümleyi bu sekilde yapin. ...]]> http://www.erpne.org/cari-bilgilere-tc-no-dahil-etmek_topic2324_post13165.html#13165 Yazar: Conari
Konu: 2324
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.
]]> Mon, 01 Nov 2010 15:33:25 +0000 http://www.erpne.org/cari-bilgilere-tc-no-dahil-etmek_topic2324_post13165.html#13165 <![CDATA[Cari Bilgilere Tc No Dahil Etmek. : Conari bey, Bu bölümü ben yapabiliyorum. Sayfa2.Cells(i,...]]> http://www.erpne.org/cari-bilgilere-tc-no-dahil-etmek_topic2324_post13164.html#13164 Yazar: unalh
Konu: 2324
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)"
 
 
 
]]> Mon, 01 Nov 2010 15:21:00 +0000 http://www.erpne.org/cari-bilgilere-tc-no-dahil-etmek_topic2324_post13164.html#13164 <![CDATA[Cari Bilgilere Tc No Dahil Etmek. : Sayfa2.Cells(i, 14).Value = rs(18) Ekle...]]> http://www.erpne.org/cari-bilgilere-tc-no-dahil-etmek_topic2324_post13163.html#13163 Yazar: Conari
Konu: 2324
Gönderim Zamanı: 01 Kasım 2010 Saat 14:40

Sayfa2.Cells(i, 14).Value = rs(18)
 
Ekle sona.
]]> Mon, 01 Nov 2010 14:40:31 +0000 http://www.erpne.org/cari-bilgilere-tc-no-dahil-etmek_topic2324_post13163.html#13163 <![CDATA[Cari Bilgilere Tc No Dahil Etmek. : Merhaba Arkadaslar, Asagidakikod...]]> http://www.erpne.org/cari-bilgilere-tc-no-dahil-etmek_topic2324_post13159.html#13159 Yazar: unalh
Konu: 2324
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
 
 
]]> Mon, 01 Nov 2010 13:34:45 +0000 http://www.erpne.org/cari-bilgilere-tc-no-dahil-etmek_topic2324_post13159.html#13159