[Resolvido]Existe alguma forma de retirar dados de uma só caixa de texto (estes separados por virgulas) para várias caixas de texto?

Boas,
O meu projecto encalhou na seguinte falha:

Eu tenho uma só caixa de texto ("cxt_dados"), que tem vários dados separados por vírgulas ex. "Jorge, 31 anos, masculino", estes dados foram inseridos automaticamente através da leitura de um código de barras (QRCode).
Agora o meu problema é que depois de actualizar da caixa de texto "cxt_dados", o access deveria separar estes dados por várias caixas de texto independentes ex: "cxt_nome", "ctx_idade"; ctx_genero".

Ou seja é uma operação inversa a função CONCATENAR, ou seja uma espécie de função "texto para colunas" do Excel
Tal é possível?
Grato pela atenção.

Você pode usar a função Split para separar pelo marcador vírgula. O Split separa em vetores começando do 0. Se você tem três elementos separados por vírgula, terá os vetores 0, 1 e 2. Tendo eles separados, bastará jogá-los nos campos:

Me.Campo1 = vet(0)
Me.Campo2 = vet(1)
Me.Campo3 = vet(2)

vet é o nome que eu dei para a minha variável. Dê uma pesquisada no F1 de um módulo vba por Split. Caso tenha dúvidas, volte a se manifestar.

Boa noite, tekkinho, e bem-vindo ao fórum

Utilize esta função:

Function Extrair(str As String, Campo As String) As String
'criada por Alexandre Neves
'em 2011-12-28
'para tekkinho
'do fórum MaximoAccess
Dim Inicio As Integer
Select Case Campo
Case "Nome"
Extrair = Mid(str, 1, InStr(1, str, ",") - 1)
Case "Idade"
Inicio = InStr(1, str, ",") + 1
Fim = InStr(Inicio, str, ",")
Extrair = Mid(str, Inicio, Fim - Inicio)
Case "Género"
Inicio = InStr(1, str, ",") + 1
Inicio = InStr(Inicio, str, ",")
Extrair = Mid(str, Inicio + 1, Len(str) - Inicio)
End Select
End Function

Para uso, coloque
cxt_Nome= Extrair(cxt_dados, "nome")
ctx_idade= Extrair(cxt_dados, "idade")
ctx_genero= Extrair(cxt_dados, "Género")

Muito obrigada pelas vossas sugestões e pelo vosso tempo, foi através delas que cheguei a uma solucção, utilizando a função split.


Function vet1(ByVal texto As String) As String
Dim sParts() As String
sParts = Split(texto, ",")
vet1 = sParts(0)
End Function
Function vet2(ByVal texto As String) As String
Dim sParts() As String
sParts = Split(texto, ",")
vet2 = sParts(1)
End Function

Envio em anexo o exemplo access resolvido.

Mais uma vez grato pela atenção.