En un formulario tengo un txt llamado txtAA y quiero q al ingresar cualquier numero me lo muestre tambien en otro txt llamando txtA que esta dentro de una OCX q hice dentro del mismo formulario tengo lo siguiente:
'En el Formulario
Private Sub txtAA_Change()
ucFormula1.A = Me.txtAF.Text 'Para llamar a la ocx llamada ucFormula1
End Sub
'En la OCX
Dim iA as String
Public Property Get A() As String
A = Val(iA)
End Property
Public Property Let A(ByVal vA As String)
If IsNumeric(vA) Then
If Val(vA) >= 0 And Val(vA) < 1000 Then
iA = vA
Else
iA = 1
End If
Else
iA = 1
End If
End Property
Cuando modifico txtAA no me lo muestra en txtA, pero si modifico txtA si lo muestra en txtAA y debe ser en ambos lados igual otro problema que tengo es q dentro de txtAA debe ser un numero entre 0 y 1000 ahi estoy bien pero en txtA q esta en la Ocx debe ser entre 1 y 799 en la ocx tengo lo siguiente:
Private Sub txtA_Change()
If txtA.Text >= 0 And txtA.Text <= 799 Then
iA = txtA.Text
Else
txtA.Text = Val(txtA.Text)
End If
End Sub
No se cual es el problema, les agradeceria si ayudan a saber en que me estoy equivocando.....