VBA ada olay oluşturma sorunu
Tarih
03/03/2013 00:10
Konu Sahibi
ercansahiner
Yorumlar
1
Okunma
833
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
Sponsor Reklam
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
  Veri çekme ve Veritabanı oluşturma ATANALİZ 3 219 10/11/2016, 18:04 atoz112
Question vb.net site tarama sorunu mmodelisi 18 994 17/06/2016, 17:41 ozanakkaya
Exclamation accesste veri toplama sorunu Furkan Sezer 2 547 31/12/2015, 08:25 ozanakkaya
  Access Açıldığında Olay Yordamı Hatası Nasıl Çözülür?? mehami 1 822 09/05/2015, 22:47 ozanakkaya
Exclamation VERİ TABANI SORUNU 1DK BAKARMISINIZ! 12kopux 4 777 29/04/2015, 14:30 ozanakkaya


Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya