O que é o fenômeno chamado BIG DATA?
Que tal fazer uma faxina em todas as tabelas da sua aplicação desenvolvida com o MS Access?
Que tal fazer uma faxina em todas as tabelas da sua aplicação desenvolvida com o MS Access?
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
Let hasText = True 'added
Let SQLString = SQLString & _
"[" & fld.Name & "] = Trim([" & fld.Name & "]),"
End If
Next fld
Let 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, TRIM, DAO, SQL
Nenhum comentário:
Postar um comentário