varolan excele veri aktarımı
Tarih
05/04/2011 07:01
Konu Sahibi
feyyazselim
Yorumlar
9
Okunma
2186
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



feyyazselim
Üye
Kullanici Avatari
Üye
16
3
24/03/2011
0
Antalya
Belirtilmemiş
30/04/2013,19:06
Çözüldü 
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

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
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


ercansahin
BlackEagle
Kullanici Avatari
Uzman
E.... Ş....
3.739
14/11/2008
Ankara
Ofis 2010 32 Bit
07/12/2016,23:51
Çözüldü 
Bu tür bir soruya cevap alabilmeniz için örneği eklemeniz daha sağlıklı olacaktır.
Cevapla


Yandemir
Only Office 2003
Kullanici Avatari
Onursal
M.... Y....
1.432
26/08/2009
482
Tekirdağ
Ofis 2003
09/12/2016,22:27
Çözüldü 

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
    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


leydies81
Aktif Üye
Kullanici Avatari
Aktif Üye
160
12/12/2009
0
Eskişehir
Ofis 2010
17/08/2012,11:49
Çözüldü 
örneğinizi eklerseniz üzerinde düzeltmeler yapılabilir
leydies81, 12-12-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla


feyyazselim
Üye
Kullanici Avatari
Üye
16
3
24/03/2011
0
Antalya
Belirtilmemiş
30/04/2013,19:06
Çözüldü 
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


Yandemir
Only Office 2003
Kullanici Avatari
Onursal
M.... Y....
1.432
26/08/2009
482
Tekirdağ
Ofis 2003
09/12/2016,22:27
Çözüldü 
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







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  webden veri alma, veri tabanına ekleme.... mbo69221088 15 232 Dün, 00:08 mbo69221088
  Excelden Veri Aktarımı Hatası Xleash 6 144 25/11/2016, 10:52 Xleash
Çözüldü raporu word veya excele raporda göründüğü gibi gönderme kesoka 9 2.338 30/09/2016, 14:27 ates2014
  Accessdeki raporu excele gönderme ates2014 12 497 05/08/2016, 15:34 ates2014
  Form üzerindeki aranan veriyi excele aktarma Dekdurmaz 2 210 03/08/2016, 14:23 Dekdurmaz


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya