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
