AccessTr.neT

Tam Versiyon: Puantaj Toplama İşlemi
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
Ozan hocam çok teşekkür ederim gayet güzel oldu ekstradan tekrar toplam gün gibi bir duruma girmeye gerek varmı sizce?

peki "Y" harflerinin yani yarım günü nasıl 0,5 olarak toplatabiliriz aynı alanda
Sub Hesapla()

Dim GSayi As Integer

GSayi = 0
GSayi = 0

For ss = 1 To 31

ss = Format(ss, "00")


If Controls("G" & ss).Value = "X" Then

GSayi = GSayi + 1

ElseIf Controls("G" & ss).Value = "Y" Then

GSayi2 = GSayi2 + 0.5

End If

Next ss

Me.Gun = GSayi + GSayi2

End Sub
(25/02/2019, 13:46)ozanakkaya yazdı: [ -> ]
Sub Hesapla()

Dim GSayi As Integer

GSayi = 0
GSayi = 0

For ss = 1 To 31

ss = Format(ss, "00")


If Controls("G" & ss).Value = "X" Then

GSayi = GSayi + 1

ElseIf Controls("G" & ss).Value = "Y" Then

GSayi2 = GSayi2 + 0.5

End If

Next ss

Me.Gun = GSayi + GSayi2

End Sub



Ozan abi verdiğin formüller işe yaradı baya aşama kaydettik.

Sayın çok kıymetli hocam özgür abimin de destek ve yardımlarıyla site için gayet güzel bir puantaj programı yapıyoruz.çok az kaldı.


Şimdi sizlerden bir ricam olacak ayrı konu da açacağım bunla alakalı formdaki renkli alanları aynı şekilde excele aktarma diye bir konu ile fikirlerinizi alacağım.
Sayfalar: 1 2