[Resolvido]Identificar o tipo de dados do campo

Viva
Agradeço ajuda para identificar com VBA o tipo de dados do campo, se é de texto, número, data, ou de selecção (Selecionado/Não selecionado).
Tanto pode ser directamente no Formulário como através do recordset em ADO.
Ou seja, quando o cursor está em cima de um determinado campo ao clicar com o botão do lado direito assim a acção será diferente de acordo com o tipo de campo.
Utilizo a função Screen.ActiveControl.Name para saber o nome do campo, qual será para saber o tipo de dados do campo?
Cumprimentos
Rui

Você quer saber o tipo de campo do formulário ou da tabela que está usando?

Bom dia, veja:

https://dl.dropboxusercontent.com/u/26441349/TipoDados.zip

Cumprimentos.

Viva Marco Messa
Se der pelo formulário optimo, mas também pode ser pela tabela que está em sql server e o recordset é ADO

Tente isso:

Dim rs As ADODB.Recordset
rs.Fields("NomeDoCampo").Properties.Item.Type

Abs,

 

Obrigado pela ajuda Marco Messa e PILOTO, assim funciona , utilizando os dados da tabela
Só que agora surgiu-me outra situação que é o seguinte:
Utilizo ADO e como é para aplicar em um módulo que vai ser comum a vários formulários está a dar erro porque o campo é variável
Ou seja, se aplicar directamente o campo funciona : MsgBox rsfc.Fields("NomeCliente").Type
Se aplicar campo variável não funciona MsgBox MsgBox rsfc.Fields("'" & Screen.ActiveControl.Name & "'").Type , como o nome dos campos no formulário têm nome igual ao da tabela pensei que funciona-se assim, mas está a dar erro apesar de Screen.ActiveControl.Name ser igual a NomeCliente.

Tem como resolver esta questão?

Viva
Alterei para:
MsgBox rsfc.Fields(Screen.ActiveControl.Name).Type

e já funciona, obrigado pela ajuda
Um Abraço
Rui Sérgio

Não se esqueça de clicar no joinha da mensagem que o auxiliou.

Cumprimentos.

Viva
Clicar no botão para "Obrigado", certo?

Exato.. Bem creio que seria no tópico do Marco... Mas tudo bem..Ponto para o Fórum!

O Fórum agradece o Retorno.