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

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

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


Obrigado Nois

agradeço retorno, até mais