Skip to main content

AccessTr.neT


Form üzerinde Hesaplama

Form üzerinde Hesaplama

#6
Buton kodunu aşağıdaki ile değiştiriniz.

Private Sub SIL_Click()

'On Error Resume Next
If MsgBox("Girilen Tutarı Silmek İstediğinizden Eminmisiniz..?", vbCritical + vbYesNo) = vbYes Then

DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE İSLEMNO FROM T_SERVİSHESABİ WHERE MUSID = " & Me.MUSID & ";"
DoCmd.SetWarnings True
Me.Requery

Forms![F_TEKNİKSERVİS]![mtn_hesaptoplami] = Forms![F_TEKNİKSERVİS]![mtn_servistutari] + Nz(DSum("[TUTARİ]", "T_SERVİSHESABİ", "[İSLEMNO] = " & Nz(Me.İSLEMNO, 0)), 0)
Forms![F_TEKNİKSERVİS]![Kal] = Forms![F_TEKNİKSERVİS]![mtn_hesaptoplami] - Forms![F_TEKNİKSERVİS]![ODEMETOPLAMİ]

Else
Exit Sub
End If
End Sub
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Form üzerinde Hesaplama - Yazar: fascioğlu - 16/12/2015, 15:53
Cvp: Form üzerinde Hesaplama - Yazar: atoz112 - 16/12/2015, 17:13
Cvp: Form üzerinde Hesaplama - Yazar: fascioğlu - 16/12/2015, 17:51
Cvp: Form üzerinde Hesaplama - Yazar: atoz112 - 17/12/2015, 11:51
Cvp: Form üzerinde Hesaplama - Yazar: fascioğlu - 17/12/2015, 14:28
Cvp: Form üzerinde Hesaplama - Yazar: ozanakkaya - 17/12/2015, 14:43
Cvp: Form üzerinde Hesaplama - Yazar: fascioğlu - 17/12/2015, 14:52
Cvp: Form üzerinde Hesaplama - Yazar: ozanakkaya - 17/12/2015, 15:04
Cvp: Form üzerinde Hesaplama - Yazar: fascioğlu - 17/12/2015, 15:10
Cvp: Form üzerinde Hesaplama - Yazar: atoz112 - 18/12/2015, 14:08
Task