Skip to main content

AccessTr.neT


Raporda pazar günü otomatik boyama

orhantanriverdi
orhantanriverdi
5
2500

Raporda pazar günü otomatik boyama

Çözüldü #1

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

database.rar
Cevapla
Çözüldü #2
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.
[email protected]
Cevapla
Çözüldü #3

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

database.rar
Cevapla
Çözüldü #4
Kural hocam tesekkur ederim. Çok güzel olmuş. Emeğinize sağlık

(İkinci kez açtığım konuyu silebiliriz)
Cevapla
Çözüldü #5
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 Img-grin)) cevabı verilmiş.
Saygılar, iyi çalışmalar.
*********
Kod, formül vs bilmek önemlidir ama mantığını yürütebilmek, nerede ve nasıl kullanılacağını bilmek daha önemlidir.
Cevapla
Çözüldü #6
Ayhan hocam tesekkur ederim. Sorunsuz calisiyor. Saygilar
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task