Access - Evento KeyUp (supongo)

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