Skip to main content

AccessTr.neT


Borclandırma

metınaycıcek
metınaycıcek
2
1048

Borclandırma

Çözüldü #1
Sayın Hocalarım
değerli hocamızın yapmış olduğu aidat programında yıllık borçlandırma komutunu kullanark
tek bir kat malikini borçlandırma yapa biliyorsun , benim yapmak istediğim tüm kat maliklerini topluca borçlandırma 
yardımcı olursanız memnun olurum.
saygılarımla
.rar PyramiD Aidat.rar (Dosya Boyutu: 69,52 KB | İndirme Sayısı: 6)
Cevapla
#2
Tüm Daireleri Borçlandır butonu eklenmiştir. ekteki örneği inceleyip geri bildirimde bulununuz. 

Yeni Butona Eklenip - Revize Edilen Kodlar.
    If vbYes = MsgBox(Me.IlkTarih & " / " & Me.SonTarih & " tarihleri arası aylık borçlandırma yapılsın mı?", vbCritical + vbYesNo + vbDefaultButton2, "Aylık servis") Then
Dim rT As New ADODB.Recordset
Dim rS As Recordset
Dim sOrGu As String
Dim TaR As Date
sOrGu = "SELECT Daireler.Daire FROM Daireler;"
rT.Open sOrGu, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
Do Until rT.EOF
TaR = Me.IlkTarih
   If Me.Bedel = 0 Then: MsgBox "AİDAT BORCU SIFIR OLAMAZ", vbCritical, "bİLGİ": Exit Sub
       Set rS = CurrentDb.OpenRecordset("Hareketler")
       Do Until CVDate(islemtarihi) >= CVDate(Me.SonTarih)
           If Month(CVDate(Me.IlkTarih)) = 12 Then Me.IlkTarih = Day(CVDate(Me.IlkTarih)) & ".01." & Year(CVDate(Me.IlkTarih)) + 1: GoTo Devam
           If Month(CVDate(Me.IlkTarih)) <= 11 Then Me.IlkTarih = Day(CVDate(Me.IlkTarih)) & "." & Month(CVDate(Me.IlkTarih)) + 1 & "." & Year(CVDate(Me.IlkTarih)): GoTo Devam
Devam:
           islemtarihi = CVDate(Me.IlkTarih)
           rS.AddNew
           rS.Fields("Tarih") = CVDate(islemtarihi)
           rS.Fields("Daire") = rT!Daire
           rS.Fields("Borc") = Me.Bedel
           rS.Fields("Alacak") = 0
           rS.Fields("Doviz") = "TL"
           rS.Fields("Aciklama") = Year(CVDate(islemtarihi)) & "/" & Month(CVDate(islemtarihi)) & ".ay aidatı"
           rS.Update
       Loop
 Me.IlkTarih = TaR
     islemtarihi = Null
       rS.Close
rT.MoveNext
Loop
       MsgBox "Önümüzdeki dönem borçlar oluşturuldu.", vbInformation, "İşlem Tamam"
   Else
   End If
.rar Aidat.rar (Dosya Boyutu: 74,11 KB | İndirme Sayısı: 23)
POWER 'un Çekirgesi :=)
ozguryasin, 23-09-2009 tarihinden beri AccessTr.neT AİLESİ üyesidir.
Access'i Profesyonel Şekilde Öğrenmek İçin https://www.accesstr.net Ailesi Yeter. alkis


Site Kurallarını sorularınızın hızlı cevaplanması için kesinlikle okuyunuz.
Cevapla
#3
Sayın ozguryasin hocam
değerli katkılarınızdan dolayı 
Allah cc razı olsun,
çok teşekkür ederim.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da