Skip to main content

AccessTr.neT


if&else

if&else

Çözüldü #1
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.
Cevapla
Çözüldü #2
ö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 !
Cevapla
Çözüldü #3
Ö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.
Cevapla
Çözüldü #4
Örnek ekledim arkadaşlar lütfen yardım
.rar Örnek.rar (Dosya Boyutu: 23,75 KB | İndirme Sayısı: 10)
Cevapla
Çözüldü #5

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
Cevapla
Çözüldü #6
Sayın erdem23 verdiğiniz kodları uyguladım yine çalışmıyor. Örnek üzerinde yardımcı olusanız sevinirim
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task