Metin Kutusu - Baskı Önizleme +- AccessTr.neT (https://accesstr.net) +-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html) +--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html) +--- Konu Başlığı: Metin Kutusu (/konu-metin-kutusu--85773.html) |
Metin Kutusu - metınaycıcek - 09/10/2019 Sayın Hocalarım göndermiş olduğum acces te frm_uyegenel form unda üye adını giriniz yazısının altında bulunan kutuda seçimi yaptıktan sonra odeme yap :100 tl yazdık ödenen tarih yazısının altında bulunan kutucuğu tıkladığımızda bütün işlemleri yapıyor ve not yazı sının altında bulunan metin kutusuna 08.10.2019 tarihinde yatan 450 TL'den 1250 TL'nin 200 lirası ödendi 0 tl niz kaldı 09.10.2019 tarihinde yatan 250 TL'den 1050 TL'nin 250 lirası ödendi 0 tl niz kaldı gibi yazıyor sıkıntı yok fakat; metin kutusuna (son ödeme tarihi altında bulunan tarihi ) tarihinde (ödeme şekli elden ,pos cihazından açılan kutuda ne yazıyorsa )yatan 450 TL'den 1250 TL'nin 200 lirası ödendi 0 tl niz kaldı 09.10.2019 tarihinde yatan 250 TL'den 1050 TL'nin 250 lirası ödendi 0 tl niz yazılması mümkünmüdür. örneğin son ödeme tarihi 10.09.2019 10.09.2019 tarihinde elden yatan 450 TL'den 1250 TL'nin 200 lirası ödendi 0 tl niz kaldı 09.10.2019 tarihinde pos cihazında yatan 250 TL'den 1050 TL'nin 250 lirası ödendi 0 tl niz kaldı gibi Cvp: Metin Kutusu - berduş - 09/10/2019 yalnız para hangi tarihte yatırılmışsa o tarhi yazıyor, neden son ödeme tarihini yazsın ki? ayrıca Not alanı kısa metin formatında o kadar veri fazla gelmez mi? ilkinde sorun çıkarmasa bile farklı zamanlarda eksik yatırılmış paraların üste üste eklenebildiğini düşünürsek sorun çıkarabilir '19.09.2019 tarihinde yatan 50 TL'den 150 TL'nin 50 lira ödendi 19.09.2019 tarihinde yatan 150 TL'den 100 TL'nin 100 lira ödendi txtKaynak = IIf(dblVerilen < dblx, " kalan " & dblBakiye + dblx, " tarihinde yatan " & dblVerilen) yukardaki satır aşağıdaki gibi düzenleyip dener misiniz? sadece kırmızı alan aklendi txtKaynak = IIf(dblVerilen < dblx, " kalan " & dblBakiye + dblx, " tarihinde " & Me.ODEMESEKLI & " yatan " & dblVerilen) Cvp: Metin Kutusu - berduş - 09/10/2019 kodu aşağıdaki gibi düzenler misiniz? kırmızı kodlar eklendi txtOdemeSekli = Form_FRM_UYEODEMETABLOSU.ODEMESEKLI '<--Eklendi txtKaynak = IIf(dblVerilen < dblx, " kalan " & dblBakiye + dblx, " tarihinde " & Nz(txtOdemeSekli, "") & " yatan " & dblVerilen) '<--değişti Kod:
txtOdemeSekli = Form_FRM_UYEODEMETABLOSU.ODEMESEKLI Cvp: Metin Kutusu - berduş - 09/10/2019 yapılan değişiklikler kırmızı ile gösterilmiştir mdl_devir Modülü --> FazlaDagit porsedürü Sub FazlaDagit(Optional Kimlik As String = "") ==> Sub FazlaDagit(Optional Kimlik As String = "", Optional OdemeSekil As String = "") _______________________________________________________ txtKaynak = IIf(dblVerilen < dblx, " kalan " & dblBakiye + dblx, " tarihinde yatan " & dblVerilen)==> txtKaynak = IIf(dblVerilen < dblx, " kalan " & dblBakiye + dblx, " tarihinde " & OdemeSekil & " yatan " & dblVerilen) _______________________________________________________ FRM_UYEODEMETABLOSU formu --> OdenenTar_Click olayının tamamı Private Sub OdenenTar_Click() On Error GoTo Err_OdenenTar_Click Dim SqlGuncelle As String SqlGuncelle = " update TBLUYEGENELBIL set " & _ " KalanPara=nz(KalanPara,0) + ccur('" & Me.txtVerilen & "') " & _ " where KIMID=" & Me.KIMID CurrentDb.Execute SqlGuncelle DoCmd.RunCommand acCmdSaveRecord If Me.kalanpara <= 0 Then Exit Sub FazlaDagit Me.KIMID, Me.ODEMESEKLI Me.Requery Me.txtVerilen.Value = "0" Err_OdenenTar_Click: 'MsgBox Err.Description 'Resume Exit_OdenenTar_Click End Sub Cvp: Metin Kutusu - metınaycıcek - 09/10/2019 (09/10/2019, 09:36)berduş yazdı: yapılan değişiklikler kırmızı ile gösterilmiştirSayın Hocam İnşallah mesai sonrası evde bakıp döneyim Cvp: Metin Kutusu - metınaycıcek - 10/10/2019 Sayın Hocam Allah cc razı olsun işimi gördü geç cevap verdiğim içinde özür dilerim. Hakkınızı helal ediniz. |