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

Derecelendirme: 0/5 - 0 oy

ercansahiner

Üye
Kullanici Avatari
Üye
E.... Ş....
26
8
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
Cevapla

ercansahiner

Üye
Kullanici Avatari
Üye
E.... Ş....
26
8
03/04/2010
5
Denizli
Ofis 2010
15/01/2017,22:36

.rar   Kesin haciz tarihi.rar (Dosya Boyutu: 28,59 KB / İndirme Sayısı: 4)
(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
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  İlişkisiz Tablo Ve Kayıt Kontrolü Sorunu bonur82 1 160 15/06/2017, 14:32 ozanakkaya
  Access Dosyası Yedekleme Şifre Sorunu pelitt 3 224 28/05/2017, 17:11 atoz112
Exclamation Access De Toplu Sorgu Formu Oluşturma rmznaydemr 3 335 02/03/2017, 05:37 ozanakkaya
  Veri çekme ve Veritabanı oluşturma ATANALİZ 3 546 10/11/2016, 18:04 atoz112
Question vb.net site tarama sorunu mmodelisi 18 1.993 17/06/2016, 17:41 ozanakkaya

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.