Select Case MsgBox("Excele Aktarma İşlemi Yapılacak." _

                   & vbCrLf & "" _

                   & vbCrLf & "Devem Edilsin mi?" _

                   , vbYesNo Or vbExclamation Or vbDefaultButton1, "DİKKAT")



    Case vbYes

    Dim adres As String

    adres = Environ("userprofile") & "\Desktop\AccessTr.xls"

    DoCmd.TransferSpreadsheet acExport, 8, "SORGU_ADI", adres, True, "AccessTr"

    MsgBox "Aktarma İşlemi Gerçekleşti.", , "Tebrikler"

    Case vbNo



End Select