MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

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

    Texto para coluna

    avatar
    washingtoncgama25
    Novato
    Novato

    Respeito às Regras 100%

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

    Texto para coluna  Empty Texto para coluna

    Mensagem  washingtoncgama25 em 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 100%

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

    Texto para coluna  Empty Re: Texto para coluna

    Mensagem  DamascenoJr. em 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 100%

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

    Texto para coluna  Empty texto para coluna

    Mensagem  washingtoncgama25 em 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 100%

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

    Texto para coluna  Empty Re: Texto para coluna

    Mensagem  DamascenoJr. em 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: 4/12/2020, 13:57