Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
03/03/2013 00:10
Konu Sahibi
ercansahiner
Yorumlar
1
Okunma
1141
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
ercansahiner

ercansahiner

Üye
17739
Er.... Şa....
 58
 8
 26
 03/04/2010
5
 Denizli
 
 Ofis 2010
 15/01/2017,22:36
arkadaşlar öncelikle teşekkürler çok yardımcı oluyorsunuz, örnek programı ekte gönderiyorum, yardımcı olursanız memnun olurum, ACİLLLL

If Me.HacizTarihi >= DateAdd("d", CInt(İtirazSüresi), Me.ÖdemeEmriTebliğTarihi) Then
Me.KesinHacizTarihi = Me.HacizTarihi
Else
Me.KesinHacizTarihi = DateAdd("d", CInt(İtirazSüresi), Me.ÖdemeEmriTebliğTarihi)
End If

uygulaması ile;

Dim TarihBelirle As Date
Dim GunBelirle As Integer
TarihBelirle = Me.ÖdemeEmriTebliğTarihi + İtirazSüresi
GunBelirle = Weekday(TarihBelirle, vbMonday)

Select Case GunBelirle
Case 5
TarihBelirle = DateAdd("d", 3, TarihBelirle)
Me.KesinHacizTarihi = TarihBelirle
Case 6
TarihBelirle = DateAdd("d", 3, TarihBelirle)
Me.KesinHacizTarihi = TarihBelirle

Case 7
TarihBelirle = DateAdd("d", 2, TarihBelirle)
Me.KesinHacizTarihi = TarihBelirle

Case Else
TarihBelirle = DateAdd("d", 1, TarihBelirle)
Me.KesinHacizTarihi = TarihBelirle
End Select

ilk olayda istenilen tarihleri yazdırabiliyorum, ikinci olaydada tarih belirle olayı ile son itiraz tarihi hafta içine rastlarsa bir sonraki günü, cuma gününe gelirse Pazartesi, cumartesi ve pazar gününe rastlar ise Salı gününün tarihi istediğim gibi yazdırdım,
ancak iki uygulamayı birleştiremiyorum, biraz açacak olursan

=IIf([HacizTarihi]>=[ÖdemeEmriTebliğTarihi]+[İtirazSüresi];[HacizTarihi];
IIf([HacizTarihi]<[ÖdemeEmriTebliğTarihi]+[İtirazSüresi];[ÖdemeEmriTebliğTarihi]+[İtirazSüresi]))
kesin haciz tarihi metin kutusuna yazacak ve aynı zamanda kesin haciz tarihi metin kutusundaki tarih Cuma ise Pazartesi, Cumartasi ve Pazar ise Salı, hafta içi bir gün ise o günün bir sonraki gününü vermesi gekerir,

DAHA BASİT VE PRATİK BİR YOLU VARMI



ercansahiner, 03-04-2010 tarihinden beri AccessTr.neT

ercansahiner

ercansahiner

Üye
17739
Er.... Şa....
 58
 8
 26
 03/04/2010
5
 Denizli
 
 Ofis 2010
 15/01/2017,22:36
(03/03/2013 00:10)ercansahiner Adlı Kullanıcıdan Alıntı: arkadaşlar öncelikle teşekkürler çok yardımcı oluyorsunuz, örnek programı ekte gönderiyorum, yardımcı olursanız memnun olurum, ACİLLLL

If Me.HacizTarihi >= DateAdd("d", CInt(İtirazSüresi), Me.ÖdemeEmriTebliğTarihi) Then
Me.KesinHacizTarihi = Me.HacizTarihi
Else
Me.KesinHacizTarihi = DateAdd("d", CInt(İtirazSüresi), Me.ÖdemeEmriTebliğTarihi)
End If

uygulaması ile;

Dim TarihBelirle As Date
Dim GunBelirle As Integer
TarihBelirle = Me.ÖdemeEmriTebliğTarihi + İtirazSüresi
GunBelirle = Weekday(TarihBelirle, vbMonday)

Select Case GunBelirle
Case 5
TarihBelirle = DateAdd("d", 3, TarihBelirle)
Me.KesinHacizTarihi = TarihBelirle
Case 6
TarihBelirle = DateAdd("d", 3, TarihBelirle)
Me.KesinHacizTarihi = TarihBelirle

Case 7
TarihBelirle = DateAdd("d", 2, TarihBelirle)
Me.KesinHacizTarihi = TarihBelirle

Case Else
TarihBelirle = DateAdd("d", 1, TarihBelirle)
Me.KesinHacizTarihi = TarihBelirle
End Select

ilk olayda istenilen tarihleri yazdırabiliyorum, ikinci olaydada tarih belirle olayı ile son itiraz tarihi hafta içine rastlarsa bir sonraki günü, cuma gününe gelirse Pazartesi, cumartesi ve pazar gününe rastlar ise Salı gününün tarihi istediğim gibi yazdırdım,
ancak iki uygulamayı birleştiremiyorum, biraz açacak olursak;

=IIf([HacizTarihi]>=[ÖdemeEmriTebliğTarihi]+[İtirazSüresi];[HacizTarihi];
IIf([HacizTarihi]<[ÖdemeEmriTebliğTarihi]+[İtirazSüresi];[ÖdemeEmriTebliğTarihi]+[İtirazSüresi]))

kesin haciz tarihi metin kutusuna yazacak ve aynı zamanda kesin haciz tarihi metin kutusundaki tarih Cuma ise Pazartesi, Cumartasi ve Pazar ise Salı, hafta içi bir gün ise o günün bir sonraki gününü vermesi gekerir, haciz tarihi boş ise kesin haciz tarihi metin kutusuna "HACİZ YOK" yazsın,yada boş gelsin

DAHA BASİT VE PRATİK BİR YOLU VARMI


ercansahiner, 03-04-2010 tarihinden beri AccessTr.neT

...........

Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  İlşikili Formlarda Kontrol Sorunu Yunus Bozkurt 4 347 08/07/2019, 14:04
Son Yorum: berduş
  Yeni Filtre Ve Sorgu Oluşturma Ramazan Akdağ 4 434 17/09/2018, 14:48
Son Yorum: ozanakkaya
  Tablodan Silme Sorunu fascioğlu 3 430 28/07/2018, 01:47
Son Yorum: ozanakkaya
  Birden Fazla Tabloda Arama Oluşturma ers6886 5 631 02/12/2017, 04:59
Son Yorum: ozanakkaya
  İlişkisiz Tablo Ve Kayıt Kontrolü Sorunu bonur82 1 499 15/06/2017, 14:32
Son Yorum: ozanakkaya

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