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 campo usando caracter

    avatar
    ictsp
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 222
    Registrado : 02/09/2016

    [Resolvido]Separar campo usando caracter Empty [Resolvido]Separar campo usando caracter

    Mensagem  ictsp 2/11/2021, 11:33

    Olá!
    Prezados colegas, gostaria de separar este campo "100,0 x 50,0 x 1/4"" usando como referência o "x", ficando dessa forma:
    valor(1) = 100,0
    valor(2) = 50,0
    valor(3)= 1/4"
    Se for possível, poderiam me dar uma luz?
    Desde já, muito obrigado!!
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3707
    Registrado : 22/11/2016

    [Resolvido]Separar campo usando caracter Empty Re: [Resolvido]Separar campo usando caracter

    Mensagem  DamascenoJr. 2/11/2021, 12:20

    Código:
    Dim valor

    valor = split("100,0 x 50,0 x 1/4"""," x ")

    Não esqueça de marcar o tópico como resolvido.


    Última edição por DamascenoJr. em 2/11/2021, 12:24, editado 1 vez(es)


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3707
    Registrado : 22/11/2016

    [Resolvido]Separar campo usando caracter Empty Re: [Resolvido]Separar campo usando caracter

    Mensagem  DamascenoJr. 2/11/2021, 12:21

    Tópico retirado da sala de Consultas por não ter relação com este tipo de objeto. Favor atentar-se a descrição de cada sala ao abrir tópicos.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    ictsp
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 222
    Registrado : 02/09/2016

    [Resolvido]Separar campo usando caracter Empty Re: [Resolvido]Separar campo usando caracter

    Mensagem  ictsp 2/11/2021, 13:16

    Bom dia!
    DamascenoJr, desde já, muito obrigado pelo retorno
    Me expressei mal em minha dúvida. Dei apenas um valor para exemplo do que pretendo.
    Na vdd, eu tenho uma tabela com vários registros. (Anexei foto)
    Por isso pensei na possibilidade de fazer através de uma consulta.

    COD PROD TIPO BITOLA
    394 """U""DOBR CHAPA" AC 75,0 x 38,0 x 3,00
    80 """U""DOBR CHAPA" AC "130,0 x 30,0 x 1/4"""
    81 """U""DOBR CHAPA" AC "75,0 x 40,0 x 1/8"""
    88 """U""DOBR CHAPA" AC 100,0 x 30,0 x 3,00
    89 """U""DOBR CHAPA" AC 280,0 x 50,0 x 3,00
    361 BR CHATA AC "119,0 x 1"""
    362 BR CHATA INOX "66,0 x 1/4"""
    363 BR CHATA INOX "120,0 x 5/8"""
    364 BR CHATA AL "4"" x 6,00"

    No meu caso, preciso que o "x" seja a referência para fazer a separação
    O primeiro valor antes do x, até consegui extrair usando código do colega criquio:
    NomeCampo: Esquerda([bitola];EmSeq(1;[bitola];"x")-1)




    Última edição por ictsp em 2/11/2021, 13:29, editado 1 vez(es)
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3707
    Registrado : 22/11/2016

    [Resolvido]Separar campo usando caracter Empty Re: [Resolvido]Separar campo usando caracter

    Mensagem  DamascenoJr. 2/11/2021, 13:27

    Prevejo que ainda falta esclarecimento.

    A consulta servirá para um código VBA?
    Você deseja separa para exibir na consulta?


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    ictsp
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 222
    Registrado : 02/09/2016

    [Resolvido]Separar campo usando caracter Empty Re: [Resolvido]Separar campo usando caracter

    Mensagem  ictsp 2/11/2021, 13:33

    Desejo exibir na consulta.
    Envei uma pqna parte da tabela que tenho atualmente.
    Anexos
    [Resolvido]Separar campo usando caracter AttachmentFOTO.jpg
    Você não tem permissão para fazer download dos arquivos anexados.
    (84 Kb) Baixado 4 vez(es)
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3707
    Registrado : 22/11/2016

    [Resolvido]Separar campo usando caracter Empty Re: [Resolvido]Separar campo usando caracter

    Mensagem  DamascenoJr. 2/11/2021, 14:38

    Cada valor em uma nova coluna, certo?

    Se for, será preciso um código que percorra todos os valores para descobrir quantas colunas devem ser criadas. ou 2 ou 3 ou 4 etc.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    ictsp
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 222
    Registrado : 02/09/2016

    [Resolvido]Separar campo usando caracter Empty Re: [Resolvido]Separar campo usando caracter

    Mensagem  ictsp 2/11/2021, 15:46

    Isso mesmo. Não tenho muito conhecimento,  mas criando 4 colunas e jogando as partes separadas em casa uma já resolva.
    Não tenho muito conhecimento do access, o pouco que desenvolvi foi com a ajuda dos colegas aqui.
    Val1 val2 val3 val4
    100 50 3
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3707
    Registrado : 22/11/2016

    [Resolvido]Separar campo usando caracter Empty Re: [Resolvido]Separar campo usando caracter

    Mensagem  DamascenoJr. 2/11/2021, 17:30

    Exemplo em anexo.

    Abaixo função utilizada.

    Código:
    Public Function fncQuebraQuebra(ByVal varTexto, ByVal strQuebrador As String, ByVal bytQualQuero As Byte)

        Dim varTemp As Variant
       
        If Nz(varTexto) = "" Then
            fncQuebraQuebra = ""
        Else
       
            varTemp = Split(varTexto, strQuebrador)
           
            If bytQualQuero > (UBound(varTemp) + 1) Then
                fncQuebraQuebra = ""
            Else
                fncQuebraQuebra = varTemp(bytQualQuero - 1)
            End If
       
        End If

    End Function

    Ressalto que a função será executada 4 vezes para cada linha para trabalhar os dados. Isso terá grande impacto no desempenho dependendo da quantidade de registros que a consulta trará.

    Se os dados serão sempre exibidos quebrados, seria melhor já armazená-los na tabela separados.

    Não esqueça o resolvido do tópico.
    Anexos
    [Resolvido]Separar campo usando caracter AttachmentexQuebrandoCampo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (28 Kb) Baixado 7 vez(es)


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    ictsp
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 222
    Registrado : 02/09/2016

    [Resolvido]Separar campo usando caracter Empty Re: [Resolvido]Separar campo usando caracter

    Mensagem  ictsp 3/11/2021, 10:57

    Bom dia!

    Prezado DamascenoJr,
    Vou atualizar a minha tabela utilizando seu código e a partir daí, salvar os dados separadamente.
    Aproveitando a oportunidade, vc teria alguma indicação de material de estudo?
    Desde já, muito obrigado mesmo pela força!
    avatar
    ictsp
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 222
    Registrado : 02/09/2016

    [Resolvido]Separar campo usando caracter Empty Re: [Resolvido]Separar campo usando caracter

    Mensagem  ictsp 3/11/2021, 20:24

    Resolvido!!
    Muito obrigado!!!

      Data/hora atual: 6/10/2022, 08:07