#2
Function Toplamlar()
Me.Metin9 = Nz(DSum("[ToplaURUN1]", "srgyeni"), 0)
Me.Metin11 = Nz(DSum("[ToplaURUN2]", "srgyeni"), 0)
Me.Metin13 = Nz(DSum("[ToplaURUN3]", "srgyeni"), 0)
'--------Buraya devam ediniz ----
Me.Metin27 = Nz(DSum("[ToplaURUN10]", "srgyeni"), 0)
End FunctionPrivate Sub Komut140_Click()
Me.RecordSource = "srgyeni1"
Requery
Call Toplamlar
End Sub| Bu Konudaki Yorumlar |
|
toplamı hızlandırmak - Yazar: furkan - 19/05/2013, 18:13
Cvp: toplamı hızlandırmak - Yazar: Puletin - 19/05/2013, 20:51
Cvp: toplamı hızlandırmak - Yazar: furkan - 19/05/2013, 22:15
Cvp: toplamı hızlandırmak - Yazar: ozanakkaya - 20/05/2013, 21:24
Cvp: toplamı hızlandırmak - Yazar: furkan - 20/05/2013, 23:12
Cvp: toplamı hızlandırmak - Yazar: ozanakkaya - 20/05/2013, 23:20
Cvp: toplamı hızlandırmak - Yazar: furkan - 20/05/2013, 23:37
|
