2. tarihin 1. tarihden büyük olma şartı
Tarih
27/02/2009 11:40
Konu Sahibi
sinan55
Yorumlar
7
Okunma
2496
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



sinan55
Aktif Üye
Kullanici Avatari
Aktif Üye
134
07/02/2009
0
Samsun
Ofis 2013 Tr. 64 Bit
16/01/2015,09:40
Çözüldü 
merhaba arkadaşlar. benim sorunum bir form üzerindeki 6 tane tarihin birbirinden küçük olmama şartı. yani 6. tarihin 5 tarihten - 5. tarihin 4. tarihten - 4. tarihin 3. tarihten - 3. tarihin 2. tarihten 2. tarihin 1. tarihten küçük olmama şartı. eğer bir altı boşsa diğerinden küçük olmaması gerekiyor. yardımlarınız için şimdiden teşekkür ederim.
Cevapla


tdsharun
>>> O Şimdi Sivil<<<
Kullanici Avatari
Aktif Üye
778
06/11/2008
225
Kütahya
Ofis 2003
31/12/2011,02:16
Çözüldü 
Sayın sinan55, bununla ilgili bir örnek gönderme imkanınız var mı acaba?

Forum Kurallarına göre örneğinizi ekleyin ki örnek üzerinden devam edelim...

Kolay gelsin...
Cevapla


sinan55
Aktif Üye
Kullanici Avatari
Aktif Üye
134
07/02/2009
0
Samsun
Ofis 2013 Tr. 64 Bit
16/01/2015,09:40
Çözüldü 
gönderdiğim örnek te kalıp genel bilgi formu var bu formda ilk tarih girildikten sonra diğer tarihler bir öncekin den küçük girilemeyecek.ilgin için teşekkür ederim.


Ek Dosyalar
.rar   program.rar (Dosya Boyutu: 43,93 KB / İndirme Sayısı: 17)
Cevapla


ozanakkaya
sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.041
29/01/2008
Denizli
Polis Memuru
Ofis 2010 32 Bit
Bugün,18:01
Çözüldü 
Formdaki Kubt metin kutusunun çıkıldığında olayına aşağıdaki kod yazıldı ve son tablodaki son tarihi göstermesi için metin kutusu (metin51) eklendi.

Kod:
1
2
3
4
5
6
7
8
Private Sub Kubt_Exit(Cancel As Integer)

Metin51.Value = DLookup("Last(Kubt)", "[KalipGenelBilgiFormu]")
If Me.Kubt.Value < Metin51.Value Then
MsgBox ("Uyarı Mesajı")
Me.Kubt = ""
End If
End Sub



Ek Dosyalar
.rar   program.rar (Dosya Boyutu: 43,93 KB / İndirme Sayısı: 19)
Cevapla


tdsharun
&gt;&gt;&gt; O Şimdi Sivil&lt;&lt;&lt;
Kullanici Avatari
Aktif Üye
778
06/11/2008
225
Kütahya
Ofis 2003
31/12/2011,02:16
Çözüldü 
Gerçi hocam benden önce eklemiş ama ben de yapmıştım bişeyler. Ben de ekleyivereyim. Fazla mal göz çıkarmaz...

Kubt metin kutusunun çıkıldığında olayına:

Kod:
1
2
3
4
5
6
7
8
9
10
Private Sub Kubt_Exit(Cancel As Integer)

If Me.Kubt <= Me.Tarih1 Then
MsgBox "Kalıp Üretim Başlangıç Tarihi, Tasarım Geliştirme İstek Form Tarihinden küçük veya tarihine eşit olamaz... ", vbInformation, "Dikkat..."

Me.Tarih1.SetFocus

End If

End Sub


Kubit metin kutusunun çıkıldığında olayına:

Kod:
1
2
3
4
5
6
7
8
9
10
Private Sub Kubit_Exit(Cancel As Integer)

If Me.Kubit <= Me.Kubt Or Me.Kubit <= Me.Tarih1 Then
MsgBox "Kalıp Üretim Bitiş Tarihi, Kalıp Üretim Başlangıç Tarihinden ve Tasarım Geliştirme İstek Form Tarihinden küçük veya tarihine eşit olamaz... ", vbInformation, "Dikkat..."

Me.Kubt.SetFocus

End If

End Sub


Örnek de ekte.

Kolay gelsin...



Ek Dosyalar
.rar   program_tdsharun.rar (Dosya Boyutu: 29,69 KB / İndirme Sayısı: 19)
Cevapla


sinan55
Aktif Üye
Kullanici Avatari
Aktif Üye
134
07/02/2009
0
Samsun
Ofis 2013 Tr. 64 Bit
16/01/2015,09:40
Çözüldü 
çok teşekkürler arkadaşlar elinize yüreğinize sağlık. bu projemi bitirirsem güzel bir veritabanı olacak
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Bugünki Tarihden önceki veriler 53rize 8 137 27/11/2016, 13:18 53rize
  Combobox'dan seçilecek değeri,tarihin AY değerine katmak Kardeşpayı 3 285 21/04/2016, 15:48 Kardeşpayı
Çözüldü Kayıt Ekleme şartı fascioğlu 12 755 21/02/2016, 01:13 fascioğlu
Çözüldü Sigorta Poliçe Takip Programında Tarihin Bir Yıl Fazlasını Yazdırmak ekselanss 17 4.614 02/01/2016, 03:01 esprofes
Çözüldü Sorguda Harflerin Büyük Gözükmesi access acemisi 6 737 19/07/2015, 00:03 access acemisi


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