Private Sub Komut1_Click()
Dim kyt As Recordset, Mhl As String, Tbl
Set kyt = CurrentDb.OpenRecordset("SELECT tbl_mahalle.ikamet_mahallesi As Mahalle FROM tbl_mahalle GROUP BY tbl_mahalle.ikamet_mahallesi ORDER BY tbl_mahalle.ikamet_mahallesi")
If kyt.RecordCount = 0 Then Exit Sub
Do Until kyt.EOF
CurrentDb.Execute "SELECT tbl_mahalle.Kimlik, tbl_mahalle.kimlik_no, tbl_mahalle.adý, tbl_mahalle.soyadý, tbl_mahalle.baba_adi, tbl_mahalle.dogum_tarihi, tbl_mahalle.ikamet_ilcesi, tbl_mahalle.ikamet_mahallesi, tbl_mahalle.ikamet_sokak " & _
"INTO Gecici FROM tbl_mahalle WHERE (((tbl_mahalle.ikamet_mahallesi) = '" & kyt!Mahalle & "')) ORDER BY tbl_mahalle.ikamet_mahallesi"
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "Gecici", "c:\Users\" & Environ("UserName") & "\Desktop\Aktar.xls", True, kyt!Mahalle
DoCmd.DeleteObject acTable, "Gecici"
kyt.MoveNext
Loop
kyt.Close
Set kyt = Nothing
End Sub

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "Gecici", "c:\Users\" & Environ("UserName") & "\Desktop\" & kyt!Mahalle & ".xls", 0