Skip to main content

AccessTr.neT


VBA ada olay oluşturma sorunu

ercansahiner
ercansahiner
1
1752

VBA ada olay oluşturma sorunu

#1
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
Cevapla
#2
.rar Kesin haciz tarihi.rar (Dosya Boyutu: 28,59 KB | İndirme Sayısı: 4)
(03/03/2013, 00:10)ercansahiner yazdı: 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
Son Düzenleme: 03/03/2013, 21:23, Düzenleyen: ercansahiner.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da