Access SQL   ›   ACCESS SORULARI VE ÖRNEK UYGULAMALARI   ›   ACCESS SORULARI   ›   [FORM] Tarih işlemi

[FORM] Tarih işlemi
Ahmet51
Önemli Üye 300-400

*
Kayıt Tarihi: 22.03.2011
Toplam 57 konu açtı.
Toplam 302 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2016,
Beğeniler: 0 / 0
#1
19-02-2019, 09:09
ElseIf [maas_ayi] = "1" And [maas] <> "Ocak1/2" And [maas_tarih] <= #1/31/2019# Then
MsgBox ("MAAŞ TÜRÜ' nü 'Ocak1/2' seçmelisiniz." & Chr(13) & "Süresi 1 Ocak dan 31 Ocak'a Kadardır." & Chr(13) & "31 Ocak'dan Sonra Bu İşlem Yapılamaz."), vbExclamation, "UYARI!!!!"
DoCmd.GoToControl "maas"
DoCmd.OpenForm ""


Bu kodda [maas_tarih] <= #1/31/2019# alanını yıl olmadan sadece her yeni yılın ocak ayının 1 inden 31 ine kadar işlem yapmalı. Bu tarih geçtikten sonra bu işleme izin vermemeli. Yani şu şekilde yapamadım [maas_tarih] <= #1/31# (birinci ayın 31 i) yardımcı olacak arkadaşlara teşekkür ederim.

.rar   Database1.rar (Boyut: 22,8 KB / İndirilme: 70)



  Bul
  Alıntı
Bu mesajı beğenenler:
dsezgin
Forum Yöneticisi

*
Kayıt Tarihi: 24.03.2013
Toplam 27 konu açtı.
Toplam 9.100 yorum yaptı.
Toplam 1.103 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013,
Beğeniler: 57 / 240
#2
19-02-2019, 14:04
Visual Basic
  1. ElseIf [maas_ayi] = 1 And [maas] <> "Ocak1/2" And CLng([maas_tarih]) <= CLng(DateSerial(Year(Date), 1, 31)) Then
  2.            MsgBox ("MAAÞ TÜRÜ' nü 'Ocak1/2' seçmelisiniz." & Chr(13) & "Süresi 1 Ocak dan 31 Ocak'a Kadardýr." & Chr(13) & "31 Ocak'dan Sonra Bu Ýþlem Yapýlamaz."), vbExclamation, "UYARI!!!!"
  3.            DoCmd.GoToControl "maas"
  4.            DoCmd.OpenForm ""
  5.  
  6.     ElseIf [maas_ayi] = 12 And [maas] = "Maaþ" And CLng([Metin25]) <= CLng([maas_tarih]) Then
  7.            MsgBox "'MAAÞ TÜRÜ' nü 'Aralýk1/2' seçmelisiniz.", vbExclamation, "UYARI!!!!"
  8.            DoCmd.GoToControl "maas"
  9.            DoCmd.OpenForm ""
  10.  
  11.     Else



CLng([maas_tarih])
CLng(DateSerial(Year(Date), 1, 31))
ile kontrol ettirebilirsiniz.
Access Fonksiyonlarının(Deyimler), Sorgu da kullanımı
Rapor veya-Pdf-Dosyalarını Birleştirme Uygulaması



  Website   Bul
  Alıntı
Bu mesajı beğenenler:
Ahmet51
Önemli Üye 300-400

*
Kayıt Tarihi: 22.03.2011
Toplam 57 konu açtı.
Toplam 302 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2016,
Beğeniler: 0 / 0
#3
19-02-2019, 15:34
ElseIf [maas_ayi] = "1" And [maas] <> "Ocak1/2" And [maas_tarih] <= DateValue("1/31") Then
MsgBox ("MAAŞ TÜRÜ' nü 'Ocak1/2' seçmelisiniz." & Chr(13) & "Süresi 1 Ocak dan 31 Ocak'a Kadardır." & Chr(13) & "31 Ocak'dan Sonra Bu İşlem Yapılamaz."), vbExclamation, "UYARI!!!!"
DoCmd.GoToControl "maas"
DoCmd.OpenForm ""

ElseIf [maas_ayi] = "12" And [maas] <> "Aralık1/2" And [maas_tarih] >= DateValue("12/16") Then
MsgBox ("MAAŞ TÜRÜ' nü 'Aralık1/2' seçmelisiniz." & Chr(13) & "Süresi 16 Aralık dan 31 Aralık'a Kadardır." & Chr(13) & "31 Aralık'dan Sonra Bu İşlem Yapılamaz."), vbExclamation, "UYARI!!!!"
DoCmd.GoToControl "maas"
DoCmd.OpenForm ""

Sezgin Hocam CLng işleminde koşul çalıştı ancak sonrasını çalıştırmadı. Yani tarih 01.02.2019 olduğunda diğer işlemleri çalıstırmadı. Bende yukarıda ki kodda gördüğün üzere DateValue("1/31") bu şekilde çözdüm ama ne derece doğru bilemiyorum.

Ellerine emeğine sağlık hocam.



  Bul
  Alıntı
Bu mesajı beğenenler:
dsezgin
Forum Yöneticisi

*
Kayıt Tarihi: 24.03.2013
Toplam 27 konu açtı.
Toplam 9.100 yorum yaptı.
Toplam 1.103 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013,
Beğeniler: 57 / 240
#4
20-02-2019, 00:38
maas_ayi acilan kutu satir kaynagi verisi sayi, datevalue gune ait veridir. Kosul satir eslemenin dogru calistigina emin olun.
.rar   AhmetMenu.rar (Boyut: 23,56 KB / İndirilme: 80)
Access Fonksiyonlarının(Deyimler), Sorgu da kullanımı
Rapor veya-Pdf-Dosyalarını Birleştirme Uygulaması



  Website   Bul
  Alıntı
Bu mesajı beğenenler:
Ahmet51
Önemli Üye 300-400

*
Kayıt Tarihi: 22.03.2011
Toplam 57 konu açtı.
Toplam 302 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2016,
Beğeniler: 0 / 0
#5
20-02-2019, 11:57
(20-02-2019, 00:38)dsezgin demiş ki: maas_ayi acilan kutu satir kaynagi verisi sayi, datevalue gune ait veridir. Kosul satir eslemenin dogru calistigina emin olun.

Sezgin Hocam uyarın için teşekkür ederim.Senin kodu uyarladım.Ellerine emeğine sağlık,Sonsuz teşekkürlerimi sunarım.



  Bul
  Alıntı
Bu mesajı beğenenler:
Ahmet51
Önemli Üye 300-400

*
Kayıt Tarihi: 22.03.2011
Toplam 57 konu açtı.
Toplam 302 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2016,
Beğeniler: 0 / 0
#6
20-02-2019, 12:00
(20-02-2019, 00:38)dsezgin demiş ki: maas_ayi acilan kutu satir kaynagi verisi sayi, datevalue gune ait veridir. Kosul satir eslemenin dogru calistigina emin olun.

Sezgin Hocam uyarınız için teşekkür ederim.Sizin kodu uyarladım elinize emeğinize sağlık çok teşekkür ederim.



  Bul
  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [VBA] Yedekleme Işlemi. ŞabanTR 2 367 25-05-2024, 20:22
Son Mesaj: ŞabanTR
  Veri Aktarma Işlemi halil.tefci 4 517 28-11-2023, 07:56
Son Mesaj: halil.tefci
  Listede çıkarma Işlemi m_demir 6 581 14-09-2023, 18:42
Son Mesaj: m_demir
  [VBA] Kayıt Iptali: Kayıt Iptal Tablosuna Ekle, Kayıdı Sil Işlemi programmer67 6 908 21-07-2023, 10:40
Son Mesaj: onur_can
  Sorgu Işlemi Sonunda Veri Yoksa Bulunduğu Hücreye 0 Olarak Otomatik Değer Verme ofbayoglu61 12 1.195 21-07-2023, 10:09
Son Mesaj: onur_can
  Kısayol atama işlemi nasıl yapılır? algoritma 24 16.138 21-06-2023, 09:14
Son Mesaj: ates2014
  [VBA] Alan Kontrollü Kaydetme Işlemi Ahmet51 2 514 25-05-2023, 14:07
Son Mesaj: Ahmet51
  [SORGU] Bir önceki Kayıttan çıkarma Işlemi dmn815 6 710 01-02-2023, 13:41
Son Mesaj: halily

Foruma Git:


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