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

    Texto para coluna

    avatar
    washingtoncgama25
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 02/06/2020

    Texto para coluna  Empty Texto para coluna

    Mensagem  washingtoncgama25 7/11/2020, 17:41

    boa tarde

    Caros colegas

    estou com o seguinte problema, trabalho com leitura de seriais estes seriais vem em formato de uma etiqueta com código de barras 2D quando efetua a leitura deste código ele vem da seguinte forma:

    N5XMEYXY5 Y544741176X8XX9 Y544741176X8488 Y54474117794676 Y54474117794619 Y54474117794494 Y544741177954XX Y544741177X4246 Y54474117794551 Y544741176X6128 Y54474117591YY8

    ai estou precisando que ao fazer a Leitura ele quebre em uma unica coluna da seguinte forma:

    N5XMEYXY5 (esse precisaria excluir)
    Y544741176X8XX9
    Y544741176X8488
    Y54474117794676
    Y54474117794619
    Y54474117794494
    Y544741177954XX
    Y544741177X4246
    Y54474117794551
    Y544741176X6128
    Y54474117591YY8

    desde já agradeço a todos
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    Texto para coluna  Empty Re: Texto para coluna

    Mensagem  DamascenoJr. 7/11/2020, 18:23

    Código:
    'observação:
    'propriedade "Comportamento da tecla Enter" do campo, na guia "outra"
    'configurado para iniciar nova linha

    'variável a nível de módulo
    Private booPrimeiro As Boolean

    'evento "após atualizar" do campo
    Private Sub Texto0_AfterUpdate()

        booPrimeiro = False

    End Sub

    'evento "ao pressionar tecla" do campo
    Private Sub Texto0_KeyPress(KeyAscii As Integer)

        If KeyAscii = vbKeySpace Then

            If Not booPrimeiro Then
                KeyAscii = 0
                Me!Texto0.Value = ""
                booPrimeiro = True
            Else
                KeyAscii = vbKeyReturn
            End If
           
        End If

    End Sub


    .................................................................................
    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
    washingtoncgama25
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 02/06/2020

    Texto para coluna  Empty texto para coluna

    Mensagem  washingtoncgama25 8/11/2020, 22:57

    BOA NOITE

    damascenoJR

    testei seu código e infelizmente ele não funcionou, não sei se fiz correto vou anexar o arquivo para sua analise.
    Anexos
    Texto para coluna  Attachmentteste.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (31 Kb) Baixado 2 vez(es)
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    Texto para coluna  Empty Re: Texto para coluna

    Mensagem  DamascenoJr. 8/11/2020, 23:04

    Veja
    Anexos
    Texto para coluna  Attachmentteste_rev.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (33 Kb) Baixado 3 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.

      Data/hora atual: 8/2/2023, 00:28