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


    Formatar em colagem de controles (mesma tabela)

    Access365
    Access365
    Avançado
    Avançado


    Respeito às regras : 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 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: 8/11/2024, 06:51