[Resolvido]Preenchimento de caixa de texto da direita pra esquerda

Olá Senhores(as)

Tenho uma caixa de texto, com um campo tipo texto curto e formato "AAAA"999999
Eu gostaria que quando o usuário fosse preencher este campo a Mascara de entrada aparecesse assim:

"LOTE000000"

E que ao preencher o usuário visse isso:

"LOTE000001"
"LOTE000012"
"LOTE000123"

Ou seja, quando saísse, o conteúdo do campo seria "LOTE000123"
É possível? Se for, como?

Obrigado

Sergio Cardoso

>>>>> É SEMPRE BOM TER AMIGOS <<<<<<

seu caso é semelhante a este, tente e nos retorne com o resultado

https://www.maximoaccess.com/t27964-resolvidonumeracao-automatica-personalizada

Obrigado Nois, mas não tem absolutamente nada a ver com minha dúvida.

Na mascara de Entrada coloque:

"LOTE"00000


Assim, ao entrar no Campo ja aparecerá: LOTE e so deixara colocar Numero com 6 digitos.

Olá Senhores(as)

Penso que não me expressei direito. Vou refazer a dúvida



Tenho uma caixa de texto, com um campo tipo texto curto e formato "AAAA"999999
A mascara de entrada que defini no formulário é: LOTE000000
Eu gostaria que quando o usuário fosse preencher este campo a Mascara de entrada aparecesse assim:

"LOTE000000"

E que ao preencher o usuário visse isso:

"LOTE000001"
"LOTE000012"
"LOTE000123"


Ou seja, que o cursor se posicionasse na direita e fosse preenchendo o conteúdo da direita para a esquerda e quando saísse, o conteúdo do campo seria "LOTE000123"
É possível? Se for, como?
É esta minha duvida
Obrigado

Sergio Cardoso

Boa tarde,
Crie um formulário com 2 caixas de texto, uma delas denomine-a Txt0 e cole este código

Código:

Option Compare Database
Option Explicit

    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    '  módulo criado por Alexandre Neves, do Fórum MaximoAccess                                                '
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Private LngLote As Long

Private Sub Form_Load()
    LngLote = 0
    Txt0 = "LOTE" & Format(LngLote, "00000")
End Sub

Private Sub Txt0_AfterUpdate()
    Txt0 = "LOTE" & Format(Txt0, "00000")
End Sub

Private Sub Txt0_Change()
    LngLote = Val(Mid(Txt0.Text, 5))
    Txt0 = "LOTE" & Format(LngLote, "0000")
    Txt0.SelStart = 8
End Sub

Private Sub Txt0_Enter()
    Txt0 = "LOTE" & Format(LngLote, "0000")
    Txt0.SelStart = 8
End Sub

Private Sub Txt0_Exit(Cancel As Integer)
    LngLote = Val(Mid(Txt0.Text, 5))
    Txt0 = "LOTE" & Format(LngLote, "00000")
End Sub


Boa tarde Alexandre Neves,

Não sou um expert em VBA. Aliás, sou na verdade um noob.
Mas não consegui fazer funcionar
Mas tentar fazer funcionar me suscitou algumas dúvidas, por exemplo:

Porque criar DUAS caixas de texto no formulário?
Para que serve a segunda?
Colar o código onde?
As expressões ficaram todas em vermelho, por quê?
A expressão "Txt0.SelStart = 8" inicia o curso na posição final do campo, mas ao digitar não muda para a esquerda

De qualquer forma, muito obrigado pela força.

Sergio Cardoso

>>>>> SEMPRE É MUITO BOM TER AMIGOS <<<<<

Obrigado