Skip to main content

AccessTr.neT


Puantaj Yapmak

Puantaj Yapmak

Çözüldü #1
Merhaba arkadaşlar,
eklediğim örnekteki gibi bir puantaj yapmak istedim,
malesef yapamadım,
puantaj önceki ayın 15 ile bu ayın 14 arası yapılıyor
hafta içindeki günlere "X" yazması cumartesine "C" pazar gününe "P" harfi atması gerekiyor.
yardımcı olacak arkadaşlara şimdiden teşekkürlerimi sunarım.
.rar Puantaj.rar (Dosya Boyutu: 18,58 KB | İndirme Sayısı: 29)
Cevapla
#2
Butonun tıklandığında olayına aşağıdaki kodu ekleyiniz.

Dim GTarih As Date
Dim GGecenAy, GBuAy, x, y As Integer

GTarih = Date

GGecenAy = DateSerial(Year(GTarih), Month(GTarih) - 1, 1)
GBuAy = DateSerial(Year(GTarih), Month(GTarih), 1)

Me.Metin125 = MonthName(Format(GGecenAy, "mm"))
Me.Metin127 = MonthName(Format(GBuAy, "mm"))

For x = 15 To 31

    If Weekday(x & "/" & Format(GGecenAy, "mm") & "/" & Format(GGecenAy, "yyyy")) = 1 Then
        Controls("a" & x) = "P"
    ElseIf Weekday(x & "/" & Format(GGecenAy, "mm") & "/" & Format(GGecenAy, "yyyy")) = 7 Then
        Controls("a" & x) = "C"
    Else
        Controls("a" & x) = "X"
    End If

Next x


For y = 1 To 14

    If Weekday(y & "/" & Format(GBuAy, "mm") & "/" & Format(GBuAy, "yyyy")) = 1 Then
        Controls("a" & y) = "P"
    ElseIf Weekday(y & "/" & Format(GBuAy, "mm") & "/" & Format(GBuAy, "yyyy")) = 7 Then
        Controls("a" & y) = "C"
    Else
        Controls("a" & y) = "X"
    End If

Next y
Cevapla
#3
Sayın ozan hocam öncelikle elinize sağlık,
1 sorun çıktı geçen ay 30 çekince hata veriyor

If Weekday(x & "/" & Format(GGecenAy, "mm") & "/" & Format(GGecenAy, "yyyy")) = 1 Then
bu satırda. ne yapabilirim.?
Cevapla
#4
Kodu aşağıdaki ile değiştirerek deneyiniz.

Dim GTarih As Date
Dim GGecenAy, GBuAy, x, y As Integer

GTarih = Date

GGecenAy = DateSerial(Year(GTarih), Month(GTarih) - 1, 1)
GBuAy = DateSerial(Year(GTarih), Month(GTarih), 1)

Me.Metin125 = MonthName(Format(GGecenAy, "mm"))
Me.Metin127 = MonthName(Format(GBuAy, "mm"))

For x = 15 To 31

    Controls("a" & x) = ""
   
    If IsDate(x & "/" & Format(GGecenAy, "mm") & "/" & Format(GGecenAy, "yyyy")) = True Then
        If Weekday(x & "/" & Format(GGecenAy, "mm") & "/" & Format(GGecenAy, "yyyy")) = 1 Then
            Controls("a" & x) = "P"
        ElseIf Weekday(x & "/" & Format(GGecenAy, "mm") & "/" & Format(GGecenAy, "yyyy")) = 7 Then
            Controls("a" & x) = "C"
        Else
            Controls("a" & x) = "X"
        End If
    End If
Next x


For y = 1 To 14
   
    Controls("a" & y) = ""
   
    If IsDate(y & "/" & Format(GGecenAy, "mm") & "/" & Format(GGecenAy, "yyyy")) = True Then
        If Weekday(y & "/" & Format(GBuAy, "mm") & "/" & Format(GBuAy, "yyyy")) = 1 Then
            Controls("a" & y) = "P"
        ElseIf Weekday(y & "/" & Format(GBuAy, "mm") & "/" & Format(GBuAy, "yyyy")) = 7 Then
            Controls("a" & y) = "C"
        Else
            Controls("a" & y) = "X"
        End If
    End If

Next y
Cevapla
#5
Çok çok teşekkür ederim ozan hocam tam istediğim gibi ellerinize sağlık...
Cevapla
#6
tekrar dosyayı paylaşırmısınız.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task