(12/03/2020, 00:56)berduş yazdı: Diziye aktarırken zaten noktalar kalkıyor geriye ham sayılar kaliyor ki o da zaten 2 kontrolden biri icin yeterli sonuç üretiyor kontrollerden biri fazla gibi
01.01.20 tarihtir bilgisayar onu güncel tarihe gore 2020 olarak yorumlar diye biliyorum

Hadi adam 01.01.2020 gibi kaydetmek istiyor ve 01.01.20 yayazarsa yanlışlıkla ozaman 01.01.20 olarak kaydedilince istenilen sonuç olmaz bence abeyyy.Bu yüzden isdate mantıksız geldi bana.

(11/03/2020, 22:55)feraz yazdı: If tarih(0) < 10 And Len(tarih(0)) = 1 Then tarih(0) = "0" &

2 kontrol de hem tarih(0) < 10 hem de Len(tarih(0)) = 1 tarih(0) için yapılmış aynı şey tarih(1) içinde geçerli onda da 2 defa kontrol edilmis

20 sadece gösterilme yada alma şekli bilgisayar zaten kaydederken uzun tamsayiya çevirip öyle kaydediyor
1.1.20 de yazsak 1.1.2020 de yazsak bilgisayar onu atıyorum 64251 gibi bir sayı olarak kaydeder ama bize gösterirken bizim istediğimiz gibi gosterir

Evet If Len(tarih(0)) = 1 Then sadece bu şekildede yazıncada kurtarıyor koddaki If Not deger Like "##.##.####" Then şartından dolayı.

Excel dosyasınıda yükledim.

Application.WorksheetFunction.EoMonth exceldeki bu function heralde Access te bulunmuyor.

Metin kutusu özelliklerinde giriş maskesi geçerlilik kuralı özellikleri var burada geçerlilik kuralına kod ile ne yazarsak bu maskeye uygun olmayanı kabul etmez ve uyarı verir