Kapalı dosyadan veri kaydederken problem ?

[HD1975]

Merhaba ;

Kapalı bir dosyam var,bu dosyaya aşağıdaki kod ile verileri yazıyorum.
Kapalı dosyadaki (not.xls) verileri,başka bir tabloda dış veri al seçeneğ ile
alıyorum.

Şimdi sorun şu ;

Dış veri al seçeneğini çalıştırdıktan sonra,aşağıdaki buton kayıt yaparken
hata veriyor ve "rs.addnew" satırına atıyor.

Bu hatayı nasıl aşabiliriz.

Saygılar



Private Sub CommandButton1_Click()
Set con = CreateObject("adodb.connection")
CommandButton1.Height = 64
CommandButton1.Width = 73
If con.State = 1 Then con.Close
con.Open "provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.Path & _
"\NOTLARIM.xls;extended properties=""excel 8.0;hdr=yes"""
Kullanıcı = Split(Environ(28), "=")
With Sayfa1
Set rs = CreateObject("adodb.recordset")
rs.Open "select * from [sayfa1$]", con, 1, 3
rs.addnew
rs("Kişi no") = .Range("b3").Value
rs("Adı") = .Range("b4").Value
rs("Adresi") = .Range("b6").Value
rs("Tel1") = .Range("b8").Value
rs("Tel2") = .Range("b9").Value
rs("Not") = .Range("b12").Value
rs("Randevu tarihi") = .Range("c12").Value
rs("İşlem tarihi") = .Range("a299").Value
rs("Kullanıcı") = Kullanıcı(1)
rs.Update
End With
On Local Error Resume Next
con.Close
Set con = Nothing
End Sub

 

[HD1975]

Yokmu Cevap ??????

??????????**

 

[HD1975]

Kimse Yokmu ..............

?????????????????

 

[tamer42]

Örnek dosyanızı eklermisiniz; daha çabuk sonuç alırsınız.

ilk bakışta görünen

Dim RS As ADODB.Recordset

kodlarınızın en üstüne bu satırı ekleyin.

 

[HD1975]

Dosya Gönderdim

Yazdığınız komutu denedim ama hata veriyor.

Sorun şu ;

Kayıt komutu normal de çalışıyor bir sorun yok,sadece dış veri al yaptıktan sonra
kayıt yapmıyor.

Sayfa3'de dış veri aldığım tablo var,bu verileri ado ile alabileceğim bir komut
yazabilrimisiniz,belki ozaman sıkıntı kalkar diye düşünüyorum.

Saygılar

 

[tamer42]

Ekli dosya içindeki kodu incelermisin,

NOT adlı dosyaya Sayfa3 e yazdırıyorsun,


Not: Dış veri al dedikten sonra, Alan adlarının yerine dikkat etmelisin,

Alan adları Kişi no, Adı, Adresi, ........... ilk satırda yer almalı

 

[HD1975]

Ters olmuş;

Kod işem görüyor ama iki tane yanşışlık var.

1-Boox dosyasını açıp verileri almam gerekiyor,tam tersi boox.xls kapalı iken
not dosyasında bir tuşa basınca verileri almak istiyorum.

2-Sayfaya alma işlemini sürekli alt alta yapıyor,ben verileri sürekli üzerine
yazmasını istiyorum.

3-DÖngü kurmuşsunuz,bu döngüde veriler çoğaldığı zaman 37 olan rakamı yukarımı çekeceğiz.

Saygılar

 

[tamer42]

Sorularınızın cevabı;



1- Not dosyasında Module 3 içindeki kodları çalıştınız

2-Güncelleme işlemi yapmalısınız, bu biraz karmaşık işlemdir, Örnek verirseniz bakarız

3- buradaki 37 sayısı kayıt sayısıdır, Kayıdınız ne kadarsa o kadar yazabilirsiniz.