Error en Access No coinciden los tipos de datos en la expresión de criterios.
Buenos dias.
Estoy creando un formulario donde pongo un cuadro de lista donde aparecen todos mis registros que tengo en mi tabla, lo que quiero es que cada vez que seleccione un registro me aparezcan los datos en el mismo formulario para poder solo visualizarlos. Tengo este codigo y me crea el error en el rs.FindFirst "[FOLIO No] = " & Str(Nz(Me![Lista10], 0)) .
Private Sub Lista10_AfterUpdate()
Dim rs As Object
'Èste código permite comparar la clave principal de la lista que hemos seleccionado y la compara con el ID Cliente.
Set rs = Me.Recordset.Clone
rs.FindFirst "[FOLIO No] = " & Str(Nz(Me![Lista10], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
De antemano gracias.
1 Respuesta
si tu campo [FOLIO No] es de tipo numérico (como parece serlo), no le puedes pasar un valor de tipo texto, que es lo que haces tú al aplicarle la función Str al valor de [Lista10].
Si esto es así, la linea que te da error deberá ser así: rs.FindFirst "[FOLIO No] = " & Nz(Me![Lista10], 0)
Y si [FOLIO No] está definido como texto en la tabla, tendrá que ser así: rs.FindFirst "[FOLIO No] = '" & Str(Nz(Me![Lista10], 0)) & "'"
