Puantaj Tablosunda Hesaplamayı Yaptıramadım.

Herkese Selam,

Sitemizden yararlanarak İşçiler için sorunsuz çalışan bir Puantaj Kayıt tablosu hazırladım. Daha sonra bu hazırladığım Puantaj tablosunu bir takvim uygulamasıyla birleştirmek istedim. Maksadım Mesai kayıtlarının gerçek gün değerleri ile kaydedilmesi ve hesaplanmasıydı. Formları birleştirmeyi başardım. Ay ay günleri de doğru olarak görüntülemeyi hallettim. Ancak daha önceki tabloda çalışan hesaplama kodları bu uygulamada çalışmadı. Mesaiye gelme günleri "D" harfi ile işaretleniyor ve "TopisgunSay" alalnında toplam mesaiye gelinen günleri vermesi gerekiyor ama maalesef bunu başaramadım. Bazen "G1" alanını bulamadı diye hata veriyor, vermediği zamanlarda da D değerini ilgili günlere kaydetsem bile toplamı vermiyor. yardıma ihtiyacım var. Teşekkür ederim ve sağlıklı günler dilerim. Örneği aşağıya ekledim. Puantaj kayıt tablosu altform olarak düzenlenmiştir.

çalışmanızın en başında Option Explicit kullandığınız için Hesapla fonksiyonunda kullandığınız ss ifadesi sorun çıkarıyor
o nedenle ifadenize dim ss as byte satırını ekleyip  format kısmını taşımanız yada metin formatında yeni bir değişken tanımlamalısınız
kodu aşağıdaki gibi düzenleyip yeniden dener misiniz?

Sub Hesapla()



Dim GSayi As Integer, ss As Byte



GSayi = 0

For ss = 1 To 31

    If Controls("G" & Format(ss, "00")).Value = "D" Then

        GSayi = GSayi + 1

    End If

Next ss



Me.TopisGunSay = GSayi



End Sub

Sayın berduş desteğiniz için çok teşekkür ederim. Sağlıklı günler dilerim. Sorun sayenizde çözülmüştür.

rica ederim
iyi çalışmalar)