[Resolvido]Ajuda com 2 caixas de texto

Tenho 2 caixas de testo e gostava de saber se era possível configurar dado de uma para outra, ou seja, ao colocar um numero na text1 a dois me desse o valor a seguir. O problema é que é na configuração. Tipo isto:

Texto1 = 123/121
Texto2 = 124/121

A barra e o que está a seguir tem de ficar igual mas não é dado fixo pode ser outro dado tipo:

Texto1 = 127/14
Texto2 = 128/14

Tentei algo assim mas não funciona

Private Sub Texto1_LostFocus()
Me.Texto2 = Me.Texto1+1
End if
End Sub

Utilizando a função Mid não resolveria não?
Ex:

Código:

Dim x, k As String

x = Mid(Me.txt1, 1, 3)
k = Mid(Me.txt1, 4, 10)

Me.txt2 = x + 1 & k


É isso mesmo obrigado.

Só alterei o comando tirando-o do botão e coloquei na caixa 1 ao perder focus.

O fórum agradece o retorno.

Peço desculpa formiga10X mas utilizando o teu codigo surgiu-me uma duvida:

Dim x, k As String

x = Mid(Me.[Oficio Registado], 1, 3)
k = Mid(Me.[Oficio Registado], 4, 10)

Me.Texto726 = x + 1 & k

o código dá para alterar 3 digitos ou seja

001/14 por exemplo
e quando chegar ao 999/14 quando escolher o 1000/14 o código faz 1010/14 e não 1001/14

pensei em algo tipo


Private Sub Oficio_Registado_AfterUpdate()
Dim x, k As String

If Me.[Oficio Registado] > "0/##" Or Me.[Oficio Registado] < "1000/##" Then
x = Mid(Me.[Oficio Registado], 1, 3)
k = Mid(Me.[Oficio Registado], 4, 10)

Me.Texto726 = x + 1 & k

Else

x = Mid(Me.[Oficio Registado], 1, 4)
k = Mid(Me.[Oficio Registado], 5, 10)

Me.Texto726 = x + 1 & k
End If
End Sub

mas não funciona

Olá Toy agora que vi sua msg.

Veja vc pode fazer por condição tipo:
poe um contador Len para verificar qts caracteres tem dentro da txt e então dividi-los

Ex:

Código:

x = Len(Me.txt1)

If x = 6 Then
x = Mid(Me.txt1, 1, 3)
k = Mid(Me.txt1, 4, 10)
Me.txt2 = x + 1 & k
End If

If x = 7 Then
x = Mid(Me.txt1, 1, 4)
k = Mid(Me.txt1, 5, 10)
Me.txt2 = x + 1 & k
End If

If x = 8 Then
x = Mid(Me.txt1, 1, 5)
k = Mid(Me.txt1, 6, 10)
Me.txt2 = x + 1 & k
End If

Obrigado novamente formiga10x, ficou assim

Código:

Private Sub Oficio_Registado_AfterUpdate()
Dim x, k As String

x = Len(Me.[Oficio Registado])

If x = 4 Then
x = Mid(Me.[Oficio Registado], 1, 1)
k = Mid(Me.[Oficio Registado], 2, 10)
Me.Texto726 = x + 1 & k
End If

If x = 5 Then
x = Mid(Me.[Oficio Registado], 1, 2)
k = Mid(Me.[Oficio Registado], 3, 10)
Me.Texto726 = x + 1 & k
End If

If x = 6 Then
x = Mid(Me.[Oficio Registado], 1, 3)
k = Mid(Me.[Oficio Registado], 4, 10)
Me.Texto726 = x + 1 & k
End If

If x = 7 Then
x = Mid(Me.[Oficio Registado], 1, 4)
k = Mid(Me.[Oficio Registado], 5, 10)
Me.Texto726 = x + 1 & k
End If

If x = 8 Then
x = Mid(Me.[Oficio Registado], 1, 5)
k = Mid(Me.[Oficio Registado], 6, 10)
Me.Texto726 = x + 1 & k
End If

End Sub

Já agora, esqueci.

Resolvido

Vlw meu amigo forte abraço