AccessTr.neT
Borclandırma - 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ığı: Borclandırma (/konu-borclandirma.html)



Borclandırma - metınaycıcek - 02/08/2018

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


Cvp: Borclandırma - ozguryasin - 03/08/2018

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



Cvp: Borclandırma - metınaycıcek - 03/08/2018

Sayın ozguryasin hocam
değerli katkılarınızdan dolayı 
Allah cc razı olsun,
çok teşekkür ederim.