Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Hakediş Programı

mozuer
mozuer
Access Cevaplanmış Soruları
13
7199

Hakediş Programı

Çözüldü #3
ercansahin
BlackEagle
ercansahin
Bul
Uzman
Adı Soyadı: Er.... ŞA....
Yaşı: 49
Konum: Bursa
Ofis Versiyonu: Ofis 2010 32 Bit
Son Oturumu: 16/03/2024,00:04
Yorumları: 3.764
Konuları: 69
Kayıt Tarihi: 14/11/2008
Teşekkür Puanı: 1.089
Öncelikle sözkonusu sorgularınızla birer tablo oluşturun ve oluşturduğunuz tablonun adını aşağıdaki Tablo/SorguAdı yerine yazın, sonra da
Kod:
On Error GoTo Err_aktar

Dim Klasor As String
Klasor = CurrentProject.Path & "\HAKEDİŞ.xlsx"
If MsgBox("Verileri Excele transfer etmek istiyor musunuz? ", 36, "HAKEDİŞ.xlsx 'ye aktarılacak") = 6 Then

DoCmd.TransferSpreadsheet acExport, 8, "Tablo/SorguAdı", Klasor, True, ""
MsgBox "Transfer işlemi tamamlandı", 0, "AKTARIM"

Exit_aktar:
    Exit Sub

Err_aktar:
    MsgBox Error$
    Resume Exit_aktar

End If
kodunu bir düğmeye bağlayarak deneyin..
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Hakediş Programı - Yazar: mozuer - 25/03/2010, 18:22
Cvp: Hakediş Programı - Yazar: mozuer - 31/03/2010, 08:50
Cvp: Hakediş Programı - Yazar: ercansahin - 31/03/2010, 23:14
Cvp: Hakediş Programı - Yazar: assenucler - 01/04/2010, 16:20
Cvp: Hakediş Programı - Yazar: mozuer - 01/04/2010, 20:18
Cvp: Hakediş Programı - Yazar: ercansahin - 01/04/2010, 20:24
Cvp: Hakediş Programı - Yazar: mozuer - 02/04/2010, 13:56
Cvp: Hakediş Programı - Yazar: C*e*l*o*y*c*e - 25/03/2010, 18:31
Cvp: Hakediş Programı - Yazar: ercansahin - 26/03/2010, 02:09
Cvp: Hakediş Programı - Yazar: mozuer - 26/03/2010, 03:52
Cvp: Hakediş Programı - Yazar: ercansahin - 26/03/2010, 08:31
Cvp: Hakediş Programı - Yazar: emturker - 26/03/2010, 08:57
Cvp: Hakediş Programı - Yazar: mozuer - 26/03/2010, 14:02
Hakediş programı - Yazar: mozuer - 27/03/2010, 12:17
Task