Arkadaşlar evrak kayıt programı yaptım fakat bir noktada takıldım içinden çıkamıyorum örnek dosya aşağıda;

Sorunumu açıklayayım
Yine siz değerli arkadaşların yaptığı excele gönder isimli örnekten faydalanarak evrak kayıt formundaki bilgileri excele filitreli olarak göndermek istedim bunu için öncelikle evrak kayıt programının kodlarında sıkıntıya yol açmayım diye excele gönder programına datayı taşıyarak bunu üzerinde düzenlemeler yaptım ve tabir yerinde ise tıkır tıkır çalıştı fakat yaptığım düzenlemeyi evrak kayıt programına butona taşıdım sıkıntı oldu dataları göndermiyor fakat sonsuz yazmaya devam ediyor yazma işlemi sonlandırılmıyor yardımınız lazım ilgilenirseniz çok sevinirim
saygılarımla

Merhaba,

2 Access uygulamasındaki referansların farklı olmasından bu hatayı alıyorsunuz. Her iki dosyadaki referansları aynı olacak şekilde ayarlayın. Sorun çözülecektir.

Hata almaya devam ederseniz aşağıdaki referansı da kaldırın.

İyi çalışmalar,

"Microsoft ActiveX Data Objects 2.1 Library"

Sn MirzaKatar

İlginiz için teşekürler ama ben bahsettiğiniz yeri bulamadım evrak kayıt formunda ki excele gönder kısmında yardımcı olursanız sevinirim saygılarımla

Merhaba,

Kod sayfasında Tools->Refenrences ya da Ayarlar->Referanslar bölümüne tıklayınız. Burada uygulamanızda kullandığınız referanslar listelenecektir.

İyi çalışmalar,

Merhaba, kodlardan ileri seviyede anlamıyorum ancak zannedersem excele gönder dendiğinde kodlardaki döngü sonsuz devam durumuna giriyor ve excele aynı veriyi sürekli yazıp gidiyor.

arkadaşlar oluşturduğum sorguda herhangi bir sorgu kullanmadan okutarak direk aşağıdaki kod ile excele verileri gönderebiliyorum fakat sorguya form üzerinden ilk ve son tarih bilgilerini girdikten sonra beetwen kullanarak oluşturduğum zaman komutu çalıştırınca hata veriyor ve göndermiyor yardımcı olurmusunuz

kod Private Sub kmtexcel_Click()
Dim runxls As New Excel.Application
Dim dosya As Excel.Workbook
Dim sayfa As Excel.Worksheet
Dim rs As New ADODB.Recordset


Set Excl = New Excel.Application
With Excl
.Application.Visible = True
.UserControl = True

End With
Set KTP = Excl.Workbooks.Add
Set SYF = KTP.Worksheets(1)

'BAŞLIKLAR DÜZENLENİYOR
With Excl


'***********************************

'rs.Open "SELECT * FROM [DEFTER KAYIT];", CurrentProject.Connection, adOpenKeyset, adLockReadOnly
rs.Open "Tüm_kayıt_excel", CurrentProject.Connection, adOpenKeyset, adLockReadOnly

x = 8

Do While rs.EOF = False
With Excl
.Cells(x, 1) = rs(1).Value
.Cells(x, 2) = rs(2).Value
.Cells(x, 3) = rs(3).Value
.Cells(x, 4) = rs(4).Value
.Cells(x, 5) = rs(5).Value
.Cells(x, 6) = rs(6).Value
.Cells(x, 7) = rs(7).Value
.Cells(x, 8) = rs(8).Value
.Cells(x, 9) = rs(9).Value
.Cells(x, 10) = rs(10).Value
.Cells(x, 11) = rs(11).Value
.Cells(x, 12) = rs(12).Value
.Cells(x, 13) = rs(13).Value
.Cells(x, 14) = rs(14).Value
.Cells(x, 15) = rs(15).Value
.Cells(x, 16) = rs(16).Value


End With
x = x + 1
rs.MoveNext
Loop
rs.Close

End With

End Sub



Sorfu yaptırmadan direk dataları
rs.Open "Tüm_kayıt_excel", CurrentProject.Connection, adOpenKeyset, adLockReadOnly
kodu ile Excele aktardım ama 2 tarih arasındaki kayıtları sorguda veya komutla kullanmayı yapamadım
yardımcı olursanız sevinirim