AccessTr.neT

Sayfalar: 1 2 3

[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.

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.

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 acQuery, GeciciSorgu
End Sub 

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ı.

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

Sonradan fark ettim bu benim 2000. mesajım.

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"

Sayfalar: 1 2 3

ilhantarik

ilhantarik

Kur@l

ilhantarik

Kur@l

kadirdursun