Como faço para inserir um novo campo em uma tabela ja existente??

 

Agradeço desde já

Na verdade você só precisa destas 3 linhas mas se quiser deixa embutido em

seu codigo veja mais abaixo :

 

1º exemplo :

 

db.Execute "ALTER TABLE Movimento ADD COLUMN Horario_Saida DATE;"
db.Close
Set db = OpenDatabase(Caminho)

2º exemplo

 

Dim Tbl As TableDef
Dim Fld As Field
Dim lExiste As Boolean
lExiste = False
Set db = OpenDatabase(Caminho)
    
'Listar tabelas...
For Each Tbl In db.TableDefs
'Verifica se nao eh tabela do sistema...
    If Left(Tbl.Name, 4) <> "MSys" And Left(Tbl.Name, 4) <> "USys" Then
       If Tbl.Name = "Movimento" Then
           For Each Fld In Tbl.Fields
               If Fld.Name = "Horario_Saida" Then
                    lExiste = True
                End If
           Next
       End If
    End If
Next
If lExiste = False Then
  db.Execute "ALTER TABLE Movimento ADD COLUMN Horario_Saida DATE;"
  db.Close
  Set db = OpenDatabase(Caminho)
End If

 

Espero ter te ajudados

abs

MrBytes

 

 

Blz, cara, valew