Skip to main content

AccessTr.neT


Puantaj Tablosunda Hesaplamayı Yaptıramadım.

M_Kemal_Askeri
M_Kemal_Askeri
3
525

Puantaj Tablosunda Hesaplamayı Yaptıramadım.

Çözüldü #1
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.
.rar Ornek.rar (Dosya Boyutu: 111,88 KB | İndirme Sayısı: 11)
Son Düzenleme: 12/02/2021, 04:26, Düzenleyen: M_Kemal_Askeri.
Cevapla
#2
ç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
Cevapla
#3
Sayın berduş desteğiniz için çok teşekkür ederim. Sağlıklı günler dilerim. Sorun sayenizde çözülmüştür.
NE MUTLU TÜRK'ÜM DİYENE
Cevapla
#4
rica ederim
iyi çalışmalar)
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task