Título da Dica: Como saber a descrição de um campo de uma tabela via DAO criada em Access
Postada em 3/11/2003 por ghost_jlp Para saber a descrição de um campo que foi colocado lá na estrutura da tabela do seu BD no access é fácil!!
Olhe como fazer:
Dim DB As Database Dim RS As Recordset Dim i as Integer
Set DB = OpenDatabase(App.Path & "\Banco.MDB") Set RS = DB.OpenRecordset("Tabela")
On Error GoTo Erro_Description
For i = 0 To RS.Fields("campo").Properties.Count - 1
If RS.Fields("campo").Properties(i).Name = "Description" Then MsgBox RS.Fields("campo").Properties(i).Name & " : " & RS.Fields("campo").Properties(i).Value End If
Next
Erro_Description:
If Err.Number <> 3265 And Err.Number <> 0 Then MsgBox "Descrição do erro: " & Err.Description & vbCrLf & "Número do erro:" & Err.Number End If
Acontece que caso o campo não tenha descrição vai dar um erro que é o acima "err.number = 3265 -> O item não foi encontrado na coleção". Então caso aconteça este erro ele "passa direto" conforme o tratamento do erro feito na lógica descrita. Se tiver outro qualquer ele exibe a mensagem. Fazendo isso vai achar a descrição do campo certo. Pois o número das propriedades varia de campo para campo. Então fazendo este "for..next" certamente achará a descrição com segurança.
