Access - Código funcionaba, Ahora Sale Error

Estimados amigos de Access
El siguiente código funcionó bien durante varios años, pero ahora y sin motivo aparente, no funciona bien.

No sé si si es que éste código ya no es válido hoy día o no sé qué pasó.
Me ayudan por favor?

Gracias


End Sub

Error: -2147352567(80020009)

pon una foto por faaa

Si 'antes' funcionaba y ahora no, algo puede haber cambiado (una posible adaptación a los cambios del entorno laboral) .

El código publicado hace suponer que hay un combo [NombreTrabajadorNomina] con mas de veinte columnas y de ellas se extraen los datos.

Me llama la atención que siendo un objeto del formulario actual no se le añada el 'Me' como al resto de los objetos (algo se gana a coste muy bajo).

Si el cuadro de texto [SaludNomina] no acepta el dato es muy probable su origen de datos sea numérico (no de texto) y se de la circunstancia de no tener valor (su origen: el combo) y la función Nz devuelve un texto (dato que no es compatible).

Si en la ventana de inmediato (la que se publico y detenido en el error) se escribe:


Y tras ello un [Enter} ¿Que devuelve Access?.

Hola, Buenos días.
Como observarás cambié un Nz por Me. y sale Error de compilación.
Revisé los campos y cada uno está como corresponde : Texto a Texto, Fecha a fecha, Moneda a Moneda.
Algo estoy haciendo sin entender..?

Gracias por tu paciencia.

El código que has publicado ¿Es heredado? .......

Línea original:


La propuesta = Utilizar 'Me' para referenciar los objetos del formulario:


Si el tipo de dato de [SaludNomina] fuese numérico (en lugar de un texto)


¿Porqué es aconsejable referenciar correctamente a los objetos del formulario? ...

Porque 'Me' le indica al motor de Access que el objeto en cuestión es [un cuadro de texto]/[un ComboBox]/[un Cuadro de lista]/[un Botón] ... etc y no una variable función o cualquier otra posibilidad.

No se tarda lo mismo en localizar [XXX] en toda la vivienda que en el cajón superior del armario de la entrada de la vivienda...

Nota:
Nz es una función que evalúa un dato (el primer parámetro) y si es un NULL, devuelve un valor alternativo (el segundo parámetro)
(el valor alternativo ha de ser adecuado a su destino, normalmente: una cadena vacía si es texto / un cero si se espera un número)

Esta almacenando texto " " en campo numérico, cambie NZ(combo.colum(x)," ") por NZ(combo.colum(x)) el Me es opcional pero es mejor anteponerlo. Nz() por defecto deja 0 si es null

Nz es una función integrada de Access, como la gran mayoría de las funciones devuelve un dato de tipo Variant.
Las variables de tipo Variant si son capaces de detectar el tipo de dato del destino se adaptan a el.
(unas veces una virtud, otras el mayor de los pecados cuando el destino admite nulos).

Si no logran detectar el tipo de dato en destino: el resultado es impredecible

Si se le indica el tipo de dato (el programador 'debería' conocerlo: es su criatura) los riesgos se minimizan o simplemente desaparecen.

Al programar en la ventana de VBA, si se delimita con el punto (.) en lugar de la admiración (!) suele aparecer una lista con las posibilidades y (salvo excepciones que aun siendo escasas existen) una vez que aparece marcada en la lista un toque en la tecla 'TAB' y la añade a la línea en curso evitando errores en tiempo real (el método es 'viejo' y se utiliza incluso en los móviles desde sus primeros pasos con los diccionarios)

(Columna se escribe finalizando con 'm' seguida de 'n': Column (xxx) o no reconocerá la 'palabra reservada').

Amigos de Access, Anónimo y Eduardo Pérez.

Comparé una copia de seguridad, que hice hace un año, y están iguales los 2, minuciosamente comparados. La anterior copia de seguridad funciona sin mostrar error, el archivo actual muestra el error en cuestión. Si hago clic en "Finalizar" continúa el proceso exitosamente.

Creo que me resignaré, porque no le veo solución.

Yo no soy programador, sólo sigo las instrucciones que de buena voluntad ustedes me aportan.

Muchas gracias

Tienes lo necesario para resolver el error dado que dispones de una copia de seguridad.

Si de las comparaciones has deducido que ambas son idénticos, cruza los datos de ambas.

.- Una copia de cada aplicación (la que tiene el error y la copia de seguridad que funciona)
.- Renombra al duplicado de la que da el error como ACTUAL y al duplicado de la copia de seguridad como ANTIGUA
.- A ambas se le borran las tablas -- SOLO LAS TABLAS --
.- Tras ello se IMPORTAN a cada una de ellas las tablas de la otra (los datos se importan de las originales), esto es:
.- ACTUAL importa las tablas de la copia de seguridad
.- ANTIGUA importa las tablas de la que da error

Verifica si es plenamente funcional ANTIGUA y como se comporta ACTUAL.

Si ANTIGUA funciona, el problema esta resuelto, se convierte en la copia de trabajo y el resto se pueden (borrar/almacenar ??)
Si el error persiste en ANTIGUA: el problema esta en los datos.
(verifica las tablas para intentar quedarse con los datos mas actualizados).