+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Formdaki Açlılır Kutuda Seçime Göre Excel E Verme Adını Yazdırma (/konu-formdaki-aclilir-kutuda-secime-gore-excel-e-verme-adini-yazdirma.html)
Formdaki Açlılır Kutuda Seçime Göre Excel E Verme Adını Yazdırma - haziran4 - 09/03/2018
Aşağıdaki kod çalışıyor. Masa üstüne Gelir diye excele veriyor ama ben Masa üstüne exel adını Gelir işlem türündeki seçilen rapora göre yapmak istiyorum. yardımcı olursanız sevinirim.
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)
Cvp: Formdaki Açlılır Kutuda Seçime Göre Excel E Verme Adını Yazdırma - C*e*l*o*y*c*e - 09/03/2018
adres = Environ("userprofile") & "\Desktop\GiderExtre.xls"
Burayı
adres = Environ("userprofile") & "\Desktop\& gidertürüadı &.xls"
şeklinde deneyiniz.
Cvp: Formdaki Açlılır Kutuda Seçime Göre Excel E Verme Adını Yazdırma - haziran4 - 09/03/2018
üstad tşk ederim. Denedim Seçime göre aktarılacak ismi yazmıyor
Cvp: Formdaki Açlılır Kutuda Seçime Göre Excel E Verme Adını Yazdırma - ozanakkaya - 14/03/2018
Kodu aşağıdaki ile değiştirerek deneyiniz.
adres = Environ("userprofile") & "\Desktop\" & gidertürüadı & ".xls"