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

    Formatar em colagem de controles (mesma tabela)

    Access365
    Access365
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 288
    Registrado : 09/07/2012

    Formatar em colagem de controles (mesma tabela) Empty Formatar em colagem de controles (mesma tabela)

    Mensagem  Access365 em 5/10/2012, 02:11

    Formatar em colagem de controles com dados vindos da mesma tabela.
    CASO: Tudo em maiúsculo, soltando um espaço para cada letra e dois para cada palavra
    TABLE: campo1 e campo2
    FORM: controle1 e controle2

    CÓDIGO para transpor do controle1 para o controle2: (Evento: Ao sair)
    Private Sub controle1_Exit(Cancel As Integer)
    'by criquio © Maximo Access
    Dim N As Integer, M As String
    Me.controle2 = StrConv(Me.controle1, 1)
    For N = 1 To Len(Me.controle2)
    M = M & Mid(Me.controle2, N, 1) & " "
    Next
    M = RTrim(M)
    Me.controle2 = Replace(M, "  ", "  ")
    End Sub

    Entrada do texto no controle1: Escritório de Advocacia
    Resultado no controle2: E S C R I T Ó R I O D E A D V O C A C I A

    Eu estava com esta dúvida e o criquio me deu este código, então eu o postei para futuras consultas.
    Luz e Paz!
    Paulo César

      Data/hora atual: 4/12/2020, 13:32