Error 13, no coindicen los tipos
Publicado por Salvador (94 intervenciones) el 16/06/2020 13:15:22
Al enlazar un registro de un cuadro de lista con en formulario que lo contiene uso:
Me produce error 13 3n la linea: rstContactosFrm.FindFirst "[Codigo] = " & Str(Nz(Me![Lista24], 0))
Agradecería que alguien me pudiera ayudar a solucionar este problema.
Saludos
Salva
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Lista24_Click()
Dim rstContactosFrm As Object
Set rstContactosFrm = Me.Recordset.Clone
rstContactosFrm.FindFirst "[Codigo] = " & Str(Nz(Me![Lista24], 0))
Me.Bookmark = rstContactosFrm.Bookmark
rstContactosFrm.Close Set rstContactosFrm = NothingMe.Empresa.SetFocus
End Sub
Agradecería que alguien me pudiera ayudar a solucionar este problema.
Saludos
Salva
Valora esta pregunta
0