if&else
Tarih
11/05/2011 14:58
Konu Sahibi
saslan33
Yorumlar
9
Okunma
1927
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



saslan33
Aktif Üye
Kullanici Avatari
Aktif Üye
30
10/02/2009
8
Zonguldak
Ofis 2010
06/04/2015,15:43
Çözüldü 
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


Coskun0559
Uzman
Kullanici Avatari
Uzman
C.... Ç....
1.222
02/11/2008
505
Tekirdağ
-
30/11/2016,17:15
Çözüldü 
ö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


ercansahin
BlackEagle
Kullanici Avatari
Uzman
E.... Ş....
3.733
14/11/2008
Ankara
Ofis 2010 32 Bit
Dün,21:33
Çözüldü 
Ö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;

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
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


saslan33
Aktif Üye
Kullanici Avatari
Aktif Üye
30
10/02/2009
8
Zonguldak
Ofis 2010
06/04/2015,15:43
Çözüldü 
Örnek ekledim arkadaşlar lütfen yardım


Ek Dosyalar
.rar   Örnek.rar (Dosya Boyutu: 23,75 KB / İndirme Sayısı: 10)
Cevapla


erdem23
Cezalı
Kullanici Avatari
Cezalı Üye
29
5
21/04/2011
Elazığ
Ofis 2007
23/05/2011,19:10
Çözüldü 

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
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


saslan33
Aktif Üye
Kullanici Avatari
Aktif Üye
30
10/02/2009
8
Zonguldak
Ofis 2010
06/04/2015,15:43
Çözüldü 
Sayın erdem23 verdiğiniz kodları uyguladım yine çalışmıyor. Örnek üzerinde yardımcı olusanız sevinirim
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi



Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya