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....

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)