Skip to main content

AccessTr.neT


acces verileri excele aktarmak

acces verileri excele aktarmak

Çözüldü #1
.zip access.zip (Dosya Boyutu: 26,9 KB | İndirme Sayısı: 7)
Merhaba değerli hocalarım,

access verilerimi  excele aktarmak istiyorum.  eklemiş olduğum örnekte (form1) fakulte koduna göre excele aktarabildim. ancak bölüme (çoklu seçim yaparak) göre aktarmayı başaramadım. 
ayrıca Excel xlsx uzantılı ve  ismi açılan kutudaki  (fakülte) değer alınabilinir mi?

yardımlarınız için şimdiden çok teşekkür ederim.
Cevapla
#2
 iyi akşamlar hocalarım,

veritabanını .mdb çevrince  Excele gönder kodunun hata verdiğini şimdi fark ettim. bilmiyorum sorumun cevabına bir faydası olur mu ? dosyayı tekrar yüklüyorum... 

teşekkürler.
.zip vt.zip (Dosya Boyutu: 125,87 KB | İndirme Sayısı: 11)
Cevapla
#3
Kodunuzu aşağıda ki ile değiştirin istediğiniz gibi olacaktır.

Kolay Gelsin.

PHP Kod:
Private Sub Komut2_Click()
 
   Dim qd As DAO.QueryDef
    Dim vt 
As DAO.Database
    Dim sorgu 
As String
   
     
'Sorgumuzu hazırlıyoruz
     
     For Each sor In Me.bolum.ItemsSelected
 
     bb = bb & "'" & Me.bolum.ItemData(sor) & "',"
     Debug.Print bb
    Next
    
    
    
    sorgu = "select SPRIDEN_ID, AD, BITIRME from veri where fak=forms!Form1.kutu1 and BITIRME IN (" & Left(bb, Len(bb) - 1) & ") ORDER BY BITIRME"

 
   ' 
Vt'mizde geçici sorgumuzu isimlendirip oluşturuyoruz.
 
    Const GeciciSorgu As String = "ilh"
 
        Set vt = CurrentDb
    Set qd = vt.CreateQueryDef(GeciciSorgu, sorgu)
 
    ' 
Excele bu sorguyu gönderiyoruz..
 
   'On Error Resume Next
    
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, GeciciSorgu, me.fakulte.value
 
 
    '
Geçici sorgumuzu siliyoruz..
 
   DoCmd.DeleteObject acQueryGeciciSorgu
End Sub 
komşuda dülger mi var geliyor keser sesi,
ustalar konuşunca çıraklar keser sesi.
Cevapla
#4
iyi akşamlar Kur@l hocam,


öncelikle cevabınız ve ilginiz için çok teşekkür ederim.

aşağıdaki kodda hata veriyor. 

acaba siz örneği çalıştırdıysanız ekleyebilir misiniz.

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, GeciciSorgu, Me.fakulte.Value

(Me.fakulte.Value) buradaki fakulte yazan yeri (Me.kutu1.Value) olarak değiştirdim yine çalışmadı.
Cevapla
#5
Bende çalışan hali ektedir.
Kolay gelsin.


Sonradan fark ettim bu benim 2000. mesajım.
.zip Veritabanı[email protected] (Dosya Boyutu: 27,9 KB | İndirme Sayısı: 17)
komşuda dülger mi var geliyor keser sesi,
ustalar konuşunca çıraklar keser sesi.
Cevapla
#6
Sayın Kur@l;
2000. mesajınız hayırlı olsun.

Örneğiniz bende de çalışmadı. Aşağıdaki satırda hata verdi.

sorgu = "select SPRIDEN_ID, AD, BITIRME from veri where fak=forms!Form1.kutu1 and BITIRME IN (" & Left(bb, Len(bb) - 1) & ") ORDER BY BITIRME"
Hayat bu
ölsende yaşamaya mecbursun!
UNUTMA!!!



(hafta sonu mesai olmadığından mesajlardaki çözümleri ancak hafta içi uygulayabiliyorum)
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task