Problema con formulario
Publicado por Salvador (94 intervenciones) el 10/12/2015 12:50:37
Para pasar datos de un cuadro de lista a un formulario utilizo la siguiente expresión:
esta expresión me funciona bien colocandola en el apartado "Después de actualizar"
pero si intento colocarla en un subformulario utilizo
y me produce el error que adjunto en un pdf.
Alguien me podría dar uns solución.?
Gracias.
Salva
1
2
3
4
5
6
Private Sub Lista0_AfterUpdate()
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[codigo] = " & Str(Nz(Me![Lista0], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
esta expresión me funciona bien colocandola en el apartado "Después de actualizar"
pero si intento colocarla en un subformulario utilizo
1
2
3
4
5
6
7
Private Sub Lista0_AfterUpdate()
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst(Forms![ContaPresupuestoLineasCons]![cuentaPresup]) = " & Str(Nz(Me![Lista0], 0))"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
y me produce el error que adjunto en un pdf.
Alguien me podría dar uns solución.?
Gracias.
Salva
- Doc1.zip(1,2 MB)
Valora esta pregunta


0