[Resolvido]Function funciona em VBA mas não em campo de form

Boa tarde senhores,

Tenho uma tabela com campo multivalor, a qual não posso usar para fazer classificação ou filtragem.

Meu objetivo, então, é passar o valor deste campo (pelo que percebi, possui propriedade semelhante a uma array) para um novo campo desvinculado, com tipo de destino de string.
Para isso, criei uma function para ver um array e trazer o nome dos funcionários correspondentes. Funcionou perfeitamente na janela de verificação imediata, mas estou com problemas ao usar no form.

Criei o novo campo desvinculado e tentei inserir na fonte de controle dele a função, com o construtor de expressões, usando o seguinte: ArrayToText([Port_Funcionario])
Tentei também usando [Port_Funcionario.Value], com e sem aspas. De nenhum jeito funcionou. O erro que dá ao usar sem aspas é de tipos incompatíveis e ao depurar ele destaca a linha do "ReDim newArray"...

Tentei colocar no evento ao abrir do form:
Me.Texto62 = ArrayToText(Me.Port_Funcionario.Value), mas funciona apenas para a primeira linha. Todas as outras seguem com a mesma informação da primeira linha.

Em suma, a function funciona perfeitamente na janela de verificação e em código VBA, mas não diretamente no construtor de expressões. Podem avaliar meu código e me ajuda a fazer funcionar adequadamente?

Segue o código:

Código:

Public Function ArrayToText(NomeArray As Variant)
'Função elaborada por Alec R. Müller
'Use para buscar o nome dos funcionários contidos no array e retornar o valor como texto.

Dim FuncNome As String
Dim i As Integer
Dim myArray As Variant

If Not IsNull(NomeArray) Then
    Dim newArray() As String
    ReDim newArray(UBound(NomeArray))    'Foi necessário redimensionar a variável. Sem o tamanho declarado, dá erro de fora de subscrição.
                                         'Se informar o tamanho da array diretamente na declaração Dim dá erro solicitando um valor constante.
    For i = LBound(NomeArray) To UBound(NomeArray)
        newArray(i) = DLookup("Func_Nome", "Funcionario", "Func_Cod = " & NomeArray(i))
        If i = 0 Then
            FuncNome = newArray(i)
        Else
            FuncNome = a & " ; " & newArray(i)
        End If
    Next i
    ArrayToText = FuncNome
End If

End Function

Código:

Me.Texto62 = Join(Me.Port_Funcionario.Value, " ; ")

Obrigado pela resposta Damasceno!

Coloquei no evento ao abrir do form assim como você passou. Acontece o mesmo usar a function que eu criei. Abre o form e a informação da primeira linha repete para todas as outras no campo Texto62.

Tem alguma forma de usar esse Join no construtor de expressões? Se sim, já resolve minha vida.

Tratando-se de um formulario continuo, só funciona com formatação condicional nesse campo.
Ou criar um campo na sua tabela para receber o valor e inserir o valor com VBA.

Obrigado pela contribuição JPaulo!

O formulário em questão é dividido.
O que quero é apenas trazer para uma nova caixa de texto do form, como string, o que está no campo multivalorado. Portanto, não preciso e nem quero armazenar no banco os valores que essa caixa de texto vai receber.
Quero que apareçam apenas para que eu possa usar a filtragem através dos nomes, que não é possível no campo já existente justamente por ser multivalorado.

Foi por conta disso que criei a function, que funcionou perfeitamente em vba, mas não sei como aplicar para que apareça corretamente em todas as linhas.

Abaixo segue uma foto de como fica ao usar, em "Ao abrir" do form:

Código:

me.Texto62 = arraytotext(me.Port_Funcionario.Value)

Como podem ver, fica repetindo o nome da primeira pessoa para todas as outras linhas na caixa Texto62.

No control Source dessa caixa de texto, colque assim para testar

Alec,

Qual a real necessidade de utilizar campos multivalores?
Qual a tua necessidade?

JPaulo, tentei fazer isso, mas o filtro não funciona. Simplesmente fica bloqueado.


Alexandre, preciso do campo multivalor por ser uma relação N pra N. Não consegui achar uma forma mais prática de fazer os lançamentos do que usando campo multivalor.
Se trata de uma tabela de portarias, na qual posso fazer N lançamentos e em cada lançamento pode haver um ou mais funcionários envolvidos.
Sobre a necessidade que me fez abrir este tópico, é a seguinte..
Em meu formulário tenho alguns campos. Em quase todos eu consigo aplicar filtro normalmente, exceto neste multivalor. Então criei a função que mandei mais pra cima para converter os valores do campo para texto. Minha ideia seria usar em um campo desvinculado para poder usar o filtro.

Se tiverem alguma ideia de como manter a praticidade sem usar um campo multivalor, será muito bem-vinda! Este tipo de campo ajuda por um lado, mas por outro dá um trabalho danado..

Veja o Join sem repetição e também a filtragem via campo de valores multiplos.

Damasceno, muuuuitoooo obrigado cara!

Com essa função vai me ajudar demaaaiss!

O fórum agradece o retorno. Sucesso.