MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    [Resolvido]Separar Nome e Sobrenome

    casilveira
    casilveira
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 145
    Registrado : 10/02/2012

    [Resolvido]Separar Nome e Sobrenome Empty [Resolvido]Separar Nome e Sobrenome

    Mensagem  casilveira 1/10/2014, 20:14

    Caros amigos

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

    Grato


    .................................................................................
    Carlos Silveira
    CEO - South American Company
    [Resolvido]Separar Nome e Sobrenome VersaoAcc
    chsestrem
    chsestrem
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 463
    Registrado : 01/03/2010

    [Resolvido]Separar Nome e Sobrenome Empty Re: [Resolvido]Separar Nome e Sobrenome

    Mensagem  chsestrem 1/10/2014, 20:59

    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,


    .................................................................................
    Charles Sestrem
    http://www.vbabit.com.br
    casilveira
    casilveira
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 145
    Registrado : 10/02/2012

    [Resolvido]Separar Nome e Sobrenome Empty Re: [Resolvido]Separar Nome e Sobrenome

    Mensagem  casilveira 2/10/2014, 14:48

    Prezado Charles Sestrem

    Na mosca!

    Muito Obridado.


    .................................................................................
    Carlos Silveira
    CEO - South American Company
    [Resolvido]Separar Nome e Sobrenome VersaoAcc

    Conteúdo patrocinado


    [Resolvido]Separar Nome e Sobrenome Empty Re: [Resolvido]Separar Nome e Sobrenome

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 15:34