+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Puantaj Tablosunda Hesaplamayı Yaptıramadım. (/konu-puantaj-tablosunda-hesaplamayi-yaptiramadim.html)
Puantaj Tablosunda Hesaplamayı Yaptıramadım. - M_Kemal_Askeri - 12/02/2021
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.
RE: Puantaj Tablosunda Hesaplamayı Yaptıramadım. - berduş - 12/02/2021
ç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 SubRE: Puantaj Tablosunda Hesaplamayı Yaptıramadım. - M_Kemal_Askeri - 12/02/2021
Sayın berduş desteğiniz için çok teşekkür ederim. Sağlıklı günler dilerim. Sorun sayenizde çözülmüştür.
RE: Puantaj Tablosunda Hesaplamayı Yaptıramadım. - berduş - 12/02/2021
rica ederim
iyi çalışmalar)