conversor euros/pesetas
Publicado por Jesus (4 intervenciones) el 02/11/2013 10:44:36
Hola
He visto en la web "http://macedoniamagazine.frodrig.com/excel3.htm" en una hoja excel este codigo que me interesa, hacer funcionar en access:
para un campo y :
para el otro, pero no consigo que funcione en access.
Seguramente estaré haciendo mal las cosas.
Alguien podria echarme una mano?
jesus
He visto en la web "http://macedoniamagazine.frodrig.com/excel3.htm" en una hoja excel este codigo que me interesa, hacer funcionar en access:
1
2
3
4
5
6
7
Private Sub editPesetas_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If editPesetas.Text <> "" Then
editEuros.Text = Format(editPesetas.Value / 168, "0.00")
Else
editEuros.Text = ""
End If
End Sub
para un campo y :
1
2
3
4
5
6
7
Private Sub editEuros_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If editEuros.Text <> "" Then
editPesetas.Text = Format(editEuros.Value * 168, "0.00")
Else
editPesetas.Text = ""
End If
End Sub
para el otro, pero no consigo que funcione en access.
Seguramente estaré haciendo mal las cosas.
Alguien podria echarme una mano?
jesus
Valora esta pregunta
0