Access - Evento KeyUp (supongo)

   
Vista:

Evento KeyUp (supongo)

Publicado por Jesus (4 intervenciones) el 31/10/2013 11:08:51
Hola a todos:

No consigo hacer que dos cuadros de texto, uno euros y otro pesetas, esten sincronizados de manera que introduciendo un numero en uno cualquiera de ellos, a la vez vaya suscribiendose el otro.

Quiza alguien pueda remitirme a algun ejemplo sobre ello de la web.


Muchas gracias

Jesus
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Norberto

Evento KeyUp (supongo)

Publicado por Norberto (432 intervenciones) el 07/11/2013 13:58:44
Hola.

Prueba con esto:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Option Compare Database
Option Explicit
 
 
Private Sub txtEuros_KeyUp(KeyCode As Integer, Shift As Integer)
    Dim Valor As Currency
    If Nz(Me.txtEuros.Text) = "" Then       'Si está en blanco
             'Usamos .Text ya que esta propiedad refleja en todo momento
             'el contenido del control. .Value sólo se actualiza
             'cuando salimos del mismo.
        Me.txtPesetas = Null                'Ponemos en blanco el otro
    Else                                    'Si no
        Valor = Me.txtEuros.Text * 166.386  'Calculamos el valor
        If Nz(Me.txtPesetas) <> Valor Then  'Si es distinto al que ya está
            Me.txtPesetas = Round(Valor, 0) 'Lo actualizamos
        End If
    End If
 
End Sub
 
Private Sub txtPesetas_KeyUp(KeyCode As Integer, Shift As Integer)
    Dim Valor As Currency
    If Nz(Me.txtPesetas.Text) = "" Then
        Me.txtEuros = Null
    Else
        Valor = Me.txtPesetas.Text / 166.386
        If (Nz(Me.txtEuros)) <> Valor Then
            Me.txtEuros = Round(Valor, 2)
        End If
    End If
 
End Sub


Un saludo,

Norberto.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Evento KeyUp (supongo)

Publicado por Jesus (4 intervenciones) el 11/11/2013 19:06:14
muchas gracias, voy probarlo

saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar