Olá Baldini,
se estiver no Excel, você pode usar algo assim:
Sub ContaCampos(strTabela As String)
Dim cnn As ADODB.Connection
Dim strConn As String
Dim cat As Object 'ADOX.Catalog
On Error GoTo ErrHandler
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
ThisWorkbook.Path & "\NWind.mdb"
Set cnn = New ADODB.Connection
cnn.Open strConn
'Define o catálogo
Set cat = CreateObject("ADOX.Catalog")
cat.ActiveConnection = cnn
MsgBox "Número de campos da tabela " & strTabela & ": " & cat.Tables(strTabela).Columns.Count
ExitHere:
Exit Sub
ErrHandler:
MsgBox Err.Description & vbCrLf & Err.Number & vbCrLf & Err.Source, vbCritical, "ContaCampos"
Resume ExitHere
End Sub
No Access, pode ser simplesmente
CurrentDB.TableDefs("TuaTabela").Fields.Count
Luiz Cláudio Cosenza Vieira da Rocha - http://msmvps.com/blogs/officedev - IT Lab www.itlab.com.br
