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.
if&else
örneğinizi ekleyiniz
GERİ SAYIM;Sen doğduğunda başladı ! Eğer (9) canlı bile olsaydın en fazla (8) kez kaçabilirdin Ölümden ! Bil ki (7) Düvele sultan dahi olsan yerin (6) Mekan olacak sana. En fazla (5) Metre kumaş götürebileceksin ! Kapatacaksın (4) açsanda gözlerini ! Bu (3) günlük fani dünyada Azraile (2) kat olup yalvarsanda nafile EceL geldiğinde (1) gün öleceksin ! İşte, o an herşey (0) dan başlayacak. Çünkü,
ÖLÜM BİR YOK OLUŞ DEĞİL,YENİDEN DOĞUŞTUR !
ÖLÜM BİR YOK OLUŞ DEĞİL,YENİDEN DOĞUŞTUR !
Ö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;
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 if
yazarak deneyiniz, her ne kadar bu nesneler açıklamanızda tarih/saat olarak gözüksede tabloda hangi türle yazdığınızı bilemediğimiz için değişken tanımlarken açık bırakarak hepsine geçerli olmasını sağladık.
Örnek ekledim arkadaşlar lütfen yardım
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 Sub
Umarım İşine Yarar
Sayın erdem23 verdiğiniz kodları uyguladım yine çalışmıyor. Örnek üzerinde yardımcı olusanız sevinirim
Konuyu Okuyanlar: 1 Ziyaretçi