Skip to main content

AccessTr.neT


varolan excele veri aktarımı

varolan excele veri aktarımı

Çözüldü #1
Değerli forum üyeleri,
Accessten daha önceden belirlenmiş bir Excel tablosuna veri aktarmak istiyorum.arkadaşlarıngönderdiği kodlarla istediğimi yapıyorum ama formda bir değişiklik yaptığımda veya yeni kayıt eklediğimde excele sadece ilk satırı veya aktif satırı yazıyor. Birde aynı kodu aynı tablodan ama farklı sorgularda alan diğer formlara eklediğimde aynı hatayı veriyor. Formda çalışan formlar aşağdaki gibidir

Set ExcelDosyasi = CreateObject("Excel.Application")
Dim i As Integer
On Error Resume Next
DoCmd.GoToRecord , , acFirst
With ExcelDosyasi
.Application.Visible = True
.UserControl = True
.Workbooks.Open FileName:=CurrentProject.Path & "\aktarma.xls"
For i = 1 To Me.Recordset.RecordCount

.CELLS(i + 14, 1).Value = Me.HALNO
.CELLS(i + 14, 2).Value = Me.MÜSTAHSİLADI
.CELLS(i + 14, 3).Value = Me.ÜRÜNADI
.CELLS(i + 14, 4).Value = Me.ÜRÜNCİNSİ
.CELLS(i + 14, 5).Value = Me.NETKİLO
.CELLS(i + 14, 6).Value = Me.FİYAT
.CELLS(i + 14, 7).Value = Me.TUTAR
.CELLS(i + 14, 8).Value = Me.KDVORANI
.CELLS(i + 14, 10).Value = Me.SAHTEKÜÇÜK
.CELLS(i + 14, 11).Value = Me.SAHTEBÜYÜK
DoCmd.GoToRecord , , acNext
Next

End With
Set ExcelDosyasi = Nothing


Exit_Komut88_Click:
Exit Sub

Err_Komut88_Click:
MsgBox Err.Description
Resume Exit_Komut88_Click


Cevapla
Çözüldü #2
Bu tür bir soruya cevap alabilmeniz için örneği eklemeniz daha sağlıklı olacaktır.
Cevapla
Çözüldü #3
    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
Murat YANDEMİR ( PyramiD YAZILIM Uluslar Arası Nakliye Programları )
Bilgisayar Programcısı (1989'dan beri)

+rep Yollar biter Access bitmez. +rep
Cevapla
Çözüldü #4
örneğinizi eklerseniz üzerinde düzeltmeler yapılabilir
Cevapla
Çözüldü #5
Merhaba,
Aşağıdaki kod, bir formdaki verileri alt alta dizebiliyor ancak aynı tablodan fakat başka bir sorgudan oluşturulmuş form verilerinin sadece ilkini Excel tablosuna aktarıyor. Şayet bunu çözebilirseniz akabinde isteğim : verilerden belirli bir kritere sahip olan verileri daha alt satırlardan başlatarak sıralasın bu mümkün mü? Bence select deyimi ile yapmak gerekecek ama onun nasıl kullanıoldığını bilmiyorum şimdiden teşekkürler.
Private Sub Komut48_Click()
Set ExcelDosyasi = CreateObject("Excel.Application")
Dim i As Integer
On Error Resume Next
DoCmd.GoToRecord , , acFirst
With ExcelDosyasi
.Application.Visible = True
.UserControl = True
.Workbooks.Open FileName:=CurrentProject.Path & "\HİTİTAKTARMA.xls"
'herbir satıra aktarmak için
For i = 1 To Me.Recordset.RecordCount
.CELLS(i + 4, 1).Value = Me.HALNO
.CELLS(i + 4, 2).Value = Me.MÜSTAHSİLADI
.CELLS(i + 4, 3).Value = Me.ÜRÜNADI
.CELLS(i + 4, 4).Value = Me.ÜRÜNCİNSİ
.CELLS(i + 4, 6).Value = Me.FİYAT
.CELLS(i + 4, 10).Value = Me.SAHTEKÜÇÜK
.CELLS(i + 4, 11).Value = Me.SAHTEBÜYÜK
DoCmd.GoToRecord , , acNext
Next
End With
Set ExcelDosyasi = Nothing
Exit_Komut48_Click:
Exit Sub
Err_Komut48_Click:
MsgBox Err.Description
Resume Exit_Komut48_Click

End Sub
Cevapla
Çözüldü #6
sendeki kod ile çok zor bir üst mesajdaki kodu dene ben denedim oldu. gayette güzel çalışıyor.
Murat YANDEMİR ( PyramiD YAZILIM Uluslar Arası Nakliye Programları )
Bilgisayar Programcısı (1989'dan beri)

+rep Yollar biter Access bitmez. +rep
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task