AccessTr.neT

Tam Versiyon: access te alt tablodaki bilgileri excele gönderme
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Access tablosunda kayıtlı olan Öğretmen 1 ve öğretmen 2 nin girdiği dersleri saati kadar Excel sayfasına yazdırmam mümkün mü? anlatmak istediğimi Excel dosyası olarak gönderiyorum.

Excel’e üstteki tabloyu yazdırırken sınıflar aynı sütunda çakışmasın istiyorum. (fen-a fen-b 1.ders,2.ders ve 4.ders sütununda çakışmış.) ayrıca öğretmen-2 nin 7.ders,8.ders,9.ders,10.derslerinin boş olmasını yani o hücrelere sınıfların yazılamayacağını accesse vb komutlarını kullanarak nasıl anlatabilirim? Bu konuda yardımlarınız için şimdiden teşekkür ederim.



Ek Dosyalar
 ders programı.rar(25.57 KB)
office 2003 formatında örnek yüklerseniz, belki yardımcı olabirim...
ofice 2003 formatında gönderiyorum.

Ek Dosyalar
 2003 formatında ders programı.rar(20.08 KB)
Anladığım kadarıyla bir uygulama yaptım. Gün saat tablosunu örnekte gösterdiğim gibi kendi verilerinizle doldurursanız oluşturduğum sorgu size istediğiniz cevabı vereceğini tahmin ediyorum... kolay gelsin....Img-grin

Ek Dosyalar
 dersprogramı.rar(13.11 KB)

sorguyu inceledim.şöyle bir sıkıntı var.aynı sütunda sadece bir sınıf yazılmasına izin veriyor.yani öğretmen 2 fen-b dersinde iken öğretmen 1 in dersi olabilir.yapmaya çalıştığım tam olarak form üzerinde öğretmen sınıflarını ve kaç saat gireceğini yazdıktan sonra hangi öğretmen hangi saatlerde derse girmeyecekse belirtip komut düğmesine tıklayıp aynı sütunda aynı sınıf çakışmayacak şekilde vb komutları ile işlem yaptıktan sonra Excel sayfasına yazsın.yine de uğraştığınız ve emek sarfettiğiniz için teşekkür ederim.
nihayet istediğim oldu.dersp dosyası c nin içinde açılmalı.dersp dosyasının içinde bulunan pers.xlslx Excel dosyasına istediğim şekilde yazdı.nasıl yaptığıma gelince

form1 üzerine aldığım komut düğmesinin tıklama olayına aşağıdaki komutları yazınca her dersi saati kadar Excel sayfasına yazmış oldu.
Set Db = OpenDatabase("C:\dersp\dersp.accdb")
Set Rs = Db.OpenRecordset("tbl_sınıf", dbOpenSnapshot)

Set XLapp = CreateObject("Excel.Application")

Set XLwb = XLapp.Workbooks.Open(CurrentProject.Path & "\pers.xlslx")

Set XLsh = XLwb.Sheets(1)
XLapp.Visible = True

Rs.MoveFirst
Do While Not Rs.EOF

For i = 1 To CInt(Rs!saati)
Dim sayac As Integer

sayac = sayac + 1

XLsh.cells(2, sayac).Value = Rs!sınıfadı

Next i
Rs.MoveNext

Loop








Ek Dosyalar
 dersp.rar(58.38 KB)