tabana yada tavana yuvarla

[karaayhan]

bizim soru kaynadı sarınım ilk satıra peşin alınan aynı işlem tarihi ile birinci taksit olarak yazdırılacaktı?

soruyu hatırlatmak babında yazdım ..

İYİ BAYRAMLAR..

 

[mehmetdemiral]

Özür dilerim.. Olmazsa ben bu konuyla ilgili yeni bir başlık açayım.

 

[modalı]

Dim rs As New ADODB.Recordset
rs.Open "tarih", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
z = taksay.Value
For i = 1 To z Step 1
Dim işlemgünü As Variant
Dim aciklama As Variant
Dim ödeme As Variant
Dim tar1 As Date
Dim tar As Variant
Dim n As Variant
Dim par As Variant
Dim fazla As Variant
işlemgünü = Me.işlemtarihi
aciklama = Me.açıklama
ödeme = Me.ödeme_şekli
tar1 = bastar.Value
par = toplam.Value \ taksay.Value
fazla = toplam.Value Mod taksay.Value
If i = z Then
par = par + fazla
End If
n = no.Value
tar = DateAdd("m", i, tar1)
rs.AddNew
rs("no") = n
rs("fiat") = par
rs("tarih") = tar
rs("açıklama") = aciklama
rs("şekil") = ödeme
rs("işlemtar") = işlemgünü
rs.Update
Next i
Set rs = Nothing
Set conn = Nothing
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
Me.tarih_altformu.Requery
End Sub

kodlar bu idi ancak peşin olarak müşterinin ödediğini taksit yaparken ilk satırda işlem tarihi ile aynı olacak şekilde birinci taksit şeklinde alt formda görmemiz mümkün mü?

taksit tarihi taksit miktarı ödeme tarihi öd.miktarı ödeme şekli
----------- ------------ ------------ ---------- ------------
işlem tarihi peşin tutar işlem tarihi peşin tutar Peşin

şimdiden teşekkürler?

Sayın karaayhan çözüm çok basit:

For i = 1 To z Step 1

satırını

For i = 0 To z-1 Step 1

olarak değiştirirseniz o zaman ilk taksit tarihi işlem tarihiyle aynı olur. Yani işlem tarihine 0 ay eklemiş olursunuz.

İyi çalışmalar:hey:

 

[karaayhan]

Sorun o değil ki sadece sayın modalı,
ilk satıra (işlem tarihi ile aynı tarihe eşit) peşin ödeme miktarını ve ödeme şekline de PEŞİN yazacak şekilde yeni bir satır eklemek istiyorum...

teşekkürler iyi çalışmalar

 

[karaayhan]

sorularım biryerler de(kopuyor) ve çözülemeden kalıyor!

nedeni sorunun imkansız oluşu değilse benim şanssızlığım olabilir mi?

 

[karaayhan]

peşinat alınırsa bunu ilk taksit olarak eklemek mümkün değil mi?
yok olmaz derseniz başka yollar deneyeceğim kendimce!


iyi çalışmalar

 

[modalı]

Sayın karaayhan,

Uygulamanın son halini ekleyebilir misiniz?

Bir de ayrıntılı olarak tam olarak yapmak istediğinizi toparlayabilir misiniz?

İmkânsız olaylar pek az bunu biliyorsunuz

İyi çalışmalar

 

[karaayhan]

örnek aşağıda ilgine teşekkürler üstadım...

Burada istenen peşinat olunca bu peşinatı; taksit tarihi, ödeme tarihi=işlem tarihi olacak,
açıklamaya ="Peşin Ödendi" yazacak VE BU PEŞİNATI İLK TAKSİT OLARAK GÖSTERECEK... ?

olay bundan ibarettir...


sayın modalı, ilginize teşekkür ederim ...örnek ek'te kolay gelsin...

 

[modalı]

Sayın karaayhan,

Kodlar ekte, değiştirip deneyin. Kırmızılar yeni.

Private Sub Komut17_Click()
Dim işlemgünü As Variant
Dim aciklama As Variant
Dim ödeme As Variant
Dim tar1 As Date
Dim tar As Variant
Dim n As Variant
Dim par As Variant
Dim fazla As Variant
Dim rs As New ADODB.Recordset
msg = MsgBox([işlemtarihi] & " Tarihli işleme ait " & [toplam] & " YTL tutar için taksitlendirmeyi kabul ediyormusunuz", vbQuestion + vbYesNo, "İŞLEM İÇİN ONAY İSTENİYOR")
If (msg = vbYes) Then
rs.Open "tarih", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
[COLOR=red]If Me.pesin <> 0 Then
rs.AddNew
    rs("no") = Me.no
    rs("fiat") = Me.pesin
    rs("tarih") = Me.işlemtarihi
    rs("aciklama") = "Peşin Ödendi!"
    rs("açıklama") = Me.açıklama
    rs("şekil") = Me.ödeme_şekli
    rs("işlemtar") = Me.işlemtarihi
    rs("ödedi") = -1
    rs("ödemetarihi") = Me.işlemtarihi
    rs("ödememiktarı") = Me.pesin
rs.Update[/COLOR]
End If
z = taksay.Value
For i = 1 To z Step 1
işlemgünü = Me.işlemtarihi
aciklama = Me.açıklama
ödeme = Me.ödeme_şekli
tar1 = bastar.Value
par = toplam.Value \ taksay.Value
fazla = toplam.Value Mod taksay.Value
If i = z Then
par = par + fazla
End If
n = no.Value
tar = DateAdd("m", i, tar1)
rs.AddNew
rs("no") = n
rs("fiat") = par
rs("tarih") = tar
rs("açıklama") = aciklama
rs("şekil") = ödeme
rs("işlemtar") = işlemgünü
rs.Update
Next i
Set rs = Nothing
Set conn = Nothing
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
Me.tarih_altformu.Requery
'TAKSİTLERİ CİRO İÇİ BİR TABLOYA EKLESİN (PEŞİN OLURSA DA BİR ZAHMET)
'DoCmd.SetWarnings False
'DoCmd.OpenQuery ("TAKSİTLENEN MÜŞTERİ EKLE")
Else
MsgBox "işlem iptal edildi", vbInformation, "İPTAL"
Cancel = True
'DoCmd.GoToControl ("formyazdır")
End If
End Sub

İyi çalışmalar:hey:

 

[karaayhan]

Sayın Modalı, insan yolunu bulur ancak klavuz lazım belkide
uzun zamandır bizlere yol gösterdiğiniz için tekrar tekrar teşekkürler

tam buydu istediğim...

kolay gelsin..

 

[karaayhan]

sorunun devamı geldi ?

müteaddit defalar taksitlendirme yaptığımızda bu taksitler birbirine karıştığından
her taksit grubunu farklı zemin renginde göstermesini istiyorum.

diyelim ki; (01.01.2008-01.05.2008) arası 5 taksit var bunu kırmızı zeminli
(01.03.2008-01.07.2008) arası 4 taksit var bunu yeşil zeminli
göstersin diyorum bu mümkünmüdür ?
(taksit tarihleri sabit değil malum)


kolay gelsin

 

[ALİ FUAT]

Selamlar Dogru BaŞliktami AÇiyorum Bİlmİyorum Ama Benİmde BÖyle Bİr Sorunum Var Uzman ArkadaŞlardan İstegİm Örnek 1,21-1,22-1,23 DeĞerlerİnİ AŞagi Yuvarlamasi 1.20 Olmasi 1,24-1,25-1,26-1,27-1,28 Degerlerİnİ 1,25 Olarak Yuvarlamasini 1,29 Ve Üzerİnİ 1.30 Olarak Yuvarlamasini İstİyorum Şİmdİden Yardimlariniz İÇİn TeŞekÜrler Umarim Çok Şey İstememİŞİmdİr..

 

[modalı]

Sayın ALİ FUAT,

Sizin için özel fonksiyon yazılması gerekiyor sanırım. Ama şu anda yurtdışında olduğum için kullandığım bilgisayarda imkânsız.

Bir hafta sabredebilirseniz yardımcı olmaya çalışırım.


İyi çalışmalar

 

[ALİ FUAT]

atac yapamıyorum deneme amaçlı gönderiyorum konu dışıdır

 

[ALİ FUAT]

deneme

deneme amaçlı gönderiyorum atac yapamıyorum konu dışıdır

 

[gulsum1]

taksitlendirme yaparken her kayıt grubuna bir sayı eklersiniz daha sonra taksitlendirme kodu çalışmadan önce tablodaki o kişiye ait taksitleri gruplyarak sorgular ve en son sayıya bir ekleyerek yeni taksit grubuna ekler senin yapacağın daha sonra bu eklenenen sayı grubuna göre satırları renkelndirmen gayet basit bir şey

şimdi bir kişi çıkar soru ne zaman sorulmuş cevap ne zaman veriliyor der duyabiliyorum kimbilir belki birine lazım olur

 

[karaayhan]

taksitlendirme yaparken kuruşları göz ardı ederek yani tabana yuvarlayarak ekleme yapıyor mümkünse bir deneme yapın göreceksiniz bunu nasıl giderebiliriz...


teşekkürler iyi çalışmalar

 

[yaşamaknegüzel]

fonksiyon sonuçu 2,4 çıkan sonucu başka bir hücrede 2,5 olarak yuvarlamak istiyorum,
yardımcı olabilirmisiniz.