AccessTr.neTMicrosoft AccessAccess Cevaplanmış Soruları

iki açılan kutudan sonuç almak

17/12/2010, 11:26

volkan1

Aşağıdaki linkte Hayri16 Hocamla çözdüğümüz saat toplamları çalışması var.
https://accesstr.net/konu-saat-farkini-o...nmasi.html

ancak bunu bir adım ileri götürüp form içindeki iki açılan kutu yardımıyla sonuca saat olarak toplatma konusunda yardma ihiyaç duyuyorum. Sadeleştirilmiş dosyam ektedir.

kod olarak 
Private Sub aykut_Click()

Dim ilktop As Integer

Dim sontop As Integer

ilktop = Nz(DSum("LEFT(TOPLAM_SEYIR_SURESI,2)", "[TBL_SEYIR_SURESI]", "[GOREV]= '" & [aykut] & "'"), 0)

sontop = Nz(DSum("mid(TOPLAM_SEYIR_SURESI,4,2)", "[TBL_SEYIR_SURESI]", "[GOREV]= '" & [aykut] & "'"), 0)

sefto = ilktop & ":" & sontop



End Sub

kullanmıştık ancak bu sefer toplam referans olan iki açılan kutu var?

[attachment=11552]
17/12/2010, 11:50

ayhan2122



Dim ilktop As Integer

Dim sontop As Integer

ilktop = Nz(DSum("LEFT(sefer_suresı,2)", "[TBL_SEYIR_SURESI]", "[aıt_oldugu_ay]= '" & [Açılan Kutu32] & "' AND [GOREV]='" & [Açılan Kutu34] & "'"), 0)

sontop = Nz(DSum("mid(sefer_suresı,4,2)", "[TBL_SEYIR_SURESI]", "[aıt_oldugu_ay]= '" & [Açılan Kutu32] & "' AND [GOREV]='" & [Açılan Kutu34] & "'"), 0)

Sonuc = ilktop & ":" & sontop
17/12/2010, 12:14

volkan1

(17/12/2010, 11:50)ayhan2122 yazdı: 


Dim ilktop As Integer

Dim sontop As Integer

ilktop = Nz(DSum("LEFT(sefer_suresı,2)", "[TBL_SEYIR_SURESI]", "[aıt_oldugu_ay]= '" & [Açılan Kutu32] & "' AND [GOREV]='" & [Açılan Kutu34] & "'"), 0)

sontop = Nz(DSum("mid(sefer_suresı,4,2)", "[TBL_SEYIR_SURESI]", "[aıt_oldugu_ay]= '" & [Açılan Kutu32] & "' AND [GOREV]='" & [Açılan Kutu34] & "'"), 0)

Sonuc = ilktop & ":" & sontop


Hocam çalışıyor İlginize çok teşekkürler. Saygılar.