VBA Access Регулярные выражения

[Ethex]

Доброго времени суток
Мне нужно найти в таблице записи, не соответствующие общему виду нужного типа данных, а затем удалить их. Я хочу попробовать использовать регулярные выражения. Ранее их использовать не приходилось. Сориентируйте пожалуйста

Dim db As DAO.Database, rs As DAO.Recordset
Dim pole As String
Dim regex As New RegExp
regex.Glodal = False
regex.Pattern = "\w*-"   'Колличество цифр от 1 до 3 и символ "-"
Set db = CurrentDb
Set rs = db.OpenRecordset("SELECT * FROM Table")
rs.MoveLast
rs.MoveFirst
   While Not rs.EOF
   pole = rs.Fields("Поле 1").Value
   ...                                 'удалить запись при несоответствии патерну

[Aleksandr H.]

Сообщение от Ethex

Мне нужно найти в таблице записи, не соответствующие общему виду нужного типа данных, а затем удалить их.

Sub ggg()
    Dim db As DAO.Database, rs As DAO.Recordset
    Set db = CurrentDb
    Set rs = db.OpenRecordset("SELECT * FROM Table WHERE not([Поле 1] like ""*###-*"")")
    rs.MoveLast
    Debug.Print rs.RecordCount
    DoCmd.SetWarnings False
    DoCmd.RunSQL "DELETE * FROM Table WHERE not([Поле 1] like ""*###-*"")"
    DoCmd.SetWarnings True
    Set rs = db.OpenRecordset("SELECT * FROM Table WHERE not([Поле 1] like ""*###-*"")")
    rs.MoveLast
    Debug.Print rs.RecordCount
End Sub

[Ethex]

Сообщение от Aleksandr H.

"*###-*"

А шаблон, который я написал не подойдёт?

"\w*-"      'ну или + вместо *

[Ethex]

Нужный результат достигнут таким образом:

Public Sub clearTable()   
Dim db As DAO.Database, rs As DAO.Recordset
Dim tbn As String, fld As String
Dim regex As New RegExp
regex.Global = False
regex.Pattern = "\w+-"
tbn = Dir(Me.Поле0)
tbn = Left(tbn, InStrRev(tbn, ".") - 1)
tbn = Replace(tbn, ".", "")
Set db = CurrentDb
Set rs = db.OpenRecordset("SELECT * FROM [" & tbn & "]")
rs.MoveLast
rs.MoveFirst
  Do While (Not rs.EOF)
    If IsNull(rs.Fields("field").Value) Then
    rs.Delete
    Else:
    fld = rs.Fields("field").Value
      If regex.Test(fld) = False Then
      rs.Delete
      End If
    End If
  rs.MoveNext
  Loop
rs.Close: Set rs = Nothing
db.Close: Set db = Nothing
End Sub