Skip to main content

AccessTr.neT


Tüm Üyelere Toplu Taksitlendirme

metınaycıcek
metınaycıcek
6
1165

Tüm Üyelere Toplu Taksitlendirme

Çözüldü #1
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
.rar BBLOKGELGID.rar (Dosya Boyutu: 597,88 KB | İndirme Sayısı: 16)
Cevapla
#2
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
Cevapla
#3
(04/07/2019 00:57)halily Adlı Kullanıcıdan Alıntı: 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
Cevapla
#4
Sayın Hocam 
taksıtlendır komutu
tablo olarak
tbluyeodemetablosunu
kullanıyor
Cevapla
#5
(04/07/2019 00:57)halily Adlı Kullanıcıdan Alıntı: 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
.rar Kitap1.rar (Dosya Boyutu: 9,42 KB | İndirme Sayısı: 5)
Cevapla
#6
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.
"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da