(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.