oluşturulan excel şablonuna veri aktarma
Tarih
24/06/2009 15:58
Konu Sahibi
kanlitoprak
Yorumlar
11
Okunma
4622
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



kanlitoprak
Aktif Üye
Kullanici Avatari
Aktif Üye
168
06/03/2009
10
Nevşehir
Ofis 2003
06/01/2014,02:15
Çözüldü 
SORUN AÇIKLAMSI AŞAGIDA LÜTFEN YARDIM ...
Cevapla


cuneyt

Kullanici Avatari
Onursal
321
29/10/2008
81
İstanbul
Ofis 2007
08/06/2016,10:56
Çözüldü 
Merhaba,
Anladığım kadarıyla formdaki verilerini rapor olarak göstermek istiyorsun. Bu durumda örneği gönderirsen herkes yardımcı olur diye düşünüyorum. çünkü burdan desekki bir rapor oluştur sonra raporun verilerini tablodan kriterini de formdan al ve sonra bu kriterden komut düğmesine gerekli kodu yaz yaparmısın, yapabiliyorsun böyle olacak . ayrıca Excel olarak veri aktarma sitede bununla ilgili bir çok örnek var.

excel için örnek kod: dosyaya formdan aldığı kriterle Excel formatında kaydediyor

If MsgBox("Excel Formatlı Raporunuz C:\avt\gelenveriler\" & islemmetin & " " & "Gelen Veriler" & Forms!onkayitfor.Form![Sorgu1 alt formu]!Donem & ".xls Olarak Kaydedilecektir. Devam Edilsin mi?", vbInformation + vbYesNo, "Aktar") = vbYes Then

DoCmd.OutputTo acOutputQuery, "UnitelerdenGelenÖnKayıtlar", acFormatXLS, "C:\avt\gelenveriler\" & islemmetin & " " & "Gelen Veriler" & Forms!onkayitfor.Form![Sorgu1 alt formu]!Donem & ".xls", False, ""
MsgBox "İşlem Tamamlandı.", vbInformation, "Dosya"
End If




saygılar.
Cevapla


kanlitoprak
Aktif Üye
Kullanici Avatari
Aktif Üye
168
06/03/2009
10
Nevşehir
Ofis 2003
06/01/2014,02:15
Çözüldü 
PROGRAMI GÖNDERİYORUM
Cevapla


Nurullah_Serdar
FaTSaLı
Kullanici Avatari
Aktif Üye
568
22/11/2008
189
Giresun
Ofis 2007
01/07/2013,13:21
Çözüldü 
sayın kanlıtoprak. yapmak istediğiniz Excel üzerinde hazırlanmış bir şablonunuz var ve bu şablonun üzerine bulunan bilgi girilmesi gerekli yerlere aktif kayıdınızda olan değerleri göndermek istiyorsunuz.
doğru anladı isem aşağıdaki kodu bir deneyin. istediğinizin bu olduğunu düşünüyorum.

öncelikle vb penceresinde iken referans bölümündün
microsoft Excel referansını seçili hale getirmeniz gerekmektedir.

Dim objExcel
Dim objWorkBook
Set objExcel = CreateObject("EXCEL.APPLICATION")
objExcel.Visible = True
Set objWorkBook = objExcel.Workbooks.Open("C:\test.xls")

objExcel.Cells(3, 3).Value = değer1
objExcel.Cells(3, 4).Value = değer2
İyiki Varsın Access Img-grin
Cevapla


kanlitoprak
Aktif Üye
Kullanici Avatari
Aktif Üye
168
06/03/2009
10
Nevşehir
Ofis 2003
06/01/2014,02:15
Çözüldü 
yardımınız için teşekkür
EVET sorunu anlamışınız ancak yazdığınız kodu kullandım ama sadece c:/ altına atmış olduğum Excel sayfasını açıyor alan listesinden onarım belgesinde bulunan verileri alamıyorum onları nasıl gösterecegiz
sadece onarım belgesi formunda bulunan verileri değil birlik adı formunda bulunan veriyi ve malzeme cinsi formunda bulunan verilerde bu onarım belgesi raporunda gözükmesi gerekiyor
Cevapla


Nurullah_Serdar
FaTSaLı
Kullanici Avatari
Aktif Üye
568
22/11/2008
189
Giresun
Ofis 2007
01/07/2013,13:21
Çözüldü 
objExcel.Cells(3, 3).Value = değer1
objExcel.Cells(3, 4).Value = değer2
bu kodu daha önce kullanmadım hiç. fakat deneyerek gönderdim.
objExcel.Cells(3, 3).Value = değer1
3,3 ün yerine Excel şablonununda verinin yazılacağı hücreyi yazıyorsunuz. bunu (A,2) , (B,6) şeklinde yapabilirsiniz. değer bölümü için ise me.CINSI.value yazarak ekleyebilirsin.
yani: objExcel.Cells(A, 5).Value = me.CINSI.value yazarak açılan Excel sayfasının a 5 hücresine cinsi alanının değerini atar.
birim adını yazdırmak içinse Dlookup kullan.
objExcel.Cells(A, 5).Value =dlookup("[BİRLİK ADI],"BİRLİKADI") bu şekilde tablodan değerini çekerek exceldeki hücreye atayabilirsin.
İyiki Varsın Access Img-grin
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Excel Formülleri hk. murat dikme 5 158 10/11/2016, 04:59 ozanakkaya
  Filtreleme Yaparak Excel'e Export Etme! Rıdvan Üçok 3 112 06/11/2016, 13:53 atoz112
  Seçime göre Excelle veri aktarma. metbal 5 140 06/11/2016, 12:56 atoz112
  Excel Dosyasında veri alma idrisy 3 100 04/11/2016, 22:00 idrisy
Exclamation Access worde aktarma hata angelos 15 477 19/10/2016, 12:31 atoz112


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya