LER DESCRI?ÃO DE UM CAMPO VIA CÃƀ™Ãƒ

USUARIO.EXCLUIDOS 29/12/2003 08:41:53
#2702 Resposta escolhida

E via DAO
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.

OK???

T+ :-D