Problema con ADO vb6

Una tabla (la cual ya está cargada con datos de una planilla de excel) la estructura tiene este formato:
Código Apellido Nombre Fecha Hora Modo
3123 Basic Visual 12/05/2050  08:50:23 Entrada
3123 Basic Visual 12/05/2050  16:02:00 Salida
Etc etc,
Esos datos los utilizo para cargarlos en una tabla con esta estructura:
Código Apellido Nombre Día Fecha Entrada Salida Horas
3123 Basic Visual Jue 12/05/2050  08:50:23 16:02:00 7
---------------
El código que les escribo a continuación me tira este error:
Err -2147217864 (80040e38)
Descripción "No se puede encontrar la fila para su actualización: algunos valores han cambiado desde la última vez que se leyó."
Este es el código fuente:
For i = 1 To rsX.RecordCount
    If rsF.RecordCount > 0 Then
        Err = 0
        rsF.Filter = "Apellido='" & rsX("Apellido") & "' AND Nombre='" & rsX("Nombre") & "' AND Fecha=#" & rsX("Fecha") & "#"
        If rsF.RecordCount = 1 Then
            If rsX("Modo").Value <> "Salida" Then
                If rsF("Entrada") = Null Then rsF("Entrada") = rsX("Hora")
                If rsF("Entrada") > rsX("Hora") Then rsF("Entrada") = rsX("Hora")
            Else
                If rsF("Salida") = Null Then rsF("Salida") = rsX("Hora")
                If rsF("Salida") < rsX("Hora") Then rsF("Salida") = rsX("Hora")
            End If
            'rsF("Horas") = CalcularHoras(rsF("Entrada"), rsF("Salida"), rsE("TEntrada"), rsE("TSalida"), rsE("SEntrada"), rsE("SSalida"), rsE("DescSabado"), rsF("Fecha"), rsF("Apellido"), rsF("Nombre"), 5, 57,, rsE("Especiales"))
 else
     'codigo para agregar una nueva fichada
 End If
    Else
        rsF.Filter = adFilterNone
        With rsF
        .AddNew
        .Fields("Codigo") = rsX("Codigo")
        .Fields("Apellido") = rsX("Apellido")
        .Fields("Nombre") = rsX("Nombre")
        .Fields("Dia") = WeekdayName(Weekday(rsX("Fecha"), vbSunday), True, vbSunday)
        .Fields("Fecha") = rsX("Fecha")
        If rsX("Modo").Value <> "Salida" Then
            .Fields("Entrada") = rsX("Hora")
            .Fields("Salida") = TimeValue("23:59:59")
        Else
            .Fields("Salida") = rsX("Hora")
            .Fields("Entrada") = TimeValue("00:00:00")
        End If
        '. Fields("Horas") = CalcularHoras(rsF("Entrada"), rsF("Salida"), rsE("TEntrada"), rsE("TSalida"), rsE("SEntrada"), rsE("SSalida"), rsE("DescSabado"), rsF("Fecha"), rsF("Apellido"), rsF("Nombre"), 5, 57,, rsE("Especiales"))
        End With
    End If
rsX.MoveNext
Next
rsF.Filter = adFilterNone
rsF.UpdateBatch adAffectAllChapters
datFichadas.Refresh
rsF.Sort = "Codigo ASC, Fecha DESC"
rsF.Requery
Screen.MousePointer = vbDefault
Exit Sub
----------
Cualquier ayuda idea que tengas me sería de gran ayuda.
¡Help!

3 respuestas

Respuesta
1
Pero estas trabajando con vb 6.0 y access o directamente un excel y de ahí usas macros
Respuesta
1

Es muy simple, MySQL te genera este error sino cambias ningún campo de la tabla. Cambia algo en los campos o no generes el comando ".update" cuando no existen cambios.

Respuesta
Por el mensaje de error estas intentando acceder a una fila que no existe, sin embargo no especificas en que linea del código se dispara el error.
perdón, me lo tira en la línea: If rsF.RecordCount = 1 Then
Cabe aclarar que rsX es el recordset de la primer tabla de donde tomo los datos; y rsF el recordset de la tabla donde escribo los datos.
Si lo que intentas preguntar es si el recordset esta vacío pregunta
If Not rsF.EOF And Not rsF.OF Then
' Hay datos en el recordset
Else
' recordset esta nulo o vacio
End if
Si, pensé que podría ser ese el problema, por eso también había probado con If Not rsF.RecordCount <> 1 Then pero me tira el mismo error. También acabo de probar con If Not rsF.BOF And Not rsF.EOF Then y no pasa naranja. La verdad no sé que puede ser.
Debes cambiar la manera com haces als preguntas posiblemente, y revisar tu lógica porque la instrucción que te apse funciona para dectecatr si un recordset no ha devuelto datos que es tu problema
If Not rsF.BOF And Not rsF.EOF Then. Por lo que entiendo esta sentencia asegura que la posición de recordset actual no sea ni 3 ni -3. Pero el error, a mi parecer, está diciendo que el recordset que quiero acceder cambió de lugar o lo abrán actualizado desde otro lado(cosa que es imposible a esta altura porque esa base es local)
Estas equivocado, lo que asegura la instrucción es que no sea el fin de archivo o sea más allá del ultimo registro del rcordset o que no sea antes del principio, si esto es cierto quiere decir que hay registros en el recordset.
No se que que te refieres con 3 y -3, lo que dice el mensaje no es que el recordset cambio de lugar, eso no es así pues el recordset es un objeto de memoria del pc que ejecuta no de la red.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Problema procedimiento move completed vb6

Estoy programando hace poco en vb 6 y cuando quiero moverme por el recordset con el procedimiento move completed me da este error: La declaración del procedimiento no coincide con la descripción del evento o el procedimiento que tiene el mismo...
1 respuesta

Concatenar registros

Un experto de aquí contestó hace tiempo a una pegunta similar. Lo que quiero es concatenar los registros del campo "email" separados por ";". Este es el código que dio: Private Sub Comando14_Click() Dim r As Recordset bu = FreeFile Open "fichero.txt"...
1 respuesta

Modificar registros y luego actualizar base de dat

Espero que me colabores en lo siguiente: Tengo en un formulario un datagrid, el botón de buscar y el de modificar, ademas adicional a esto esta otro botón para guardar cambios más abajo coloque tres textbox, mi pregunta es la siguiente:¿Qué código le...
1 respuesta

No coinciden los tipos vb6 y acces2007

Tengo 3 datagrid, enlasados a una bd de access con adodc, mi problema es que del datagrid 1 paso algún registro al 3 y si encuentra algún campo vacion me envía un error de ""no coinciden los tipos"", he buscado la solución de diferentes formas, he...
1 respuesta

Añadir datos a una tabla desde otra.

Tengo un formulario de albaranes que recoge los datos de varias tablas. Una de ellas es la de productos y deseo que incluya en la tabla DetallesAlbaranes el valor del producto de la tabla Productos, pero que al mismo tiempo si se quiere se pueda...
1 respuesta

Evitar traslape de datos en MS Access

Resulta que estoy implementando una base de datos y quiero evitar los traslapes de información, para contextualizar la situación les daré una idea de como esta elaborada la tabla que me produce traslape: Orden... Proc... PaU... Fini... Ffin...
1 respuesta

Validar datos con cuadro de texto 2

En días pasados me resolviste una duda acerca de como validar el texto escrito en un cuadro de texto en access y compararlo con lo que hay en mi tabla, el problema es que al ejecutar la operación access me marca error en la siguiente linea: Set rst =...
1 respuesta

Código para mostrá datos en un comboxbox

Necesito un código que me permita llenar un combo box con los datos de una base de datos del campo nombre de la tabala empleados.. Que el combo se autocomplete cuando coloque una letra dentro del combo mostrando todas las coincidencias
1 respuesta

Bucle para comparar dos tablas por un campo id y campo monto

En vba de access estoy intentando comparar los registros de dos tablas ( Banco y Sistema), la idea es que un bucle recorra el campo Doc de la tabla banco y evalúe el campo Doc y campo Monto de la tabla sistema, es decir, si en la tabla Sistema...
1 respuesta

Problemas al actualizar un recordset

Te planteo el siguiente ejemplo Fila Campo1 1 Dato1 2 Dato2 3 Dato3 4 Dato3 5 Dato5 Tengo la tabla anterior en un excel y me gustaría actualizarla con los valores 1;2;3;4;5. Para ello tengo el siguiente código. '--Código que funciona-- For i = 0 To...
1 respuesta