[Resolvido]Captar as 3 primeiras letras de um string com duas palavras

Bom dia Amigos

Para apanhar as 3 primeira letras , do "Tipo", e e da "Linha" uso para dar a "Ref":

Ref = UCase(Left(Me.Tipo, 3) & Left(Me.Linha, 3))

Ref = MesCab

Tipo = Mesa

Linha = Cabeceira

***********************************************

Mas se o "Tipo" tiver duas palavras

Tipo = Materia Prima

Linha = Cabeceira

Como fica a formula da Ref para me dar: as 3 primeira letras de Matéria, e as 3 primeiras letras de Prima.

Ref = MatPriCab

Obrigado

Olá Assis,

Pesquise por SPLIT e depois será fazer ajustar o LEFT(..)

Veja este por exemplo
https://www.maximoaccess.com/t17322-resolvidocaptura-de-texto-limitado-aos-espacos-em-branco

Abraço

Teixeira

Eu estou a fazer isto num formulário.

Quando entro no campo "Ref", já tenho o campo "Tipo", e o campo "Linha" digitados.

Já copiei o Modulo que o JPaulo colocou para a BD, mas fala num campo de consulta ...

Como meto aqui o Split?

Ref = UCase(Left(Me.Tipo, 3) & Left(Me.Linha, 3))

Olá Assis,

Onde tem:

Código:

Ref = UCase(Left(Me.Tipo, 3) & Left(Me.Linha, 3))

altere por:

Código:

'     ahteixeira 2022 para MaximoAccess
'--------------------------------------------
' Separa palavras pelo espaco e junta as tres
' primeiras letras das duas primeiras palavras
'--------------------------------------------
Dim sArray As Variant
Dim i As Integer
Dim sTipo, sRef As String

    sTipo = Trim(Me.Tipo)
    sArray = Split(sTipo, " ")
    
    For i = LBound(sArray) To UBound(sArray)
        sRef = sRef & Left(sArray(i), 3)
        If i = 1 Then Exit For
    Next i
    
    Ref = UCase(sRef & Left(Me.Linha, 3))

Abraço

Ops
Grato

Olá Assis,

Espero que compreenda como foi efetuado.

Abraço