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