1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26
|
Dim h As TableDef
Dim TABLEDATE As DAO.Recordset
Dim Db3 As DAO.Database
Set Db3 = CurrentDb()
Set TABLEDATE = Db3.OpenRecordset(Tablecible)
Set h = Db3.TableDefs(Tablecible)
n = h.Fields.Count
TABLEDATE.MoveFirst
While Not TABLEDATE.EOF
For i = 0 To n - 1
dat = TABLEDATE.Fields(i)
Debug.Print dat
TEST1 = IsNumeric(Left(dat, 2))
TEST2 = (Right((Left((dat), 3)), 1) = ".")
TEST3 = IsNumeric(Right((Left((dat), 5)), 2))
TEST4 = (Right((Left((dat), 6)), 1) = ".")
TEST5 = IsNumeric(Right(dat, 4))
If TEST1 = True And TEST2 = True And TEST3 = True And TEST4 = True And TEST5 = True Then
dat = Replace((dat), ".", "/")
TABLEDATE.Fields(i) = dat
End If
Next i
Wend |
Partager