Skip to main content

AccessTr.neT M.


Metin Kutusu

Çözüldü #1
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 

.rar ApartGelirGiderTakipPrg-01-10-2019.rar (Dosya Boyutu: 765,92 KB | İndirme Sayısı: 8)
Cevapla
#2
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)

Cevapla
...........
#3
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
txtKaynak = IIf(dblVerilen < dblx, " kalan " & dblBakiye + dblx, " tarihinde " & Nz(txtOdemeSekli, "") & " yatan " & dblVerilen)

Cevapla
#4
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

Cevapla
...........
#5
(09/10/2019 09:36)berduş Adlı Kullanıcıdan Alıntı: 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
Sayın Hocam İnşallah mesai sonrası evde bakıp döneyim

Cevapla
#6
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.

Cevapla
...........

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task