Access - recordset ha dejado de funcionar en office 2007

 
Vista:
sin imagen de perfil

recordset ha dejado de funcionar en office 2007

Publicado por carlos (1 intervención) el 18/10/2013 11:05:35
Muy buenas, necesito vuestra ayuda para solucionar un problema con un recordset. El caso es que funciona perfectamente con office 2003, pero algunos equipos que usan la BD están subiendo a offcie 2007 y han empezado a aparecer problemas. El código que falla es el siguiente:

If Not IsNull(Me.ccIrANregistro) Then
With Me.RecordsetClone
.FindFirst "[nRegistro] =" & CInt(Me.ccIrANregistro) & "AND Year(fentrada) = " & CInt(Me.ccIrAanio)

If Not .NoMatch Then
Me.Bookmark = .Bookmark
'Hago visible el subformulario con los datos asociados al Grupo al que pertenece el registro
If (Me.ccGrupo.Value = "AV") Then
Me.AsuntoDispositivos.Visible = True
ElseIf (Me.ccGrupo.Value = "FI") Then
Me.subFfIdentificativa.Visible = True
Me.fIdentificativaTFinal.Visible = True
'Me.FIntificativaTFinalEtiqueta.Visible = True
ElseIf (Me.ccGrupo.Value = "TP") Then
Me.Fotografía_Color.Visible = True
ElseIf (Me.ccGrupo = "IF") Then
Me.sInfografiaForenseNimagenes.Visible = True
Me.sInfografiaForenseProcesoDatos.Visible = True
Me.sInfografiaForenseTomaDatos.Visible = True
Me.sInfografiaForenseDestinatarios.Visible = True
Me.AsuntoDispositivos.Visible = True
End If

'Actualizo valor campo ctanioRegistro
Me.ctAnioRegistro = Year(Me.FEntrada)

Me.ctFsalida.SetFocus



Else
MsgBox ("No existe registro núm. " & CInt(Me.ccIrANregistro) & " para el año " & CInt(Me.ccIrAanio))
End If

y el problema es que busques los que busques siempre se ejecuta la entrada Else (no existe registro); es decir, parece que el recordset está vacío.

Como os digo este código lleva ya varios años funcionando sin problemas en office 2003 y de hecho sigue funcionando bien en los equipos que mantienen esa versión.

Muchas gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder