Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
27/02/2009 11:40
Konu Sahibi
sinan55
Yorumlar
7
Okunma
3217
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

sinan55


 41
 134
 41
 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.



Kullanici Avatari

tdsharun


 36
 778
 27
 06/11/2008
231
 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...



Kullanici Avatari

sinan55


 41
 134
 41
 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ı: 18)

Kullanici Avatari

ozanakkaya


OZ.... AK....
 41
 11.399
 467
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Bugün,06:45
Çö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ı: 20)
"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 

Kullanici Avatari

tdsharun


 36
 778
 27
 06/11/2008
231
 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)

Kullanici Avatari

sinan55


 41
 134
 41
 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




Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Listbox Büyük Yazı sidd 5 190 23/05/2018, 16:49
Son Yorum: sidd
Çözüldü Metin Kutusuna Şartı Veri Girişi m_demir 2 245 26/01/2018, 22:18
Son Yorum: m_demir
Çözüldü Büyük Harf ufukcem 7 719 22/06/2017, 09:17
Son Yorum: ufukcem
Çözüldü En Büyük Sözleşme Tarihi Üzerinden Hesaplama ALTANs 2 414 28/04/2017, 17:37
Son Yorum: ALTANs
Çözüldü Access Büyük Verilerde Sorgu Hatası aydogdu_115 9 1.190 05/02/2017, 13:26
Son Yorum: atoz112

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2018 MyBB Group.
123444