acces verileri excele aktarmak

1 2 3
01/02/2015, 17:04

ilhantarik

[attachment=21976]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.
01/02/2015, 21:13

ilhantarik

 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.
02/02/2015, 17:33

Kur@l

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 
02/02/2015, 18:57

ilhantarik

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ı.
03/02/2015, 04:27

Kur@l

Bende çalışan hali ektedir.
Kolay gelsin.


Sonradan fark ettim bu benim 2000. mesajım.
03/02/2015, 09:21

kadirdursun

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"
1 2 3