Postada em 04/10/2005 09:10 hs
Dim tabeladef As TableDef
Dim campo As Field
On Error Resume Next
Set tabeladef = db.TableDefs!<tabela>
Set campo = tabeladef!<campo>
If Err And Err.Description <> "No error." Then
Set campo = tabeladef.CreateField("<campo>", dbDate)
campo.AllowZeroLength = True
tabeladef.Fields.Append campo
end if
"Quando estou fraco, aí então é que sou Poderoso"
|
