Excel'den Müşteri Siparişi Ekleme

   Kolay Gelsin Excel'de Olan mü?teri sipari?i kalemlerini Netsis'e aktarmak istiyordum,
deneme olarak stok sabit tablosuna kayyt ekleme ile ba?ladym,
ama ba?aryly olamadym,
stok sabite kayyt ekleme kodlarym ?öyle;
===========================
DefStr S
Sub updateSQL()
Dim Cnn As Object
Dim vtSql
Dim say%
On Error Resume Next
 sat = [a65536].End(3).Row
Set Cnn = CreateObject("ADODB.Connection")
Set cmdCommand = CreateObject("ADODB.Command")
strServer = Sheets("login").Range("n4").Value
strDatabase = Sheets("login").Range("n1").Value
strKullanycy = Sheets("login").Range("n2").Value
strParola = Sheets("login").Range("n3").Value

   Cnn.Open "Provider=SQLOLEDB; Data Source=" & strServer & ";Autotranslate=true ;Initial Catalog=" & strDatabase & "; User ID=" & strKullanycy & "; Password=" & strParola & ";"

 Set cmdCommand.ActiveConnection = Cnn
 For say = 2 To sat

   With cmdCommand
       .CommandText = "INSERT INTO TBLSTSABIT  (SUBE_KODU,STOK_KODU,ISLETME_KODU) VALUES ('" & Cells(say, 1) & "'),('" & Cells(say, 2) & "'),('" & Cells(say, 3) & "')"
       .CommandType = adCmdText
       .Execute
  End With
Next

   cmdCommand.Close
   Cnn.Close
   Set cmdCommand = Nothing
    Set Cnn = Nothing

End Sub
=====================================

Kodlaryn neresinde hatam var acaba yardymcy olabilir misiniz?

Düzenleyen sessizkule - 04 Aralık 2015 Saat 14:08

Yazar	Mesaj Konu Arama Topic Seçenekleri Yanıt Yaz Yeni Konu Oluştur Konuyu Yazdır Çeviri Konu
sessizkule Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Üye Kayıt Tarihi: 24 Aralık 2008 Konum: Malatya Durum: Aktif Değil Puanlar: 54	Mesaj Seçenekleri Yanıt Yaz Alıntı sessizkule Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Konu: Excel'den Müşteri Siparişi Ekleme Gönderim Zamanı: 04 Aralık 2015 Saat 14:07
	Kolay Gelsin Excel'de Olan mü?teri sipari?i kalemlerini Netsis'e aktarmak istiyordum, deneme olarak stok sabit tablosuna kayyt ekleme ile ba?ladym, ama ba?aryly olamadym, stok sabite kayyt ekleme kodlarym ?öyle; =========================== DefStr S Sub updateSQL() Dim Cnn As Object Dim vtSql Dim say% On Error Resume Next sat = [a65536].End(3).Row Set Cnn = CreateObject("ADODB.Connection") Set cmdCommand = CreateObject("ADODB.Command") strServer = Sheets("login").Range("n4").Value strDatabase = Sheets("login").Range("n1").Value strKullanycy = Sheets("login").Range("n2").Value strParola = Sheets("login").Range("n3").Value Cnn.Open "Provider=SQLOLEDB; Data Source=" & strServer & ";Autotranslate=true ;Initial Catalog=" & strDatabase & "; User ID=" & strKullanycy & "; Password=" & strParola & ";" Set cmdCommand.ActiveConnection = Cnn For say = 2 To sat With cmdCommand .CommandText = "INSERT INTO TBLSTSABIT (SUBE_KODU,STOK_KODU,ISLETME_KODU) VALUES ('" & Cells(say, 1) & "'),('" & Cells(say, 2) & "'),('" & Cells(say, 3) & "')" .CommandType = adCmdText .Execute End With Next cmdCommand.Close Cnn.Close Set cmdCommand = Nothing Set Cnn = Nothing End Sub ===================================== Kodlaryn neresinde hatam var acaba yardymcy olabilir misiniz? Düzenleyen sessizkule - 04 Aralık 2015 Saat 14:08

mbaykan Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Kidemli Üye Kayıt Tarihi: 06 Nisan 2007 Konum: izmir Durum: Aktif Değil Puanlar: 1181	Mesaj Seçenekleri Yanıt Yaz Alıntı mbaykan Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 04 Aralık 2015 Saat 15:44
	mevcut stok kodu'nu INSERT edemezsiniz. o kod da hata alyrsynyz tabloya sadece STOK_KODU kaydetmek yeterlidir, ama gerçekte Stok Ady, Aly?/Saty? kdv oranlary, (Muhasebe entegre ise) muhasebe detay kodu, TBLSTSABITEK tablosuna da kayyt etmek gerekir kodda hata göremedim
	Mehmet Baykan

sessizkule Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Üye Kayıt Tarihi: 24 Aralık 2008 Konum: Malatya Durum: Aktif Değil Puanlar: 54	Mesaj Seçenekleri Yanıt Yaz Alıntı sessizkule Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 04 Aralık 2015 Saat 15:50
	Sayyn Mbaykan; VALUES ('" & Cells(say, 1) & "'),('" & Cells(say, 2) & "'),('" & Cells(say, 3) & "')" kysmyny VALUES ('" & Cells(say, 1) & "','" & Cells(say, 2) & "','" & Cells(say, 3) & "')" ?eklinde parantezleri kaldyrynca oldu. Satycy Sipari?lerini excel'den almaya çaly?yyorum. Elinizde hazyrda böyle bir çaly?manyz varmyydy. Te?ekkür ederim Yyi çaly?malar.

mbaykan Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Kidemli Üye Kayıt Tarihi: 06 Nisan 2007 Konum: izmir Durum: Aktif Değil Puanlar: 1181	Mesaj Seçenekleri Yanıt Yaz Alıntı mbaykan Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(1) Alıntı Cevapla Gönderim Zamanı: 04 Aralık 2015 Saat 16:04
	var. ama yeni Stok ve Yeni cari kayyt seçenekleri yok. (yazmadym henüz) mevcut stok/cari'niz le çaly?abilir https://drive.google.com/open?id=0B69Mq46vmrVhN01oSndpNmRHaTg dosyayy alynca uzaktan ba?lanty bilgilerinizi özel mesajla bildirirseniz kullanyma almanyza yardymcy olabilirim
	Mehmet Baykan

sessizkule Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Üye Kayıt Tarihi: 24 Aralık 2008 Konum: Malatya Durum: Aktif Değil Puanlar: 54	Mesaj Seçenekleri Yanıt Yaz Alıntı sessizkule Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 04 Aralık 2015 Saat 16:30
	Sayyn Mbaykan Çok Te?ekkür Ederim Kullanyma Aldym Çok Güzel Çaly?ma Olmu? Ayryca.

mbaykan Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Kidemli Üye Kayıt Tarihi: 06 Nisan 2007 Konum: izmir Durum: Aktif Değil Puanlar: 1181	Mesaj Seçenekleri Yanıt Yaz Alıntı mbaykan Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 04 Aralık 2015 Saat 16:33
	son sayfadaki dbo.tfTRK isimli fonksiyonu çaly?aca?ynyz veritabanynda yarattynyz my? yaratmadyysanyz sorun ya?arsynyz (çaly?maz)
	Mehmet Baykan

sessizkule Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Üye Kayıt Tarihi: 24 Aralık 2008 Konum: Malatya Durum: Aktif Değil Puanlar: 54	Mesaj Seçenekleri Yanıt Yaz Alıntı sessizkule Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 04 Aralık 2015 Saat 16:43
	Sayyn Mbaykan dbo.tfTRK kysmynda hata veriyor. bu fonksiyonu olu?turmam my gerekiyor.

mbaykan Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Kidemli Üye Kayıt Tarihi: 06 Nisan 2007 Konum: izmir Durum: Aktif Değil Puanlar: 1181	Mesaj Seçenekleri Yanıt Yaz Alıntı mbaykan Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 04 Aralık 2015 Saat 16:45
	son sayfada yazdy?ym kod, ALTER FUNCTION ile ba?lyyor siz bunu CREATE FUNCTION olarak de?i?tirip çaly?tyryn
	Mehmet Baykan

sessizkule Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Üye Kayıt Tarihi: 24 Aralık 2008 Konum: Malatya Durum: Aktif Değil Puanlar: 54	Mesaj Seçenekleri Yanıt Yaz Alıntı sessizkule Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 04 Aralık 2015 Saat 16:58
	Eme?inize Sa?lyk Mehmet Bey, Yyi çaly?malar.

frkszgn Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 19 Mart 2016 Konum: İzmir Durum: Aktif Değil Puanlar: 1	Mesaj Seçenekleri Yanıt Yaz Alıntı frkszgn Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 19 Mart 2016 Saat 09:41
	Merhaba arkadaslar; Netsis'te müsteri siparisi sablonu olusturup Excel'den veri aktarmam gerekiyor. Yardimci olabilecek bir arkadas var midir ücreti karsiliginda? 0 (554) 775 36 13 frk.szgn@gmail.com

mbaykan Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Kidemli Üye Kayıt Tarihi: 06 Nisan 2007 Konum: izmir Durum: Aktif Değil Puanlar: 1181	Mesaj Seçenekleri Yanıt Yaz Alıntı mbaykan Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 23 Mart 2016 Saat 09:06
	neden mail ve telefonlara cevap vermiyorsunuz?. Arasaniz da yardim alamayacaginizi bildiririm.
	Mehmet Baykan