Cambia formato de moneda con VBA

Tengo el siguiente código vba que funciona de maravilla

Me.Moneda.Caption = DLookup("[Monena Preferida]", "Mis Datos", "[Monena Preferida]")
If Me.Moneda.Caption = "Moneda Estandar" Then
Me.Valor.Format = ("$ #,###.00")
ElseIf Me.Moneda.Caption = "Sol Peruano" Then
Me.Valor.Format = ("#,###.00 PEN")
ElseIf Me.Moneda.Caption = "Peso Uruguayo" Then
Me.Valor.Format = ("$U #,###.00")
ElseIf Me.Moneda.Caption = "Euro Español" Then
Me.Valor.Format = (" #,###.00 €")
ElseIf Me.Moneda.Caption = "Sin Formato" Then
Me.Valor.Format = (" #,###.00")

Pero la cosa es la siguiente he creado un campo personalizado, en donde el usuario pondrá el símbolo correspondiente a su moneda. Para que el usuario personalice el símbolo de la moneda para todo el sistema intente con lo siguiente

ElseIf Me.Moneda.Caption = "Personalizada" Then
Me.Valor.Format = DLookup("[Pie]", "Mis Datos", "[Pie]")

Pero no muestra el valor correctamente, alguien me puede ayudar con esto y desde ya muchas gracias por el tiempo.

1 Respuesta

Respuesta
1

Sobran los paréntesis. Por ejemplo:

Es decir en pie debe tener registrado este formato  #,###.00 €.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Añadir búsqueda al azar en formularios de Access

Tengo un archivo de Access que quiero modificar y actualizar para añadir nuevas preguntas a una base de datos. He visto que en el formulario hay una casilla como de verificación para seleccionar al azar las preguntas de toda la base de datos pero...
2 respuestas

Como puedo añadir registros desde un formulario de búsqueda a un subformulario de otro formulario de registros de artículos

Tengo un formulario [Entrada_almacen] con un subformulario [Subformulario entradas almacen] en el que quiero que se vallan añadiendo los registros; Código (es un campo calculado), Artículo (combobox, porque también lo puedo seleccionar y si lo hago...
2 respuestas

Suma continua aparece en todos los demás registros

Tengo 2 tablas relacionadas,,,,, la tabla 1 la uso con el formulario principal,,,, la segunda para un subformulario,,,,,, y tango una consulta basada en la tabla 2 Con consulta contiene los campos entrada salida saldo (saldo ya esta con su fórmula...
2 respuestas

Macro eliminar filas con valor

Tengo esta macro que me elimina las filas cuando el valor es #N/D, pero me ha dejado de funcionar cuando el valor es #CALC! Me podéis echar una mano. Muchas gracias. Sub Borrar_Filas() Dim ultifila As Integer 'guardo la última fila utilizada en la...
2 respuestas

Encontrar datos no coincidentes excel

Sucede que tengo que comparar dos bases de datos y encontrar los elementos no coincidentes para analizar. Se puede hacer por fórmula pero necesito algo más optimizado. El otro problema es que los datos son más de 1.48.576 capacidad de líneas de...
2 respuestas

Cantidad mayor y menor en campos calculados

Tengo un formulario principal con tres subformularios y cada uno con una serie de campos de tipo numero sin decimales, Campo 1, Campo 2, Campo 3... Todos tienen 1 campo calculado del totales, basado en la suma de todos los campos de cada formulario,...
2 respuestas

Botón búsqueda en formulario Access

Tengo diseñado un formulario sencillo para hacer registro de datos, al dar el botón guardar esta información se va a una tabla, hasta hay normal, pero 1. Esta información no se llena de una vez por ejemplo Se llena del orden de arriba hacia abajo...
5 respuestas

¿Cómo resolver num a letras en excel?

En un libro excel habilitado para macros al convertir números a letras, en lugar de aparecer el resultado esperado aparece el mensaje # ¿NOMBRE?.
2 respuestas

¿Cómo ajustar texto automáticamente en celdas combinadas en Excel 2019?

Solicito amablemente su valiosa ayuda para ajustar automáticamente un rango de celdas de una columna, he intentado con la opción de ajuste autamático de filas, también con al opción de ajustar texto de la pestaña inicio e incluso con la siguiente...
1 respuesta

Outlook ya no envía mis correos desde Access, no reconoce la contraseña

Desde access envío un correo electrónico al cliente con el PDF de una factura a través de outlook, pero recientemente con la seguridad actual (oAuth) ya no me deja, utilizo outlook 2016 ¿Alguien sabe como resolverlo?
1 respuesta