VBA Access - Limpe todos os Espaços dos Campos Texto - Trim all text fields in a MS Access database

| Blog Office VBA | Blog Excel | Blog Access |

+ de 100.000 VISITAS

Acesse: http://goo.gl/0v6AO   

Recentemente tive a necessidade de aparar campos texto numa tabela em um dos bancos de dados que precisei fazer manutenção.

Ao efetuar o loop através de cada tabela no banco de dados, eliminei todos os espaços desnecessários dos campos de texto. Agora todas as consultas de comparação funcionarão.

Esta versão também funcionará quando houver campos que não forem texto.

Sub TrimAllTextFieldsAllTables()

  Dim db As DAO.Database

  Dim tbls As DAO.TableDefs

  Dim tbl As DAO.TableDef

  Dim thisTable As DAO.TableDef

  Dim SQLString As String

  Dim flds As DAO.Fields

  Dim fld As DAO.Field

  Dim hasText As Boolean

  

  Set db = CurrentDb

  Set tbls = db.TableDefs

  

  ' loop through each appropriate table (i.e. no linked or system tables)

  For Each tbl In tbls

    hasText = False 'added

    If tbl.Attributes = 0 Then

      Set thisTable = tbl

      ' grab all fields

      Set flds = thisTable.Fields

  

      SQLString = "UPDATE [" & tbl.Name & "] SET "

  

      ' if field is text, create SQL string to trim it

      For Each fld In flds

        If fld.Type = dbText Then

          hasText = True 'added

          SQLString = SQLString & _

                 "[" & fld.Name & "] = Trim([" & fld.Name & "]),"

        End If

      Next fld

  

      SQLString = Left(SQLString, Len(SQLString) - 1) & ";"

      If hasText Then 'added

        Debug.Print SQLString

        ' execute update statement on table

        db.Execute SQLString, dbFailOnError

      End If 'added

    End If

  Next tbl

  

End Sub

Tags: VBA, Access, field, text, campo, texto, trim,