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
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