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]Como obrigar um campo texto a ter duas palavras

    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4524
    Registrado : 06/11/2009

    [Resolvido]Como obrigar um campo texto a ter duas palavras Empty [Resolvido]Como obrigar um campo texto a ter duas palavras

    Mensagem  Assis 26/10/2021, 11:40

    Bom dia Amigos

    Tenho um campo "Nome" e queria que ao registar um registo novo no campo obrigasse a duas palavras.

    Exemplo ao sair do campo

    Jorge Campos

    Manuel Sousa.

    E nunca só .......

    Jorge

    Manuel

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    =>Nois
    =>Nois
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 940
    Registrado : 09/11/2012

    [Resolvido]Como obrigar um campo texto a ter duas palavras Empty Re: [Resolvido]Como obrigar um campo texto a ter duas palavras

    Mensagem  =>Nois 26/10/2021, 12:39

    minha sugestão, utilize a função abaixo para extrair o primeiro e o ultimo nome da caixa de texto e faça um If se não houver duas palavras...

    chamar a função: PrimUlt(suacaixatexto)


    Código:
    Public Function PrimUlt(NomeInteiro As String) As String
    Dim i As Integer
    Dim S As String
    Dim f As Integer

        If Len(NomeInteiro & vbNullString) = 0 Then Exit Function
        NomeInteiro = Trim(NomeInteiro) ' tira espaços no início e final, se houver
        PrimUlt = vbNullString
        S = vbNullString
       
    '----- Pega o primeiro nome
        For i = 1 To Len(NomeInteiro)
            If Mid(NomeInteiro, i, 1) <> " " Then
                S = S & Mid(NomeInteiro, i, 1)
            Else
                S = S & " "
                Exit For
            End If
        Next i
    '----- Pega o último nome
        f = 0
        For i = Len(NomeInteiro) To 1 Step -1
            If Mid(NomeInteiro, i, 1) = " " Then
                S = S & Right(NomeInteiro, f)
                Exit For
            Else
                f = f + 1
            End If
        Next i
        PrimUlt = S
    End Function

    Public Function fncSplitNome(VarNome As String)

    'Pegar apenas o primeiro nome
    On Error Resume Next
    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


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4524
    Registrado : 06/11/2009

    [Resolvido]Como obrigar um campo texto a ter duas palavras Empty Re: [Resolvido]Como obrigar um campo texto a ter duas palavras

    Mensagem  Assis 26/10/2021, 13:28

    Obrigado Nois



    .................................................................................
    *** Só sei que nada sei ***

    =>Nois gosta desta mensagem

    =>Nois
    =>Nois
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 940
    Registrado : 09/11/2012

    [Resolvido]Como obrigar um campo texto a ter duas palavras Empty Re: [Resolvido]Como obrigar um campo texto a ter duas palavras

    Mensagem  =>Nois 26/10/2021, 13:36

    agradeço retorno, até mais


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken

      Data/hora atual: 29/11/2021, 23:55