Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access
InverteCaracteres.zip 
Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo] Access e VBA - Formulário Desacoplado - [Passo a passo]
Conheça meu canal no Youtube e se inscreva.
Dim T As String, N As Integer
N = Len(Me.txtNormal) - 1
T = Right(Me.txtNormal, 1)
Do While N > 0
T = T & Mid(Me.txtNormal, N, 1)
N = N - 1
Loop
Me.txtInvertido = TMeu novo site: www.vcssistemas.com.br Clique aqui e veja um vídeo que explica como fazer pesquisas no forum. DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo: 1 - faça uma cópia do aplicativo 2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar 3 - use o Compactar/Reparar 4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem) Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário. Positive as mensagens que achar útil, no canto superior direito delas. |
Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo] Access e VBA - Formulário Desacoplado - [Passo a passo] Conheça meu canal no Youtube e se inscreva.
Public Function InverterTexto(strPalavras As String) As String
Dim strPal As String
Dim strConta As Long
strConta = Len(strPalavras)
Do Until strConta = 0
strPal = strPal & Mid(strPalavras, strConta, 1)
strConta = strConta - 1
Loop
InverterTexto = strPal
End Function
Utilize o Sistema de Busca do Fórum... 102 Códigos VBA Gratuitos... Instruções SQL como utilizar...napoli gosta desta mensagem