[Resolvido]Ideia para abrir campo em consulta

Ola amigos
tenho um campo que chamo de categoria
Atualmente desejo quebrar esse campo pra gerar outros campos
como exemplo de uma categoria temos o seguinte

Blowpipe > Roupas Adulto > Feminino > Calças

Gostaria de criar 4 campos conforme sinal de maior (>)que podem quebrar as colunas

dai teriamos 4 campos

campo1 campo2 campo3 campo4
Blowpipe Roupas Adulto Feminino Calças


Existe alguma maneira de se fazer isso via na consulta convencional sem ser SQL ou VBA ?

Boa noite. Amigo conforme você explicou, imagino que terá que fazer 4 tabelas cada uma relacionada a sua chave.
E cada tabela tem os seus campos que vai puxar os protutos pela categoria.

Na verdade a tabela tem campo unico chamado de categoria
nesse campo os dados vem assim abaixo tudo junto

Blowpipe > Roupas Adulto > Feminino > Calças

ai desejo quebrar a escrita a cada sinal de > . Ou seja da frase acima vamos quebrar em Blowpipe num campo , Roupas Adulto para o outro assim por diante




No excel da pra fazer mas no access nao sei como faz pois a ideia do access é automatizar as tarefas
Excel estamos deixando de usar em breve

Entendeu !!

Para quebrar escrita no mesmo campo é: Propriedade - Outra-Comportamento da Tecla entrer - muda para nova linha
passar para outro campo é: Tab( ai voce vai ter que fazer ordem de tabulação) que fica na guia de Design

Me perdoe mesmo
Talvez eu nao esteja explicando de maneira correta

Tabela 1
campo categoria
Blowpipe > Roupas Adulto > Feminino > Calças

desejo que fique assim na mesma tabela se possivel a criacao de 4 novas variaveis (campo)

Campo 1 campo 2 campo 3 campo 4
Blowpipe Roupas Adulto Feminino Calças

4 campos novos seriam criados

Anexe o banco aqui.

Amigos consegui a solucao com uma call chamando um modulo conforme abaixo

Por isso nao postei o banco

segue

Function AbrangeRef()
Dim RS As Recordset
Dim texto As String, hifenIndex As Integer
Set RS = CurrentDb.OpenRecordset("Produto Copia") 'nome tabela
If RS.RecordCount = 0 Then Exit Function

RS.MoveFirst

Do While Not RS.EOF

RS.Edit
texto = RS.Fields("Categoria") 'campo a ser alterado
hifenIndex = InStrRev(texto, " > ", , vbTextCompare)
If hifenIndex >= 5 Then

'a partir daqui o campo categoria é subdividido conforme abaixo'

RS.Fields("Título SEO") = Trim(Split(texto, " > ")(0))
RS.Fields("Descrição SEO") = Trim(Split(texto, " > ")(1))
RS.Fields("Palavras chave SEO") = Trim(Split(texto, " > ")(2))
RS.Fields("Slug") = Trim(Split(texto, " > ")(3))

End If
RS.Update
RS.MoveNext
Loop
RS.Close
End Function

Sucesso...

Boa noite.

Belobo,

Tenho este código que faz o mesmo:

Código:

Dim Sep() As String
Dim Gir As Byte
'On Error Resume Next
Sep = Split(Me.[Blowpipe], ">")
    For Gir = LBound(Sep) To UBound(Sep)
    Me.Blowpipe = Trim(Sep(0))
    Me.Roupas_Adulto = Trim(Sep(1))
    Me.Feminino = Trim(Sep(2))
    Me.Calças = Trim(Sep(3))
    Next