+- 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ığı: if&else (/konu-if-else.html)
Sayfalar:
1
2
if&else - saslan33 - 11/05/2011
Arkadaşlar kolay gelsin
Desteklerinizle bir program hazırlamaya çalışıyorum.
a= Tedbir Başlama Tarihi
b= Tedbir Süresi
c= Tedbir Sonlandırma Tarihi
d= Tedbir Bitiş Tarihi
Arkadaşlar a ve b alt tablodan otamatik değerlerini alıp hücrelerini dolduruyor.
Ben bir buton oluşturup tıkladığında komutuna bir formül uygulamak istiyorum. Uyguludımd ama bir yerde hata yapıyorum.
if c="" then
d=a+b
else
d=c
end if
Yani arkadaşlar tedbir sonlandırma tarihi boşso d ye a ile b yi toplayıp yazsın boş değilse yani orada tarih girilmişse o tarihi d ye yazsın istiyorum.
Cvp: if&else - Coskun0559 - 11/05/2011
örneğinizi ekleyiniz
Cvp: if&else - ercansahin - 11/05/2011
Öncelikle Coşkun hocanın belirttiği gibi örnek eklemeniz gerektiğini hatırlatırım.
Sonrasında ise yukarıda değişkenleri tanımlamadığınızı görmekteyiz bu nedenle;
dim a, b, c, d
a= Me.[Tedbir Başlama Tarihi]
b= Me.[Tedbir Süresi]
c= Me.[Tedbir Sonlandırma Tarihi]
d= Me.[Tedbir Bitiş Tarihi]
if c="" then
d=a+b
Else
d=c
End ifCvp: if&else - saslan33 - 12/05/2011
Örnek ekledim arkadaşlar lütfen yardım
Cvp: if&else - erdem23 - 12/05/2011
Private Sub Komut12_Click()
Dim tarih, deger As Date
tarih = TedbirBaslamaTarihi
deger = TedbirSuresi
If TedbirErkenBitisTarihi.Value = Null Then
TedbirBitisTarihi = DateAdd("d", deger, tarih)
Else
TedbirBitisTarihi = TedbirErkenBitisTarihi
End If
End SubUmarım İşine Yarar
Cvp: if&else - saslan33 - 12/05/2011
Sayın erdem23 verdiğiniz kodları uyguladım yine çalışmıyor. Örnek üzerinde yardımcı olusanız sevinirim