Örnek eklenmemiş, geri dönüş yapılmamış, gerekli çözüm yazılmış.
konu taşınmıştır.
varolan excele veri aktarımı
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.
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]
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
@benbendedeilem
Konuyu Okuyanlar: 1 Ziyaretçi