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
7440

Hakediş Programı

Çözüldü #1
mozuer
Aktif Üye
mozuer
Bul
Aktif Üye
Adı Soyadı: mu.... öz....
Yaşı: 49
Konum: Kocaeli
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: 05/12/2024,10:57
Yorumları: 173
Konuları: 45
Kayıt Tarihi: 26/12/2009
Teşekkür Puanı: 49
Mesleğiniz: Elektrik Mühendisi
No:1 formuna ekleyeceğim bir buton sayesinde RPYIAT veya RPYIAD sorgusundaki verileri HAKEDİŞ.xlsx dosyası A sayfasındaki benzer alanlara aktarmak istiyorum. Amacım hem excele aktarmak hem de Access rapordan yazdırabilmek.
Ayrıca RPYIAD sorgusunda sadece poz noların dolu olduğu satırlara otomatik sıra no nasıl verebilirim. (RPYIAT sorgusundaki gibi)
Bu program üzerinde yaklaşık 4 aydır uğraşıyorum. Bazı kısımlar uzman arkadaşlar tarafından yanlış görülürse lütfen uyarın. İlk program deneyimim.
Yardımlarınızı bekliyorum. Saygılar...
.rar PROGRAM.rar (Dosya Boyutu: 1 MB | İndirme Sayısı: 217)
Cevapla
Çözüldü #2
C*e*l*o*y*c*e
Uzman
C*e*l*o*y*c*e
Bul
Uzman
Adı Soyadı: Ce.... Ya....
Konum: Ankara
Ofis Versiyonu: Ofis 2010 32 Bit
Yorumları: 3.586
Konuları: 78
Kayıt Tarihi: 29/10/2008
Teşekkür Puanı: 1.047
Mesleğiniz: Yazılım
sayın mozuer
2003 acces olarak eklersen daha fazla kişiye ulaşırsınız,çoğumuz 2003 kullanıyoruz Img-grin
Cevapla
Çözüldü #3
ercansahin
BlackEagle
ercansahin
Bul
Uzman
Adı Soyadı: Er.... ŞA....
Yaşı: 50
Konum: Bursa
Ofis Versiyonu: Ofis 2010 32 Bit
Son Oturumu: 01/11/2024,00:00
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
Çözüldü #4
mozuer
Aktif Üye
mozuer
Bul
Aktif Üye
Adı Soyadı: mu.... öz....
Yaşı: 49
Konum: Kocaeli
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: 05/12/2024,10:57
Yorumları: 173
Konuları: 45
Kayıt Tarihi: 26/12/2009
Teşekkür Puanı: 49
Mesleğiniz: Elektrik Mühendisi
Sn.Sahin
yazdığınız kodu forumdan bulup denemiştim. Ancak olmuyor. Ayrıca excele atmak istediğim sorgu zaten değerleri tablodan alıyor. Accessten Aktarılan değerlerin Hakediş.xlsx dosyasındaki herhangi bir sayfa isminde örneğin (A5:L100) aralığına ilk alan değerlerini A5 hücresinden başlayarak yazdırmak istiyorum.
İlginize teşekkürler...
Cevapla
Çözüldü #5
ercansahin
BlackEagle
ercansahin
Bul
Uzman
Adı Soyadı: Er.... ŞA....
Yaşı: 50
Konum: Bursa
Ofis Versiyonu: Ofis 2010 32 Bit
Son Oturumu: 01/11/2024,00:00
Yorumları: 3.764
Konuları: 69
Kayıt Tarihi: 14/11/2008
Teşekkür Puanı: 1.089
2007 kullanan sn hocalarımdan birisi sanırım el atacaktır olaya..Img-grin
Cevapla
Çözüldü #6
emturker
- Murat -
emturker
www Bul
Uzman
Adı Soyadı: Mu....
Konum: İstanbul
Ofis Versiyonu: Ofis 2010 32 Bit
Son Oturumu: 06/12/2024,18:59
Yorumları: 1.256
Konuları: 88
Kayıt Tarihi: 30/10/2008
Teşekkür Puanı: 781
(25/03/2010, 18:31)C*E*L*O*Y*C*E yazdı: sayın mozuer
2003 acces olarak eklersen daha fazla kişiye ulaşırsınız,çoğumuz 2003 kullanıyoruz Img-grin
Application Engineer
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da