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\GiderExtre.xls"
DoCmd.TransferSpreadsheet acExport, 8, "GiderExtre", adres, True, "GiderExtre"
MsgBox "Aktarma İşlemi Masa Üstüne Gerçekleşti.", , "Tebrikler"
Case vbNo
End Select
![[Resim: do.php?imgf=152058051216061.jpg]](https://accesstr.net/resim/do.php?imgf=152058051216061.jpg)