VBA ada olay oluşturma sorunu - Baskı Önizleme +- AccessTr.neT (https://accesstr.net) +-- Forum: AccessTr.neT Genel (https://accesstr.net/forum-accesstr-net-genel.html) +--- Forum: Çöp Kutusu (https://accesstr.net/forum-cop-kutusu.html) +--- Konu Başlığı: VBA ada olay oluşturma sorunu (/konu-vba-ada-olay-olusturma-sorunu.html) |
VBA ada olay oluşturma sorunu - ercansahiner - 03/03/2013 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 Cvp: VBA ada olay oluşturma sorunu - ercansahiner - 03/03/2013 (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 |