Access - Error 13 vba

 
Vista:
Imágen de perfil de Salvador
Val: 98
Ha mantenido su posición en Access (en relación al último mes)
Gráfica de Access

Error 13 vba

Publicado por Salvador (90 intervenciones) el 26/03/2020 13:31:55
Tengo un cuadro de lista que me produce el error 13 en tiempo de ejecución.
El código que tengo escrito es:

1
2
3
4
5
6
7
8
9
Private Sub ListaArt_Click()
Dim rstArticulosFrm As Object
   Set rstArticulosFrm = Me.Recordset.Clone
   rstArticulosFrm.FindFirst "[CodArt] = " & Str(Nz(Me![ListaArt], 0)) ""EN ESTA
LINEA ME PRODUCE EL ERROR""
   Me.Bookmark = rstArticulosFrm.Bookmark
   rstArticulosFrm.Close
   Set rstArticulosFrm = Nothing
End Sub

Este mismo codigo lo tendo en otros cuadros de lista y diferentes formularios y si me funciona. Por mucho que miro, no encuentro nada diferente ya que
el control [CodArt], igual en otros casos (numérico)

Gracias de antemano, por vuestra ayuda.
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
sin imagen de perfil
Val: 372
Bronce
Ha aumentado su posición en 2 puestos en Access (en relación al último mes)
Gráfica de Access

Error 13 vba

Publicado por miguel (202 intervenciones) el 26/03/2020 13:47:14
dices que el control [codart] es numerico y creo que estas comparando con un valor alfanumerico str() prueba por ahi, quitar str() o poner str() a codart
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar