Skip to main content

AccessTr.neT


Formdaki Açlılır Kutuda Seçime Göre Excel E Verme Adını Yazdırma

Formdaki Açlılır Kutuda Seçime Göre Excel E Verme Adını Yazdırma

Çözüldü #1
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]
haziran4, 15-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#2
 adres = Environ("userprofile") & "\Desktop\GiderExtre.xls"
Burayı

 adres = Environ("userprofile") & "\Desktop\& gidertürüadı &.xls"
şeklinde deneyiniz.
Cevapla
#3
üstad tşk ederim. Denedim Seçime göre aktarılacak ismi yazmıyor
haziran4, 15-05-2009 tarihinden beri AccessTr.neT üyesidir.
Son Düzenleme: 09/03/2018, 14:33, Düzenleyen: haziran4.
Cevapla
Çözüldü #4
Kodu aşağıdaki ile değiştirerek deneyiniz.


adres = Environ("userprofile") & "\Desktop\" & gidertürüadı & ".xls"
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task