AccessTr.neT

Tam Versiyon: Tüm Üyelere Toplu Taksitlendirme
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
Sayın Hocam 
taksıt modulunde 
uye tek tek taksıtlendırme yapa biliyorum
ama toplu taksıtlendırmeyı becermedım
ıslem sırası soyle
taksıt modulune gırıyorum
-uye secımını yapıyorum
-formun ustarafında bulunan kutucuklara benden ıstenılen lerı yazı yorum
-taksıtlendır komutuna bastığıma taksıt ıslemını yapıyor
-benim istediğim hem bunu yapmak ,ayrıca tümüne aynı anda aynı taksıt işlemini uygulamak
mümkümmü?
 programın tümünü göndermek zorunda kaldım kusura bakmayın
yüklenici:yönetici
şifre       :y
1 - taksitlendirme işlemi hangi tabloyu kullanıyor
2 - eğer mümkünse bir Excel tablosunda sonuç nasıl olmalı gösterebilirseniz yardımcı olmaya çalışırım
iyi çalışmalar
(04/07/2019, 00:57)halily yazdı: [ -> ]1 - taksitlendirme işlemi hangi tabloyu kullanıyor
2 - eğer mümkünse bir Excel tablosunda sonuç nasıl olmalı gösterebilirseniz yardımcı olmaya çalışırım
iyi çalışmalar
Sayın Hocam
tablo olarak
-tbluyegenelbıl
-tbluyeodemetablosu
sorgu olarak
srg_uyegenel
Sayın Hocam 
taksıtlendır komutu
tablo olarak
tbluyeodemetablosunu
kullanıyor
(04/07/2019, 00:57)halily yazdı: [ -> ]1 - taksitlendirme işlemi hangi tabloyu kullanıyor
2 - eğer mümkünse bir Excel tablosunda sonuç nasıl olmalı gösterebilirseniz yardımcı olmaya çalışırım
iyi çalışmalar
Merhaba, toplu taksitlendirme işlemi için forma yeni buton ekle, butonun tıklandığında olayına

Kod:
If MsgBox("TAKSİT İŞLEMİNİ GERÇEKLEŞTİREYİMMİ?", vbYesNo, "GERİ ALMA UYARISI") = vbYes Then

    If IsNull([A2]) Or IsNull([A3]) _
    Or IsNull([AA4]) Or IsNull([AA5]) Or IsNull([A5]) _
    Or IsNull([AA7]) Or IsNull([A6]) Or IsNull([C1]) Or IsNull([GF1]) Or IsNull([BT]) Or IsNull([ACIK1]) Then
        MsgBox "Lütfen Boşlukları doldurunuz!!"
        DoCmd.GoToControl "DaıreNo"

        Exit Sub
    End If

    If Me.AA4 > 0 Then
    'Pesin
    End If
Set db = CurrentDb
Dim Rc As DAO.Recordset
Dim rstRecords As Recordset
'Dim a As Integer, s As Integer
Set rstRecords = db.OpenRecordset("tbl_UYEGENEL")
Set Rc = CurrentDb.OpenRecordset("TBLUYEODEMETABLOSU")
Dim myString, myString1 As String
Dim myNumber As Variant
Dim x, y As Integer
'Dim e As Date
y = CInt(A5.Value)

GSayi = 1
rstRecords.MoveFirst
Do While Not rstRecords.EOF

    For x = 1 To y
        Rc.AddNew
            If x > 0 Then
                Rc![DaıreNo] = rstRecords.Fields(2)
                Rc![adsoyad] = rstRecords.Fields(4)
                Rc![BLOK] = rstRecords.Fields(1)
                Rc![KIMID] = rstRecords.Fields(0)
                Rc![BORCNO] = rstRecords.Fields(0)
                Rc![ACIKLAMA] = ACIK1.Value
                Rc![BORCLANTAR] = BT.Value
                Rc![GFNO] = GF1.Value
                Rc![AdatCinsi] = C1.Value
                Rc![TaksitSay] = "" & "( " & x & " / " & y & " )"
                Rc![TaksitMik] = AA7.Value
                S = DatePart("yyyy", A6.Value)
                A = DatePart("m", A6.Value)
                E = DatePart("d", A6.Value)
                A = A          '+ 1
                Rc![VadeTar] = DateSerial(S, A, E)
                ' Rc![VadeTar] = DateAdd("ww", X, A6.Value)
            End If
                If x > 1 Then
                    Rc![VadeTar] = DateAdd("m", x - 1, DateSerial(S, A, E))
                End If
                Rc.Update
    Next x
       
    rstRecords.MoveNext

Loop
       
rstRecords.Close
Rc.Close
db.Close
Set Rc = Nothing
Set rstRecords = Nothing
Set db = Nothing
       
Form.Refresh
Else
End If

kodu ekle.
Sayfalar: 1 2