AccessTr.neT

AccessTr.neT > Microsoft Access > Access Cevaplanmış Soruları > Hakediş Programı
Tam Versiyon: Hakediş Programı
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2 3

mozuer

25/03/2010, 18:22
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...

C*e*l*o*y*c*e

25/03/2010, 18:31
sayın mozuer
2003 acces olarak eklersen daha fazla kişiye ulaşırsınız,çoğumuz 2003 kullanıyoruz Img-grin

ercansahin

26/03/2010, 02:09
Ö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..

mozuer

26/03/2010, 03:52
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...

ercansahin

26/03/2010, 08:31
2007 kullanan sn hocalarımdan birisi sanırım el atacaktır olaya..Img-grin

emturker

26/03/2010, 08:57
(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
Sayfalar: 1 2 3
AccessTr.neT > Microsoft Access > Access Cevaplanmış Soruları > Hakediş Programı