Valores predeterminados

   Buenas.
Tengo el siguiente código para modificar valores predeterminados de una tabla (con contraseña) mediante un formulario con variables. Hasta el momento ha funcionado bien, pero ahora me aparece el mensaje:
"Variable de objeto o bloque With no establecido"

El código utilizado por ejemplo para la cuota del agua es:

Dim app As Application
Set app = CreateObject("Access.Application")
app.OpenCurrentDatabase "C:\PISO\2025\PISO_be.accde", , "abcdefg"
Dim db As Database
Set db = app.CurrentDb
app.CurrentDb.TableDefs("T_Consumo").Fields("CuotaAgua").Properties("DefaultValue") = Me.v_CuotaAgua
app.CloseCurrentDatabase
Set app = Nothing

Donde puede estar el error?
Antes tenía Access 2010 ahora Access Profesional Plus 2021.
Gracias y un saludo.

Autor	Mensaje Tema Buscar Opciones del Tema Responder Crear un nuevo tema Versión imprimible Traducir Tema
Nomada Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Añadir a la lista de amigos Colaborador Unido: 03/Julio/2011 Localización: España Estado: Sin conexión Puntos: 1759	Tema: Valores predeterminados Enviado: 26/Marzo/2025 a las 20:49
	Buenas. Tengo el siguiente código para modificar valores predeterminados de una tabla (con contraseña) mediante un formulario con variables. Hasta el momento ha funcionado bien, pero ahora me aparece el mensaje: "Variable de objeto o bloque With no establecido" El código utilizado por ejemplo para la cuota del agua es: Dim app As Application Set app = CreateObject("Access.Application") app.OpenCurrentDatabase "C:\PISO\2025\PISO_be.accde", , "abcdefg" Dim db As Database Set db = app.CurrentDb app.CurrentDb.TableDefs("T_Consumo").Fields("CuotaAgua").Properties("DefaultValue") = Me.v_CuotaAgua app.CloseCurrentDatabase Set app = Nothing Donde puede estar el error? Antes tenía Access 2010 ahora Access Profesional Plus 2021. Gracias y un saludo.

xavi Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Visite la página de los usuarios Añadir a la lista de amigos Administrador Terrassa-BCN Unido: 10/Mayo/2005 Localización: Catalunya \|\|\|\| Estado: Sin conexión Puntos: 14926	Enviado: 26/Marzo/2025 a las 22:05
	Hola, Preguntas ¿En que línea salta el error? ¿Desde cuando falla? ¿Desde el cambio de versión o desde hace como un par de meses? Un saludo
	Xavi, un minyó de Terrassa Mi web

Nomada Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Añadir a la lista de amigos Colaborador Unido: 03/Julio/2011 Localización: España Estado: Sin conexión Puntos: 1759	Enviado: 27/Marzo/2025 a las 18:15
	Buenas. El problema lo da en la línea 6. Creo que falló desde que cambié de versión de Access 2010 a Profesional Plus 2021. Pero es un formulario que solo lo utilizo cuando cambia la cuotas de agua. Te diré que sustituí el fichero de la base de datos (PISO_be.accde con contraseña) donde esta la tabla T_Consumo, por otro fichero PISO_be.accdb, deshabilitando la opción de contraseña en la línea y funciona bien. Creo que el problema podría ser que el fichero PISO_be.accde es de 32 bits. Pero como convertirlo a 64bits?

xavi Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Visite la página de los usuarios Añadir a la lista de amigos Administrador Terrassa-BCN Unido: 10/Mayo/2005 Localización: Catalunya \|\|\|\| Estado: Sin conexión Puntos: 14926	Enviado: 27/Marzo/2025 a las 18:23
	Asumo que el fichero PISO_be es únicamente un fichero de tablas dónde no hay código. Creo (si me equivoco que alguien me corrija) que un fichero de datos no es de 32 o 64 bits. Si dices que una versión accdb no te ha dado problemas, entiendo que es la conversión a ACCDE la que puede estar generando ese problema. En casos como este yo me hago la pregunta: ¿es estrictamente necesario que un backend sea accde? ¿Porqué debe ser accde? ¿Compensa los esfuerzos de programación? No se, yo me lo plantearía. Un saludo
	Xavi, un minyó de Terrassa Mi web

Nomada Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Añadir a la lista de amigos Colaborador Unido: 03/Julio/2011 Localización: España Estado: Sin conexión Puntos: 1759	Enviado: 27/Marzo/2025 a las 19:41
	Gracias Voy a estudiarlo y te comento.

Nomada Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Añadir a la lista de amigos Colaborador Unido: 03/Julio/2011 Localización: España Estado: Sin conexión Puntos: 1759	Enviado: 04/Abril/2025 a las 12:44
	Este hilo se puede cerrar satisfactoriamente. Un saludo.

Mihura Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Visite la página de los usuarios Añadir a la lista de amigos Administrador Unido: 06/Mayo/2005 Localización: En la dehesa Estado: en línea Puntos: 14428	Enviado: 04/Abril/2025 a las 12:56
	¿Y la solución fue ...?
	Jesús Mansilla Castells. Saludos desde Móstoles. Access Aplicaciones Tecsys.es

Nomada Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Añadir a la lista de amigos Colaborador Unido: 03/Julio/2011 Localización: España Estado: Sin conexión Puntos: 1759	Enviado: 04/Abril/2025 a las 13:25
	De momento, abrir la tabla y poner los valores a mano.