Skip to main content

AccessTr.neT


İki Tarih Arasında,Formdaki Verileri Exele Gönderme Nasıl Yapılır?

İki Tarih Arasında,Formdaki Verileri Exele Gönderme Nasıl Yapılır?

Çözüldü #1
Değerli Forum Üyeleri;

Yapmaya çalıştığımız uygulamada formlarda iki tarih arasında istatistik alıp-sonuçlarını exeldeki ilgili tablolara yollamak istiyoruz.

frm_EgitseLTanilamam
frm_kaynastirmam
frm_okulKararim
frm_psikolojikaraclarim 

Bu fomların sonuçlarını exel dosyasındaki ilgili tablolara nasıl yollarım?
Şuan tüm formlarda bulunan butonlarda olay yordamı için  hazırladığımız kodlar var..
İlgili formlardaki ilgili butonlara bastığımızda yolluyor,
ancak değerleri sıfır olarak yolluyor,toplam değerleri vs eksik ve sıfır olarak yolluyor..

Kodlar üzerinde nasıl bir oynama yapmam gerekmekte sizden öneri ve yardımlarınızı bekliyorum..İşin içinden çıkamadım,siz değerli üstadlarımdan yardım bekliyorum..

Saygılar..
.rar SON-GUNCEL.rar (Dosya Boyutu: 899,96 KB | İndirme Sayısı: 18)
Son Düzenleme: 01/03/2015, 15:19, Düzenleyen: mehami.
Cevapla
#2
Şuan tüm formlarda bulunan butonlarda olay yordamı için  hazırladığımız kodlar var..
İlgili formlardaki ilgili butonlara bastığımızda yolluyor,
ancak değerleri sıfır olarak yolluyor,toplam değerleri vs eksik ve sıfır olarak yolluyor..

Kodlar üzerinde nasıl bir oynama yapmam gerekmekte sizden öneri ve yardımlarınızı bekliyorum..
İşin içinden çıkamadım,siz değerli üstadlarımdan yardım bekliyorum..

Saygılar..

NOT: Konuyu ve Uygulamayı Güncelledim, 1.mesajımda son hali mevcut..
Cevapla
#3
sayın mehami,

bahsettiğiniz talebinize yönelik olarak en son eklediğiniz uygulamanız çalıştırılmak sureti ile yapılan çalışma neticesinde;
frm_okulKararim adlı formunuzdaki excele gönderme butonunun içeriğinde yapılan gerekli düzenlemeler sonucu elde edilen geçerli kodlama aşağıdaki gibidir.

bu düzenleme için, SADECE frm_okulKararim adlı formunuz kullanılmıştır.bu sebeple,denemede bulunup sonucu olumlu gördüğünüz takdirde,lütfen benzer kodlama düzenlemelerini diğer belirttiğiniz 3 adet formunuzdaki kodlara da uyarlayınız.

talep edildiğinde,bu işlemin uygulandığı örnek uygulama konunuza dahil edilecektir.bilginize.

Kod:
Private Sub Komut45_Click()
Dim SQL As String
Dim db As Database
Dim rs As DAO.Recordset
Dim rt As DAO.Recordset
Dim oExcel As Object
Dim oBook As Object
Dim oSheet As Object
Set oExcel = CreateObject("Excel.Application")
Set oBook = oExcel.Workbooks.Open("E:\okul.xlsx")
Set oSheet = oBook.Worksheets(1)
For i = 33 To 54
  oSheet.Cells(i, 19).Value = 0
  oSheet.Cells(i, 20).Value = 0
  oSheet.Cells(i, 21).Value = 0
  oSheet.Cells(i, 22).Value = 0
'   oSheet.Cells(i, 23).Value = 0
'   oSheet.Cells(i, 24).Value = 0
Next i
Set db = CurrentDb()
SQL = "SELECT * FROM okulkarari"
Set rs = db.OpenRecordset(SQL)
If rs.EOF = True Then Exit Sub
rs.MoveFirst
Do Until rs.EOF = True
For i = 33 To 54
  If oSheet.Cells(i, 18).Value = rs!egitselokulkarari Then GoTo 110
Next i
MsgBox rs!egitselokulkarari & " Excelde bulunamadı..."
GoTo 100
110
SQL = "SELECT * FROM tbl_hepsi"
Set rt = db.OpenRecordset(SQL)
If rt.EOF = True Then Exit Sub
rt.MoveFirst
K1 = 0
E1 = 0
Do Until rt.EOF = True
If rt!randevu < Me.iltarih Then GoTo 120
If rt!randevu > Me.sontarih Then GoTo 120

If rs!egitselokulkarar_id = rt!egitselokul_karari Then
 

  If rt!cinsiyet = 1 Then K1 = K1 + 1
  If rt!cinsiyet = 2 Then E1 = E1 + 1
End If
120
rt.MoveNext
Loop
oSheet.Cells(i, 19).Value = K1
oSheet.Cells(i, 20).Value = E1

oSheet.Cells(i, 23).Value = K1
oSheet.Cells(i, 24).Value = E1

rs.MoveNext
Loop
MsgBox "Excel dosyanız güncellenmiştir..."
100
oBook.Save
oBook.Close
oExcel.Quit
End Sub


iyi çalışmalar,
saygılar.
Herkes, kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla
#4
Değerli atoz112 hocam;
Vermiş olduğunuz kod ile okulkararı adlı formdaki problem ortadan kalktı..

Bu kodu diğer formlara uyarladığım zaman maalesef ki toplam kız-erkek olayını ve okul türlerine göre 0-3 yaş,okulöncesi,ilkokul-ortaokul vs olanları birbiri ile karıştırıyor..

Mesela eğitsel tanim formunda  ortaokulda 3 kız gösterirken-exele yolladığımda 3 kızı 0-3 yaş türündeki kız hanesinde gösteriyor..diğer formlardada benzer hatalar veriyor toplamları hiç vermiyor..

Bu konuda fikrinize ihtiyacım var..

Saygılar sunuyorum..
Problem hala devam etmektedir..Son güncel halini 1.mesajdaki ile güncelledim..Bilginize sunar öneri ve yardımlarını beklerim..
Saygılar.
Cevapla
#5
Konu güncell..sorun henüz çözülmüş değil..
Cevapla
#6
Değerli Forum Üyeleri;

Konuyu açarken amacım; 4 adet formun iki tarih arasındaki sonuçlarını A4 kağıta arkalı önlü rapor olarak çıktısını alabilmekti.

Öncelikle form sonuçlarını  tek rapor haline (4formu 1 rapor haline) getirmeyi konu olarak açtım,oradan sonuç alamadım..

Bu defa 4 form sonuçlarını exele yollamayı denedim bunun için bu konuyu açtım bunda da başarılı olamadım..Bu konuda yardımda yeterince gelmeyince farklı platformlara konuyu taşıdım..

Allah razı olsun hem buradaki değerli abilerimden simendifer-atoz112-power-ozanakkaya ve adını sayamadıklarım canla başla bana yardımcı oldular,
konuyu farklı bir platformdan dsezgin diye bir abimiz 4 formu 1 rapor haline getirerek çözüme kavuşturdu..

Allah hepinizden razı olsun..



Bu da exele yollanabilir ki hali..emeği geçen herkesten allah razı olsun..

Konu cevaplanmışlar bölümüne taşınabilir.

Saygılar
.rar rehberlik son güncel.rar (Dosya Boyutu: 2,06 MB | İndirme Sayısı: 9)
.rar RAM EXEL HALİ.rar (Dosya Boyutu: 1,13 MB | İndirme Sayısı: 10)
Son Düzenleme: 04/03/2015, 23:10, Düzenleyen: mehami.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task