VBA ada olay oluşturma sorunu
Tarih
03/03/2013 00:10
Konu Sahibi
ercansahiner
Yorumlar
1
Okunma
858
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
Sponsor Reklam

.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
Exclamation Access De Toplu Sorgu Formu Oluşturma rmznaydemr 3 205 02/03/2017, 05:37 ozanakkaya
  Veri çekme ve Veritabanı oluşturma ATANALİZ 3 350 10/11/2016, 18:04 atoz112
Question vb.net site tarama sorunu mmodelisi 18 1.227 17/06/2016, 17:41 ozanakkaya
Exclamation accesste veri toplama sorunu Furkan Sezer 2 610 31/12/2015, 08:25 ozanakkaya
  Access Açıldığında Olay Yordamı Hatası Nasıl Çözülür?? mehami 1 879 09/05/2015, 22:47 ozanakkaya


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