AccessTr.neT
Belirli Tarih İçin İşlem Yapma - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Belirli Tarih İçin İşlem Yapma (/konu-belirli-tarih-icin-islem-yapma.html)



Belirli Tarih İçin İşlem Yapma - olcay.akkaya - 13/10/2019

Değerli hocalarım, 
Forum içinde çok araştırdım ama bulamadım belki de gözümden kaçtı. Şöyle bir işlem yapmak istiyorum:
Eğer bugünün tarihi ayın 22'sinden önceyse metin kutusuna bu ayın 22'sini yazmak istiyorum değilse yanı bugünün tarihi ayın 22'sinden sonra ise gelecek ayın 22'sini yazmak istiyorum. bugün 13.10.2019 olduğu için buna bağlı olarak formdaki metin kutusunun 22.10.2019 değerini almasını istiyorum. bugünün tarihi 24.10.2019 olduğunda ise metin kutusunun 22.11.2019 değerini almasını istiyorum.
Yaptığım çalışmaya münhasır bir işlem olmadığı için yani genel bir konu olduğu için örnek eklemedim. Yardımlarınız için şimdiden çok teşekkürler.


Cvp: Belirli Tarih İçin İşlem Yapma - berduş - 13/10/2019

Me.Metin0 = IIf(Day(Date) < 22, "22." & Format(Date, "mm.yyyy"), "22." & Month(Date) + 1 & "." & Year(Date))
kodu işinize yarayabilir
iyi çalışmalar


Cvp: Belirli Tarih İçin İşlem Yapma - olcay.akkaya - 13/10/2019

Hocam çok teşekkürler hemen deneyeceğim.


Cvp: Belirli Tarih İçin İşlem Yapma - olcay.akkaya - 15/10/2019

berdus Hocam 
paylaştığınız kodu kullandım tam olarak işimi gördü çok teşekkür ederim.


Cvp: Belirli Tarih İçin İşlem Yapma - berduş - 15/10/2019

eğer referans değerini tablo yada metin kutusundan alacaksanız 22 yerine o alan/kutusu yazılmalı
ama dikkat edin "22" gibi tırnak içindeki ifadelerde doğrudan değeri yazın " işaretsiz
Me.Metin0 = IIf(Day(Date) < Me.Metin1, Me.Metin1 &"." & Format(Date, "mm.yyyy"), Me.Metin1 &"." & Month(Date) + 1 & "." & Year(Date)) gibi


Cvp: Belirli Tarih İçin İşlem Yapma - olcay.akkaya - 15/10/2019

Evet şuan tam bunun için uğraşıyordum. Ellerinize sağlık.