olha cara...........eu tive um problema parecido com o seu, mais era em caso de tabela em um db..........pois tenho um cliente que é constante a alteração no db dele
ai sempre que tem alteração não preciso ficar fazendo dts...........o proprio programa gera a tabela, onde tenta-se abrir uma tabela, se esta tabela não existir, será gerado um erro, através deste erro criamos uma nova tabela. EX:
On Error GoTo TrataErro
Dim db As Database
Dim tbl As Recordset
Dim n_tbl As TableDef
Dim fld As Field
Set db = OpenDatabase("C:CaminhoBD.mdb")
Set tbl = db.OpenRecordset("TabelaExemplo")
MsgBox "Já existe"
Exit Sub
TrataErro:
If Err = 3078 Then
Set n_tbl = db.CreateTableDef("TabelaExemplo")
Set fld = n_tbl.CreateField("CampoExemplo", dbText, 20)
n_tbl.Fields.Append fld
db.TableDefs.Append n_tbl
Else
MsgBox Err.Number
End If
