Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
05/04/2011 07:01
Konu Sahibi
feyyazselim
Yorumlar
9
Okunma
2610
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/09/2017,13:09
Çö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
Altın Üye
M.... Y....
1.435
26/08/2009
482
Tekirdağ
Ofis 2003
16/10/2017,18:10
Çö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

Hesap Aktif Değil
Kullanici Avatari
Aktivasyon Bekleyen
160
12/12/2009
Eskişehir
-
17/08/2012,11:49
Çözüldü 
örneğinizi eklerseniz üzerinde düzeltmeler yapılabilir


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
Altın Üye
M.... Y....
1.435
26/08/2009
482
Tekirdağ
Ofis 2003
16/10/2017,18:10
Çö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
Çözüldü Access Veri Aktarımı Şifre Problemi erdal21 4 210 21/09/2017, 21:06 erdal21
Çözüldü Sql Serverdan Sorgu İle Yerel Veri Tabanına Veri Yazdırma ertans 1 165 24/08/2017, 11:22 burhanb
Çözüldü Excele Gönderme. metin02 7 296 21/08/2017, 23:05 direnist
Çözüldü Formu Excele Bağladıktan Sonra Form Üzerinde Değişklik Yapamıyorum ankaram 4 283 09/06/2017, 09:21 ankaram
Çözüldü Formda Aktif Aramada Çıkanları Excele Gönderemedim ankaram 5 347 04/06/2017, 17:43 ankaram

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.