[VBA] String ve Integer değerleri ayrı ayrı toplama

alperalper · 26-09-2017, 12:21

Arkadaşlar formum üzerinden bir toplama işlemi yapmak istiyorum ancak başaramadım. Nöbet listem var izinler form üzerine otomatik geliyor Nİ, Yİ, Sİ vb gibi. bunların sayısını alıp personelin çalışma saati ile çarpıp çalışma saatini hesapliyorum. Sorunum şu bu izinler forma geldikten sonra boş alanlara nöbetleri yazıyorum 8, 16, 24, 5 vb gibi sayısal değerler. bu değerleride toplayıp önceki hesap ettiğim değerin üzerine ekleme istiyorum. ancak arada string değerler olduğu için başaramadım bir türlü yardım bekliyorum.

Visual Basic
Dim TpCalisma As Integer
 
intMonth = Me.ay2
intYear = Me.yıl
 
 
        TpCalisma = 0
        For k = 1 To 31
 
        If Me.Controls("Etiket" & Format(k, "00")).Visible = True Then
        If Not IsNull(Me.Controls("gun" & Format(k, "00")).Value) Then
        If Me.Controls("gun" & Format(k, "00")).Value = DLookup("KISALTMA", "TBL_izin_türleri", "[ÇALIŞMA SÜRESİNDEN DÜŞ] =-1") Or Me.Controls("gun" & Format(k, "00")).Value = DLookup("KISALTMA", "TBL_rapor_türleri", "[ÇALIŞMA SÜRESİNDEN DÜŞ] =-1") Or Me.Controls("gun" & Format(k, "00")).Value = DLookup("KISALTMA", "TBL_görevlendirme_türleri", "[ÇALIŞMA SÜRESİNDEN DÜŞ] =-1") Then
 
        If Not Format(Me.Controls("Etiket" & Format(k, "00")).Value, "dddd") = "Cumartesi" Then
        If Not Format(Me.Controls("Etiket" & Format(k, "00")).Value, "dddd") = "Pazar" Then
 
 
                TpCalisma = TpCalisma + 1 * DLookup("[ÇALIŞMA SAATİ]", "Tbl_personel", "[ID] =" & Me.adısoyadı_liste.Column(1))
 
        End If
        End If
        End If
        End If
        End If
 
            Next
                Me.toplamcalismasuresi.Value = TpCalisma
End Sub

dsezgin · 26-09-2017, 15:58

TpCalisma = TpCalisma + 1 * cdbl(nz(DLookup("[ÇALIŞMA SAATİ]", "Tbl_personel", "[ID] =" & Me.adısoyadı_liste.Column(1)),0))

Cdbl() ---> Cift Sayiya cevirir
Nz() ------> Bos dondugunde sifir atar ve matamatiksel islem gerceklesir.

alperalper · 26-09-2017, 23:50

Cevap için teşekkürler Sezgin bey. Yalnız sorumda çalışma saatim de sıkıntı yok. Çalışma saatim 8, 6,5, 5 gibi sayısal ifadeler. mesele nöbet yazılan form üzerinde kutucuklara integer ve string aynı anda geliyor.

metin ifadeleri sayıp * çalışma saati ile
nöbet olarak yazılan saatleri de toplayıp en son ikisini toplyayacak. Ben şu şekilde sorunu çözdüm.

Visual Basic
Private Sub saatler()
Dim inta As Integer, intJ As Integer, deger As String
Dim i As Integer
Dim saattoplam As Integer
 
For inta = 1 To 31
deger = Format(inta, "00")
'saattoplam = 0
 
 
'If Me("gun" & deger) <> "" Then
saattoplam = saattoplam + Val(Nz(Me("gun" & deger), 0))
'End If
 
Next inta
Me.saataktar = saattoplam
End Sub

ilginiz için teşekkürler

alperalper · 10-10-2017, 14:33

Arkadaşlar daha önceden açtığım bu konu için sorun çözüldü demiştim ancak buradaki işlemde virgüllü rakamların toplanmadığını gördüm. örneğin 6,5 yazdığımda bunu hep 6 olarak hesaplıyor.

Visual Basic
Private Sub calisilansaatler()
Dim inta As Integer, intJ As Integer, deger As String
Dim i As Integer
Dim saattoplam As Integer
 
For inta = 1 To 31
deger = Format(inta, "00")
 
saattoplam = saattoplam + Val(Nz(Me("gun" & deger), 0))
 
 
Next inta
Me.text_toplamcalismasüresi = saattoplam
End Sub

onur_can · 10-10-2017, 18:03

virgüllü rakamlar hangisiyse Dim deyiminde Double olarak tanıtınız. Örnek

Visual Basic
Dim inta As Double

gibi.

alperalper · **Kayıt Tarihi:** 06.11.2013

(10-10-2017, 18:03)onur_can demiş ki: virgüllü rakamlar hangisiyse Dim deyiminde Double olarak tanıtınız. Örnek
Visual Basic
Dim inta As Double
gibi.

Sayın onur_can inta integer bir değer 1-31 arası. saattoplam'a Double olarak tanımladığım zaman da 6,5 leri yine toplamıyor 6.5 olarak yazınca topluyor. bu 6.5 veritabanında yanlış ifadeye neden olur mu? yani benim derdim 6,5 saati toplatmak. Ayrıca 6.5 yaptığımda toplatabildim ancak 6.5 çalışma saati mesai saati hesabında yanlış bir değer atıyor. 136,5 olması gerekirken 1365 yazıyor

Benzer Konular...
Konu:		Yazar	Cevaplar:	Gösterim:	Son Mesaj
	Alt Form Toplama Dsum Fonksiyonu	osman06	6	408	27-11-2025, 16:31 Son Mesaj: osman06
	2 Sayıyı Toplama	omergenc7	2	296	20-01-2025, 12:58 Son Mesaj: omergenc7
	Liste Kutusunu Gruplandırarak Toplama	karacahil	2	364	06-12-2024, 19:38 Son Mesaj: karacahil
	Seçmeli Toplama	Satir	2	433	02-12-2024, 11:48 Son Mesaj: Satir
	[VBA] Bir Tabloda Alan Türü Uzun Metin Olan Iki Ayrı Alanı Karşılaştırmak	abkbek	13	1.189	10-11-2023, 22:26 Son Mesaj: abkbek
	[SORGU] Farklı Tablolarda Yer Alan Satış Bilgilerini Toplama Sorgusu	Lidervet	1	481	09-11-2023, 00:54 Son Mesaj: dsezgin
	Tabloda 0'ın Altındaki Negatif Değerleri 0 Olarak Yazmak Yada Boş Bos Göstermek	ofbayoglu61	4	579	15-07-2023, 13:16 Son Mesaj: ofbayoglu61
	[FONKSiYON] Ardışık Sayı Toplama 1 Er Artan	Ahmet51	3	479	27-03-2023, 13:58 Son Mesaj: halily

Oturum Aç




Beni Hatırla Şifremi Unuttum?

Access SQL