varolan excele veri aktarımı

Örnek eklenmemiş, geri dönüş yapılmamış, gerekli çözüm yazılmış.

konu taşınmıştır.

Veri aktarımı meselesini yardımlarınızla çözdüm. Programımda yapmam gereken birkaç ufak değişiklik daha var:
Alanların "Çıkıldığında" olay yordamına bazı kodlar yadım. Kodlarım sorunsuz çalışıyor ama formum sürekli form olduğundan imleç ,içine kod yazılmış alanlardan diğer satırlara yönlendirilemiyor.
Daha doğru bir ifade ile, imleç hagi satırdaysa o satırdaki tüm alanlara tıklayabiliyorum ama öbürlerinde tık yok Diğer satırlardaki herhangi bir alana tıklayacağım zaman imlecin bulunduğu satırdaki boş bir alana tıklamam gerekiyor, tabi bu da çok kolay kullanılabilen bir programı çok zor hale getiriyor.
İkinci sorunum görsel. İmlecin bulunduğu tüm satırı farklı renge boyamak istiyorum. Bunun için her alanın "fare hareket ettiğinde "kısmına kod mu yazmalıyım yoksa daha kolay bir yöntemi var mı?
Teşekkürler.

AccessTr.neT Forum Kuralları
6/b-) Açtığınız konudaki sorun çözümlenmişse aynı konuya konu başlığındaki soru ile ilgisi olmayan farklı soru yazmayınız.
[Uyarı Puanı: +2]

(05/04/2011, 21:53)Yandemir yazdı:

 Set ExcelDosyasi = CreateObject("Excel.Application")

 Dim i As Integer

 On Error Resume Next

 With ExcelDosyasi

 .Application.Visible = True

 .UserControl = True

 .Workbooks.Open FileName:=CurrentProject.Path & "\aktarma.xls"

 

 Dim rs As Recordset

 Set rs = CurrentDb.OpenRecordset(Me.RecordSource)

 i = 0

 rs.MoveFirst

 Do Until rs.EOF

 i = i + 1

 .CELLS(i + 14, 1).Value = rs!HALNO

 .CELLS(i + 14, 2).Value = rs!MÜSTAHSİLADI

 .CELLS(i + 14, 3).Value = rs!ÜRÜNADI

 .CELLS(i + 14, 4).Value = rs!ÜRÜNCİNSİ

 .CELLS(i + 14, 5).Value = rs!NETKİLO

 .CELLS(i + 14, 6).Value = rs!FİYAT

 .CELLS(i + 14, 7).Value = rs!TUTAR

 .CELLS(i + 14, 8).Value = rs!KDVORANI

 .CELLS(i + 14, 10).Value = rs!SAHTEKÜÇÜK

 .CELLS(i + 14, 11).Value = rs!SAHTEBÜYÜK

 rs.MoveNext

 Loop

 End With

 Set ExcelDosyasi = Nothing

 rs.close

İYİ GÜNLER
soruyu soran arkadaş örnek eklememiş
ama sn.yandemir siz denediğiniz örneği ekleyebilirmisiniz
banada buna benzer bir uygulama lazım
eklediğiniz örnekten kendime uyarlayabileceğimi zannediyorum
teşekkürler