AccessTr.neT

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.

örneğinizi ekleyiniz

Ö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 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