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


3 participantes

    [Resolvido]Ideia para abrir campo em consulta

    avatar
    Belobo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 124
    Registrado : 12/07/2014

    [Resolvido]Ideia para abrir campo em consulta Empty [Resolvido]Ideia para abrir campo em consulta

    Mensagem  Belobo Seg 30 maio - 16:36

    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 ?
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2676
    Registrado : 23/01/2018

    [Resolvido]Ideia para abrir campo em consulta Empty Re: [Resolvido]Ideia para abrir campo em consulta

    Mensagem  crysostomo Seg 30 maio - 17:58

    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.


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    avatar
    Belobo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 124
    Registrado : 12/07/2014

    [Resolvido]Ideia para abrir campo em consulta Empty Re: [Resolvido]Ideia para abrir campo em consulta

    Mensagem  Belobo Seg 30 maio - 18:09

    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 !!
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2676
    Registrado : 23/01/2018

    [Resolvido]Ideia para abrir campo em consulta Empty Re: [Resolvido]Ideia para abrir campo em consulta

    Mensagem  crysostomo Seg 30 maio - 18:22

    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


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    avatar
    Belobo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 124
    Registrado : 12/07/2014

    [Resolvido]Ideia para abrir campo em consulta Empty Re: [Resolvido]Ideia para abrir campo em consulta

    Mensagem  Belobo Seg 30 maio - 18:27

    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


    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2676
    Registrado : 23/01/2018

    [Resolvido]Ideia para abrir campo em consulta Empty Re: [Resolvido]Ideia para abrir campo em consulta

    Mensagem  crysostomo Seg 30 maio - 18:45

    Anexe o banco aqui.


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    avatar
    Belobo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 124
    Registrado : 12/07/2014

    [Resolvido]Ideia para abrir campo em consulta Empty Re: [Resolvido]Ideia para abrir campo em consulta

    Mensagem  Belobo Seg 30 maio - 20:29

    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
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2676
    Registrado : 23/01/2018

    [Resolvido]Ideia para abrir campo em consulta Empty Re: [Resolvido]Ideia para abrir campo em consulta

    Mensagem  crysostomo Seg 30 maio - 20:30

    Sucesso...


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    avatar
    ARGONZALE
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 246
    Registrado : 20/05/2015

    [Resolvido]Ideia para abrir campo em consulta Empty Re: [Resolvido]Ideia para abrir campo em consulta

    Mensagem  ARGONZALE Seg 30 maio - 20:58

    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


    .................................................................................
    Att.

    Alexandre Gonzales

    crysostomo gosta desta mensagem


    Conteúdo patrocinado


    [Resolvido]Ideia para abrir campo em consulta Empty Re: [Resolvido]Ideia para abrir campo em consulta

    Mensagem  Conteúdo patrocinado


      Data/hora atual: Qui 28 Mar - 5:33