[Resolvido]Separar Nome e Sobrenome

Caros amigos

Alguém poderia me dar uma dica como separar [nome] e [sobrenome] de um campo [nomecompleto]?

Grato

Olá,

Primeiramente eu criaria duas funções simples em um módulo.

Uma para pegar o Nome e outra para o restante do Nome.

Usando a função Split poderemos conseguir este resultado:

Código:

Public Function fncSplitNome(VarNome As String)

'Pegar apenas o primeiro nome

Dim VarSplit As Variant
Dim i As Integer

VarSplit = Split(VarNome, " ")

fncSplitNome = VarSplit(0)

End Function

Public Function fncSplitSobreNome(VarNome As String)

'Pegar do segundo nome em diante se existir

Dim VarSplit
Dim VarSobreNome As String
Dim i As Integer

VarSplit = Split(VarNome, " ")

For i = 1 To UBound(VarSplit)

 VarSobreNome = VarSobreNome & " " & VarSplit(i)
 
Next i

fncSplitSobreNome = LTrim(RTrim(VarSobreNome))

End Function

Na Caixa de Texto do formulário para trazer o nome:

=fncSplitNome([nomecompleto])

E na Caixa de texto para o sobrenome:

=fncSplitSobreNome([nomecompleto])

Sds,

Prezado Charles Sestrem

Na mosca!

Muito Obridado.