[FORM] Girilen tarih ve saat şimdiki zamandan büyükse mesaj verdirmek
#1
Merhabalar,

Eklediğim örneğimde Tablo1 formumda "SON KAYIT BASLAMA TARIHI" ve "SON KAYIT BASLAMA SAATI" alanım "SIMDIKI ZAMAN" alanımdan büyük ise "SON KAYIT BASLAMA SAATI" alanıma veriyi girdiğimde mesaj verdirip "Girilen saat şimdiki zamandan büyüktür" yazdırıp yazılan kaydı geri aldırmak istiyorum.Ama bir türlü yapamadım.Nasıl yapacağım konusunda yardımcı olabilir iseniz sevinirim.

Herkese iyi hafta sonları dilerim.


Eklenti Dosyaları
.rar   tarih uyarı.rar (Boyut: 16,78 KB / İndirilme: 78)



  Alıntı
Bu mesajı beğenenler:
#2

Son Kayıt Başlama Saatinin güncelleştirme sonrası olay yordamına

Visual Basic
  1. If Me.SON_KAYIT_BASLAMA_TARIHI > Date Then
  2. MsgBox "Girilen Son Kayıt Başlama Tarihi Şimdiki Tarihten Büyük Olamaz.Lütfen Son Kayıt Başlama Tarihini Değiştirin", vbCritical, "Tarih Uyarısı"
  3. Me.SON_KAYIT_BASLAMA_TARIHI.SetFocus
  4.  
  5.  
  6. ElseIf Me.SON_KAYIT_BASLAMA_TARIHI >= Date And Me.SON_KAYIT_BASLAMA_SAATI > Time() Then
  7. MsgBox "Girilen Son Kayıt Başlama Saati Şimdiki Saatten Büyük Olamaz.Lütfen Son Kayıt Başlama Saatini Değiştirin", vbCritical, "Saat Uyarısı"
  8. Me.SON_KAYIT_BASLAMA_SAATI.SetFocus
  9.  
  10. End If



yazıldı.Kayıdı tamamen geri almak istiyorsanız SetFocus lu satırların yerine Me.Undo yazınız ama bence gerek yok.Örneğiniz ekte.


Eklenti Dosyaları
.rar   tarih uyarı.rar (Boyut: 16,72 KB / İndirilme: 95)



  Alıntı
Bu mesajı beğenenler:
#3
Sayın dazi,

Yardımınız için çok ama çok teşekkür ederim.Yapmak istediğim şekilde örneği düzenlemişsiniz.
Geri alma işlemi için SetFocus alanına Undo yazdım fakat geri alma işlemini yapmadı.Yanlış yere yazmıyorum değil mi?

Yardımınız için tekrar teşekkürler.



  Alıntı
Bu mesajı beğenenler:
#4
aşağıdaki gibi kullanın
Visual Basic
  1. If Me.SON_KAYIT_BASLAMA_TARIHI > Date Then
  2. MsgBox "Girilen Son Kayıt Başlama Tarihi Şimdiki Tarihten Büyük Olamaz.Lütfen Son Kayıt Başlama Tarihini Değiştirin", vbCritical, "Tarih Uyarısı"
  3. Me.Undo
  4.  
  5.  
  6. ElseIf Me.SON_KAYIT_BASLAMA_TARIHI >= Date And Me.SON_KAYIT_BASLAMA_SAATI > Time() Then
  7. MsgBox "Girilen Son Kayıt Başlama Saati Şimdiki Saatten Büyük Olamaz.Lütfen Son Kayıt Başlama Saatini Değiştirin", vbCritical, "Saat Uyarısı"
  8. Me.Undo
  9.  
  10. End If





  Alıntı
Bu mesajı beğenenler:
#5
Sayın dazi,

Çok teşekkür ederim yardım ve emeğiniz için.

Sağlıcakla kalın.İyi Akşamlar.



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [SORGU] Access Sorguda Toplam Saat Formatı MERAK 3 276 07-12-2025, 16:15
Son Mesaj: dsezgin
  [FORM] Aktif Saati Tablodaki Saat Arasına Göre Bulup Forma Yazdırma yahyamacit 5 558 14-03-2024, 11:07
Son Mesaj: yahyamacit
  [FORM] Inputbox Kutusuna Girilen Değere Pasword Maske Uygulama orderyazbim 2 483 22-01-2024, 22:12
Son Mesaj: orderyazbim
  Bir Sütuna Girilen Verileri Başka Bir Sütun Ile Karşılaştırıp Hesaplama bilservisci 4 721 08-01-2024, 11:58
Son Mesaj: bilservisci
  12 Saatlik (am-pm) Metin Olarak Girilmiş Saat Verisini 24 Saatlik Olarak Gösterme Hk. adnnfrm 2 540 05-10-2023, 03:16
Son Mesaj: adnnfrm
  Ekleme Sorgusunda Ay/yıl Metin Değeri Tarih/saat Alanına Doğru Aktarma Hk. adnnfrm 2 550 14-08-2023, 00:12
Son Mesaj: adnnfrm
  Formda Saat Widget BeyTor 18 1.340 28-01-2023, 00:02
Son Mesaj: Zeki Gürsoy
  Sorguda Okşulla Göre Veri Girilen Yere Elle Veri Girişi ŞabanTR 4 488 09-01-2023, 13:31
Son Mesaj: ŞabanTR

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 2 Ziyaretçi