Sayın hocalarım

Ekte raporlar kısmında bulunan "personneltimesheet" adlı raporda Mart-2012 ayına aıt personel saatleri mevcuttur. Benim yapmak istediğim raporda bulunan.
1-2-3-4-5-6-7-8-9-10-11-12-13-14-15-16-17-18-19-20......31 gunlerden o ay içinde hangi GÜN pazar gününe denk geliyorsa o kolonun rengini otomatik değiştirmek. (Mart ayı için 4-11-18-25 kolonlarının rengini değiştirmek)
Kolay gelsin, İyi Çalışmalar

Sayın Orhan Tanrıverdi;
Ekte istediğiniz yapılmıştır. Fakat Ay alanında o aya ait kısaltma yerine her ayın ilk gününü kayderderseniz daha rahat edersiniz. Ben çalışmamda sizin gönderdiğiniz veriyi Ayim adında bir değişkene atadım ve değer tarih değilse inputbox ile doğru tarih girilmesini istedim. (Raporunu Almak İstediğiniz Ay içinde herhangi bir gün girmeniz Yeterli). Böylece raporunuz doğru olarak açılıp biçimlendirmeleri yapılıyor. Kolay Gelsin.

Sayın hocalarım

Sabah ekledeğim konuda eksiklikler olduğu için tekrar ekliyorum.


Ekte programda, formlarda bulunan (Orhan Tanrıverdi - şifre 123= TIME SHEET kısmına girdikten sonra TIME SHEET REPORT kısmına tıkladığımızda Monthly kısmından March-2012 yi seçtiğimde açılan "personneltimesheet" adlı raporda Mart-2012 ayına aıt personel saatleri mevcuttur. Benim yapmak istediğim raporda bulunan.
1-2-3-4-5-6-7-8-9-10-11-12-13-14-15-16-17-18-19-20......31 gunlerden seçtiğim ay/yıl içinde hangi GÜN pazar gününe denk geliyorsa o kolonun rengini otomatik değiştirmek. (Mart ayı için 4-11-18-25 kolonlarının rengini değiştirmek)
Kolay gelsin, İyi Çalışmalar

Kural hocam tesekkur ederim. Çok güzel olmuş. Emeğinize sağlık

(İkinci kez açtığım konuyu silebiliriz)

1,2,3,....31 diye etiketlendirdiğiniz etiketlerin adları g1,g2 ,g3.....g31 diye adlandırın. Sonra

Alıntı:Private Sub Report_Open(Cancel As Integer)
Dim gTarih As Date
Dim gTarih2 As Date
Dim gMetin
Dim i As Integer
gMetin = Forms![datapuantaj]![Monthly]
gTarih = DateSerial(Year(gMetin), Month(gMetin), 1)
For i = 1 To 31
If Weekday(DateAdd("d", i - 1, gTarih)) = 1 Then
Me("g" & i).BackColor = vbBlack
Me("g" & i).ForeColor = vbWhite
Else
Me("g" & i).BackColor = vbWhite
Me("g" & i).ForeColor = vbBlack
End If
Next
End Sub

kodu rapora yazın.

---

Pardon ya )) cevabı verilmiş.

Ayhan hocam tesekkur ederim. Sorunsuz calisiyor. Saygilar