Kod:
Private Sub SetDays()
Dim intI As Integer, intJ As Integer, strnum As String
Dim gun1 As String, gun2 As String, bugun1 As String
Me.dolu = ""
For intI = 1 To 42
strnum = Format(intI, "00")
Me("lbl" & strnum).Caption = ""
Me("lbl" & strnum).Visible = True
Me("lbl" & strnum).BackColor = -2147483633
Me("lbl" & strnum).FontSize = 25
Me("lbl" & strnum).FontBold = True
Next intI
intMonth = Me!cmbMonth
intYear = Me!cmbYear
intFirst = WeekDay(DateSerial(intYear, intMonth, 1), vbMonday)
intLastDay = Day(DateAdd("m", 1, DateSerial(intYear, intMonth, 1)) - 1)
intLast = intFirst + intLastDay - 1
intJ = 1
strSQL = "SELECT * From Srg WHERE süz=" & cmbMonth & "" & cmbYear
Set db = CurrentDb
Set rst = db.OpenRecordset(strSQL)
For intI = intFirst To intLast
strnum = Format(intI, "00")
Me("lbl" & strnum).Caption = intJ
intJ = intJ + 1
Next intI
dolusay = 0
Do Until rst.EOF
gun2 = Day(rst![randevu tarihi])
For intI = 1 To 42
strnum = Format(intI, "00")
If Me("lbl" & strnum).Caption = gun2 Then
Me("lbl" & strnum).BackColor = 65280
dolusay = dolusay + 1
End If
Next intI
rst.MoveNext
Loop
For intI = 1 To 42
strnum = Format(intI, "00")
Me("lbl" & strnum).Visible = (Me("lbl" & strnum).Caption <> "")
Next intI
If dolusay = 0 Then
Me.dolu = "BU AYDA HİÇ KAYIT YOK hepsi boş gözün aydın"
Else
Me.dolu = "TAKVİMDE" & " " & dolusay & " " & "DOLU GÜN VE" & " " & intLastDay - dolusay & " " & "BOŞ GÜN VAR"
End If
' BİLGİSAYARCI'
'Bugünü işaretlemek için yeter şart önce bu ayda mıyız?
If (intMonth = Month(Now)) And (intYear = Year(Now)) Then
'Bu aydayız
gun1 = Day(Now)
For intI = 1 To 42
strnum = Format(intI, "00")
If Me("lbl" & strnum).Caption = gun1 Then
Me("lbl" & strnum).BackColor = vbBlue
Exit For
End If
Next intI
End If
End SubKod:
' BİLGİSAYARCI'
'Bugünü işaretlemek için yeter şart önce bu ayda mıyız?
If (intMonth = Month(Now)) And (intYear = Year(Now)) Then
'Bu aydayız
gun1 = Day(Now)
For intI = 1 To 42
strnum = Format(intI, "00")
If Me("lbl" & strnum).Caption = gun1 Then
Me("lbl" & strnum).BackColor = vbBlue
Exit For
End If
Next intI
End If