Ricardo Páramo

Cristina PC respondió: Muchas gracias!!

Revisé bien el código y encontré un error en el uso de comillas en la clausula WHERE WHERE (((PRUEBAS.PruRea)="Sí")); WHERE (((PRUEBAS.PruRea)='" & Sí & "'));

Continué buscando una solución al asunto y la encontré en el trabajo de Juan M Afán de Ribera sobre el uso de la función "Cargar fichero con WizHook".

Investigué un poco y resulta que sólo se debe agregar PtrSafe entre las palabras declare y function en los módulos donde se usa esa expresión.

Quiero cerrar la pregunta porque continué analizando el asunto y logré encontrar una solución

Seguí analizando el código después de descansar y lo resolví. Aquí va la solución por si a alguien le es útil. Saludos Private Sub APemar1() '****************************** 'Actualiza el campo Servi1 en TPEMAR '****************************** Set dbs...

Sveinbjorn El Rojo respondió: a ver que tal así: Private Sub BtnNVeces_Click() Dim db As Database Dim rs As Recordset Dim VRegis As Integer Dim VCodigo As String, VServi1 As String 'Pones 0 a todos los valores CurrentDb.Execute "UPDATE TPEMAR SET Servi1=0" Set db = CurrentDb Set...

Sveinbjorn El Rojo respondió: ¿Por qué no usas consultas de actualización, en vez de recorrer el segundo recordset para cada registro del primero? Sería una cosa así: Private Sub CodNacimi_Click() Dim db As Database Dim rs1 As Recordset Dim VMuNac As String Dim miSQL As String...