açılan kutu

ben sorgudaki verileri Excel'e aktarıyorum. sorguda veri varsa problem yok masaüstüne istediğim dosya adında excele atıyor. Ama veri yoksa boş bir dosya atıyor. boş dosya derken sütun başlıkları mevcut.

excel'e attığım;
On Error GoTo Err_aktar

Dim Klasor As String
Klasor = CurrentProject.Path & "\ExcelDosyasıAdı.xls"
If MsgBox("Verileri Excele aktarmak istiyor musunuz? ", 36, "ExcelDosyasıAdı.xls 'ye aktarılacak") = 6 Then

DoCmd.TransferSpreadsheet acExport, 8, "Tablo/SorguAdı", Klasor, True, ""
MsgBox "Aktarma işlemi tamamlandı", 0, "VERİ AKTARIMI"

Exit_aktar:
Exit Sub

Err_aktar:
MsgBox Error$
Resume Exit_aktar

End If

bunu geliştirebilirsiniz

hocam ekte gönderdiğim gelir formunda açılan kutudan "üye", "firma" ve "personel" seçeneklerinden birini seçtiğimde açılan_kutu26 da seçeneğe göre tablolardan veri gelmesini istiyorum.yani "üye" seçtiğimde açılan_kutu26 ya üyelerin adları, "Firma" seçtiğimde Firma tablosundan firmaların listesi "Personel"i seçtiğimde personel tablosundan personellerin isimleri gelsin istiyorum. Bunu kasa programında gelir gider formunda kullanacağım. teşekkürler

---

dosya eklenmemişti tekrar gönderiyorum

(06/05/2012, 22:31)kyskys yazdı: hocam ekte gönderdiğim gelir formunda açılan kutudan "üye", "firma" ve "personel" seçeneklerinden birini seçtiğimde açılan_kutu26 da seçeneğe göre tablolardan veri gelmesini istiyorum.yani "üye" seçtiğimde açılan_kutu26 ya üyelerin adları, "Firma" seçtiğimde Firma tablosundan firmaların listesi "Personel"i seçtiğimde personel tablosundan personellerin isimleri gelsin istiyorum. Bunu kasa programında gelir gider formunda kullanacağım. teşekkürler

---

dosya eklenmemişti tekrar gönderiyorum

Lütfen yeni konu açınız. Cevaplanmış konuya örnek ekleyemezsiniz.

Saygılar...