AccessTr.neT

Tam Versiyon: String Tarih Formatında Mı Yazılmış
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2 3 4 5 6 7 8 9
herhangi bir metin tarih formatında mı yazılmış nasıl kontrol ediyoruz
tarih formatı ile biçim maskesi olan metin kutusunu boş olarak görmüyor
neden olabilir
cdate yada IsDate ile deneyin
?
Müsait olunca deneyeceğim çok teşekkürler
Daha önce Excel ile tarih kontrol dosyası yapılmıştı.
Accesse uyarladım.Bir adet metin kutusu ekleyin adıda Metin0 olsun ve buton ekleyip alttaki kodları yapıştırın.
Tarih formatı değilse mesaj verir.

Güncellendi......

On Error GoTo son
   
    With Metin0
      If .Value = "" Then GoTo enson
    Dim tarih As Variant, trh As Date, eom As Long, deger As String

          .Value = Replace(.Value, " ", ".")
          .Value = Replace(.Value, "/", ".")
          tarih = Split(.Value, ".")
          If Len(tarih(0)) = 1 Then tarih(0) = "0" & tarih(0)
          If Len(tarih(1)) = 1 Then tarih(1) = "0" & tarih(1)
          deger = tarih(0) & "." & tarih(1) & "." & tarih(2)
          If Not deger Like "##.##.####" Then
              MsgBox "Tarih bilgisi ""gg.aa.yyyy"" þeklinde girilmelidir.", vbCritical, "HATA"
              .SetFocus
              GoTo var
          Else
         
              trh = DateSerial(tarih(2), tarih(1), 1)
              eom = Day(CLng(DateSerial(Year(trh), Month(trh) + 1, 0)))
              If Val(tarih(0)) > eom Then
                  GoTo son
                  .SetFocus
              End If
              If tarih(1) > 12 Then
                  GoTo son
                  .SetFocus
              End If
          End If
   
   
var:
    eom = Empty: trh = Empty: deger = Empty: Erase tarih
Exit Sub
son:
      .SetFocus
      MsgBox "Hatali Tarih...", vbCritical, "Hata"
      Cancel = True
    Exit Sub
enson:
End With
Çok teşekkürler
Sayfalar: 1 2 3 4 5 6 7 8 9