Verileri Excele Aktarma Hatası

1 2

formumdan excele aktarmak için açılan kutudan yararlanmak istiyorum. buton altındaki kod bu



 If IsNull(Me.rapor) Or Me.rapor = "" Then

   MsgBox ("Lütfen,bir seçim yapınız..."), vbCritical, "SEÇİM YAPILMAMIŞ UYARISI"

   Exit Sub

 Else



On Error GoTo Komut13_Click_Err



    DoCmd.OutputTo acQuery, Me.rapor.Column(3), "MicrosoftExcel(*.xls)", "", False, "", 0





Komut13_Click_Exit:

    Exit Sub



Komut13_Click_Err:

    MsgBox Error$

    Resume Komut13_Click_Exit

End If

me.rapor.column(3) yazan yere direk sorgunun ismini yazdığım zaman hatası olarak aktarıyorum. ancak bu şekilde almak istediğimde
bunu nasıl aşabilirim.

Kod:
DoCmd.OutputTo acOutputReport, "R_liste", acFormatXLS, CurrentProject.Path & "\" & "excel_dosyalar" & "\" & Me.rapor.Column(3) & ".xls", True

bu şekilde bir kod kullandım. "Bir nesne üzerinde çağırmayı denediğiniz yöntem başarısız " hatası verdi.

sayın hknct,

eklediğiniz resim küçük boyutta kalmaktadır.bu şekilde anlaşılamamaktadır.

lütfen tekrar geniş görsel olarak eklemeyi deneyiniz.teşekkürler.

ayrıca,
tam olarak ne kast ettiğiniz de anlaşılamıyor.lütfen daha net ifadelerde bulununuz.

bilginize...iyi çalışmalar,saygılar.

sayın hknct,

siz de takdir edersiniz ki,
sadece ifadeler ya da bilgisel bazda çözüme yetersiz kalacak sorunlarda içeriğini görmeden,sadece yazılı bilgilere veya eklenen resimlere bakarak çözümler sunmak yetersiz kalacaktır.örnek eklenmesi yerinde olacaktır.

bu nedenle,lütfen,
Site Kuralları gereği;
içeriğinde farazi gerçek dışı uydurma veriler ve işlemlerin neticelerini görebilecek şekilde 4-5 kayıt olacak halde örnek uygulamanızı eklemeye özen gösteriniz.teşekkürler.

bilginize...iyi çalışmalar,saygılar.

(08/02/2017, 23:23)atoz112 yazdı: sayın hknct,

siz de takdir edersiniz ki,
sadece ifadeler ya da bilgisel bazda çözüme yetersiz kalacak sorunlarda içeriğini görmeden,sadece yazılı bilgilere veya eklenen resimlere bakarak çözümler sunmak yetersiz kalacaktır.örnek eklenmesi yerinde olacaktır.

bu nedenle,lütfen,
Site Kuralları gereği;
içeriğinde farazi gerçek dışı uydurma veriler ve işlemlerin neticelerini görebilecek şekilde 4-5 kayıt olacak halde örnek uygulamanızı eklemeye özen gösteriniz.teşekkürler.

bilginize...iyi çalışmalar,saygılar.

ekledim

sayın hknct,

bahsettiğiniz talebinize yönelik olarak;

öncesinde,
kod sayfasında TOOLS - REFERENCES ile referans penceresinde Microsoft Excel XX.X Object Library referansını işaretleyiniz.

DoCmd.OutputTo acOutputReport, "R_liste", acFormatXLS, CurrentProject.Path & "\" & "excel_dosyalar" & "\" & Me.rapor.Column(3) & ".xls", True

kod satırı yerine,

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, Me.rapor.Column(2), CurrentProject.Path & "\" & "excel_dosyalar" & "\" & Me.rapor.Column(3) & ".xls", True, "Aktarma"

kod satırını kullanarak deneyiniz.

bilginize...iyi çalışmalar,saygılar.

sayın hknct,

EK'te;
bahsettiğiniz talebinize yönelik olarak,
bir önceki mesajda yapılan açıklamalar nezdinde hazırlanmış örnek uygulama mevcuttur.inceleyebilirsiniz.

bilginize...iyi çalışmalar,saygılar.

1 2