Skip to main content

AccessTr.neT


varolan excele veri aktarımı

varolan excele veri aktarımı

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

konu taşınmıştır.
Cevapla
Çözüldü #8
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 Img-grin
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.
Cevapla
Çözüldü #9
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]
Cevapla
Çözüldü #10
(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
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task