Boa Noite;

 

Estou tentando criar uma função no módulo que seleciona todo o conteúdo de um campo quando este ganha o foco, mas obtenho a msgm "Type Mismatch". Se alguem puder me ajudar, nao sei onde estou errando...

 

minha função no modulo:

 

Function SelTudo(Campo As Field)
    Campo.SelStart = 0
    Campo.SelLength = Len(Campo)
End Function

 

a chamada no form:

 

Private Sub Nome_Click()
    SelTudo (Nome)
End Sub

 

 

Obrigado....

Manigni

 

O erro deve estar quando você chama a função, acredito que se você tirar os parênteses irá funcionar.

Mas se você só quer pegar o valor do campo não é mais fácil colocar a referencia direto no campo?

 

Gustavo

Manigni, vou dar uma sugestão:

Troque o tipo de objeto no parâmetro da função: use Control no lugar de Field

Troque também o evento: use o GotFocus no lugar de Click

Daí, chama a função assim: SelTudo ActiveControl -- assim todos os campos terão seu gotfocus iguais.