Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
02/08/2018 23:49
Konu Sahibi
metınaycıcek
Yorumlar
2
Okunma
304
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
metınaycıcek

metınaycıcek

Aktif Üye*
60966
Me.... Ay....
 46
 18
 105
 30/01/2014
29
 Erzurum
 hrt teknik.
 Ofis 2007
 Dün,01:39
Çözüldü 
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




ozguryasin

ozguryasin

Uzman
9727
Öz.... Ya....
 36
 44
 1.131
 23/09/2009
613
 Bursa
 Yazılım
 Ofis 2016 32 Bit
 Dün,16:14
Tüm Daireleri Borçlandır butonu eklenmiştir. ekteki örneği inceleyip geri bildirimde bulununuz. 

Yeni Butona Eklenip - Revize Edilen Kodlar.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
    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


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.

...........
metınaycıcek

metınaycıcek

Aktif Üye*
60966
Me.... Ay....
 46
 18
 105
 30/01/2014
29
 Erzurum
 hrt teknik.
 Ofis 2007
 Dün,01:39
Sayın ozguryasin hocam
değerli katkılarınızdan dolayı 
Allah cc razı olsun,
çok teşekkür ederim.




Konuyu Okuyanlar: 1 Ziyaretçi

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.