Olá pessoal!

Estou tentando colocar na tabela do acess no campo descrição dados via excel
(macro) e estou usando a seguinte sintaxe:

dbTeste.TableDefs("tabela").Fields("campo").ValidationText = "blablabla"

mas isso ele coloca no "Texto de validação" tem como eu adicinar os
comentários no campo Descrioção???

desde já agradeço!

O que eu quero fazer na realidade é adicionar descrições no campo via ADO
pelo excel....

http://whe.s41.eatj.com/imagem/imagem.JPG

acho que assim fica mais facil de entender...


Obrigado

Oi Whe,

tente assim:

Sub teste()
Dim cnn As ADODB.Connection
Dim cat As ADOX.Catalog
Dim tbl As ADOX.Table
Dim col As ADOX.Column

Set cnn = New ADODB.Connection
With cnn
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data source=c:\TuaPasta\TeuMDB.mdb"
.Open
End With

Set cat = New ADOX.Catalog
cat.ActiveConnection = cnn

Set tbl = cat.Tables("Tabela1")
Set col = tbl.Columns(0)
col.Properties("Description") = "Uma descrição qualquer"

Set col = Nothing
Set tbl = Nothing
Set cat = Nothing
Set cnn = Nothing

End Sub

--
Luiz Cláudio C. V. Rocha
Coordenador FórumAccess
São Paulo - Brasil
MVP Office
http://www.msmvps.com/officedev


"whe" escreveu:

> O que eu quero fazer na realidade é adicionar descrições no campo via ADO
> pelo excel....
>
> http://whe.s41.eatj.com/imagem/imagem.JPG
>
> acho que assim fica mais facil de entender...
>
>
> Obrigado
>
>

Luiz Cláudio C. V. Rocha, muito obrigado!



"Luiz Cláudio C. V. Rocha" escreveu:

> Oi Whe,
>
> tente assim:
>
> Sub teste()
> Dim cnn As ADODB.Connection
> Dim cat As ADOX.Catalog
> Dim tbl As ADOX.Table
> Dim col As ADOX.Column
>
> Set cnn = New ADODB.Connection
> With cnn
> .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
> "Data source=c:\TuaPasta\TeuMDB.mdb"
> .Open
> End With
>
> Set cat = New ADOX.Catalog
> cat.ActiveConnection = cnn
>
> Set tbl = cat.Tables("Tabela1")
> Set col = tbl.Columns(0)
> col.Properties("Description") = "Uma descrição qualquer"
>
> Set col = Nothing
> Set tbl = Nothing
> Set cat = Nothing
> Set cnn = Nothing
>
> End Sub
>
> --
> Luiz Cláudio C. V. Rocha
> Coordenador FórumAccess
> São Paulo - Brasil
> MVP Office
> http://www.msmvps.com/officedev
>
>
> "whe" escreveu:
>
> > O que eu quero fazer na realidade é adicionar descrições no campo via ADO
> > pelo excel....
> >
> > http://whe.s41.eatj.com/imagem/imagem.JPG
> >
> > acho que assim fica mais facil de entender...
> >
> >
> > Obrigado
> >
> >