+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: String Tarih Formatında Mı Yazılmış (/konu-string-tarih-formatinda-mi-yazilmis.html)
String Tarih Formatında Mı Yazılmış - accessman - 11/03/2020
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
Cvp: String Tarih Formatında Mı Yazılmış - berduş - 11/03/2020
cdate yada IsDate ile deneyin
Cvp: String Tarih Formatında Mı Yazılmış - berduş - 11/03/2020
?
Cvp: String Tarih Formatında Mı Yazılmış - accessman - 11/03/2020
Müsait olunca deneyeceğim çok teşekkürler
Cvp: String Tarih Formatında Mı Yazılmış - feraz - 11/03/2020
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 WithCvp: String Tarih Formatında Mı Yazılmış - accessman - 12/03/2020
Çok teşekkürler