[FORM] Ayrı metin kutularındaki ay gün ve yıl tarihlerini birleştirmek
#1
Merhaba...
Kişilere göre değişen İlk Tarih sütunum var, bu tarihe 8 yıl ekliyorum yeni oluşan tarihdeki yıl ile farklı metin kutularındaki sabit olan gün ay birleşerek yeni bir tarih oluşturmasını istiyorum.
Örnek: 25.02.2023 diye yeni bir tarih oluşmasını istiyorum.



Eklenti Dosyaları
.rar   tarihbirleştir.rar (Boyut: 26,45 KB / İndirilme: 86)



  Alıntı
Bu mesajı beğenenler:
#2
Sn ercan acar;
Private sub Tarih_after_update()
me.[farklı metin kutu]= DateAdd("y", 8, me.Tarih)
end sub
DateAdd islemi ilk hanesi "y"--> yil, "d"--> gun, "m"--> ay
ikinci bolum eklemek istedigimiz sure
ucuncusu ise ekleme istedigimiz tarihe ait metin kutusu.



  Alıntı
Bu mesajı beğenenler:
#3
(13-01-2015, 18:53)dsezgin83260 demiş ki: Sn ercan acar;
Private sub Tarih_after_update()
me.[farklı metin kutu]= DateAdd("y", 8, me.Tarih)
end sub
DateAdd islemi ilk hanesi "y"--> yil, "d"--> gun, "m"--> ay
ikinci bolum eklemek istedigimiz sure
ucuncusu ise ekleme istedigimiz tarihe ait metin kutusu.

Sn. dsezgin83260 cevabınız için teşekkür ederim.
Benim zaten tarihe ay gün veya yıl eklemek ile ilgili bir sıkıntım yok...
Benim istediğim olay mümkün ise ; Ay gün sabit tarih iken (25/02/.....) kişilere göre değişen tarihlere ait yılı (../../2013) farklı bir metin kutusunda birleştirerek (25/02/2013) olarak bir tarih elde etmek ve üzerine 8 yıl gibi bir süre eklemek istiyorum.(25/02/2021)



  Alıntı
Bu mesajı beğenenler:
#4
Sn ercan acar;
Private Sub Metin51_AfterUpdate()
Me.Metin6 = DateSerial(Year(Me.Metin51), Month(Metin123), Day(Metin123))
End Sub
ile olabilir.



  Alıntı
Bu mesajı beğenenler:
#5
(13-01-2015, 21:59)dsezgin83260 demiş ki: Sn ercan acar;
Private Sub Metin51_AfterUpdate()
Me.Metin6 = DateSerial(Year(Me.Metin51), Month(Metin123), Day(Metin123))
End Sub
ile olabilir.

Sn: dsezgin83260
Elinize sağlık kod istediğim gibi çalıştı çok teşekkür ederim....



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [FORM] Metin Kutusundaki Değeri Başka Bir Metin Kutusuna Aktarmak TheREDROSE 2 422 02-08-2024, 11:56
Son Mesaj: TheREDROSE
  [VBA] Bir Tabloda Alan Türü Uzun Metin Olan Iki Ayrı Alanı Karşılaştırmak abkbek 13 1.185 10-11-2023, 22:26
Son Mesaj: abkbek
  Uzun Metin Formatını Sql De Kısa Metin Formatına çevirebilir Miyiz? adnnfrm 2 556 06-08-2023, 03:51
Son Mesaj: adnnfrm
  Metin Kutusu Boş Sa Diğer Metin Kutusundan Değer Alması özgülapt 4 622 29-05-2023, 18:01
Son Mesaj: feraz
  Toplu Taksitlendirme Işleminde Her Taksit Için Tabloya Ayrı Kayıt Nasıl Yapabilirim. OĞUZ TÜRKYILMAZ 10 1.196 12-03-2023, 21:18
Son Mesaj: OĞUZ TÜRKYILMAZ
  [VBA] Alt Rapor Içeren Bir Rapor Her Personel Için Ayrı Excel Sayfasına Atılabilir Mi? abkbek 12 1.354 29-01-2023, 13:29
Son Mesaj: abkbek
  [FORM] Sürekli Form Düzeninde Her Kayıt Için Ayrı Ayrı Alanların Pasif Olması Hk. dormin 1 464 09-12-2022, 15:36
Son Mesaj: onur_can
  Sorgudaki Her Bir Kayıt Için Ayrı Excel Dosyası Açma tamersyilmaz 4 608 29-09-2022, 14:47
Son Mesaj: tamersyilmaz

Foruma Git:


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