Error 13 vba
Publicado por Salvador (94 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:
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.
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 = NothingEnd 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
0
