Puantaj Tablosunda Hesaplamayı Yaptıramadım.

12/02/2021, 01:50

M_Kemal_Askeri

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.
12/02/2021, 14:04

berduş

ç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
12/02/2021, 15:19

M_Kemal_Askeri

Sayın berduş desteğiniz için çok teşekkür ederim. Sağlıklı günler dilerim. Sorun sayenizde çözülmüştür.
12/02/2021, 16:00

berduş

rica ederim
iyi çalışmalar)