Sayın fascioglu,
1)
Alıntı:...yapmak istediğim ister bağımsız ister birlikte veri girildiğinde hesaptoplamını alabileyim...
ifadenize yönelik olarak;
F_TEKNİKSERVİS adlı formun Geçerli Olduğunda olay yordamındaki End If ifadesinden hemen sonra
Kod:
Me.mtn_hesaptoplami = Nz(Me.mtn_servistutari + DSum("[TUTARİ]", "T_SERVİSHESABİ", "[İSLEMNO] = " & Me.İSLEMNO), 0)
Me.Kal = Me.mtn_hesaptoplami - Me.ODEMETOPLAMİ
Me.Refresh
kod satırlarını dahil ediniz.
2)
Alıntı:...F_SERVİSHESABI formunda seç sil yaptığımda hesaptoplamından silinen tutarı düşüyor ancak kalan kısmından düşmüyor...
ifadenize yönelik olarak;
F_SERVİSHESABİ adlı formun üzerindeki SEÇ SİL ifadesi ile tanımlı butonun Tıklandığında olay yordamındaki kodları
Kod:
On Error Resume Next
Dim degisenTutar As Integer
DoCmd.SetWarnings False
If MsgBox("Girilen Tutarı Silmek İstediğinizden Eminmisiniz..?", vbCritical + vbYesNo) = vbYes Then
DoCmd.RunSQL "DELETE İSLEMNO FROM T_SERVİSHESABİ WHERE MUSID = " & Me.MUSID & ";"
DoCmd.SetWarnings True
Me.Requery
If Me.mtn_toplam = "" Or IsNull(Me.mtn_toplam) Then
degisenTutar = 0
Else
degisenTutar = Me.mtn_toplam
End If
Forms![F_TEKNİKSERVİS]![mtn_hesaptoplami] = degisenTutar
Forms![F_TEKNİKSERVİS]![Kal] = Forms![F_TEKNİKSERVİS]![mtn_hesaptoplami] - Me.mtn_toplam
'Forms![F_TEKNİKSRVİS].Requery
Forms![F_TEKNİKSERVİS].Requery
Else
Exit Sub
End If
ile değiştiriniz.Bu kodlar içerisinde yeri gelmişken fark edilen bir hususu da belirtmekte fayda var kansındayım.
Hem formlar üzerinde veya tablolarda eğer alan adları veya denetim adlarında herhangi bir olası değişiklik veya yeniden tanımlama söz konusu ise bunu akabinde kodlarda da kontrol ederek düzeltmeye özen gösteriniz hem de alışkanlık edinmek üzere lütfen kod sayfasında üst menüden DEBUG-COMPILE yapmak sureti ile kodlardaki kontrolleri incelemekle birlikte olası düzenlemeleri de gerçekleştirmeye özen gösteriniz.
ÖRNEĞİN;yukarıdaki en son eklenen kodlar içerisinde
Kod:
Forms![F_TEKNİKSRVİS].Requery
kod satırında form adı tanımlaması hatalı olduğu için istenen işlemi sağlayamayacaktır.bilginize…iyi çalışmalar,saygılar.
#1
FA.TEKNİK SERVİS.rar
(Dosya Boyutu: 370,67 KB | İndirme Sayısı: 9)
