Skip to main content

AccessTr.neT


2. tarihin 1. tarihden büyük olma şartı

2. tarihin 1. tarihden büyük olma şartı

Çözüldü #1
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
Çözüldü #2
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...
NZ Fonksiyonunun (İşlevinin) Ayrıntılı Anlatımı İçin Tıklayın...
DSum ve Sum Fonksiyonunun (İşlevinin) Ayrıntılı Anlatımı İçin Tıklayın...
DLookup Fonksiyonunun (İşlevinin) Ayrıntılı Anlatımı İçin Tıklayın...
Cevapla
Çözüldü #3
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.
.rar program.rar (Dosya Boyutu: 43,93 KB | İndirme Sayısı: 18)
Cevapla
Çözüldü #4
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:
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

.rar program.rar (Dosya Boyutu: 43,93 KB | İndirme Sayısı: 20)
Cevapla
Çözüldü #5
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:
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:
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...
.rar program_tdsharun.rar (Dosya Boyutu: 29,69 KB | İndirme Sayısı: 19)
NZ Fonksiyonunun (İşlevinin) Ayrıntılı Anlatımı İçin Tıklayın...
DSum ve Sum Fonksiyonunun (İşlevinin) Ayrıntılı Anlatımı İçin Tıklayın...
DLookup Fonksiyonunun (İşlevinin) Ayrıntılı Anlatımı İçin Tıklayın...
Cevapla
Çözüldü #6
çok teşekkürler arkadaşlar elinize yüreğinize sağlık. bu projemi bitirirsem güzel bir veritabanı olacak
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da