Buenos días a tod@s
Deseo ir a un registro nuevo de un subformulario y me sale error 438. "El objeto no admite esa propiedad o método" y se colorea en amarillo la línea
rst.MoveNewRec
Private Sub Comando454_Click()
If (IsNull(Forms!frmAfiliacion![Texto452])) Then
Exit Sub
Else
Dim rst As Object
Set rst = Me.SubfrmTarifas.Form.RecordsetClone
If Not rst.EOF Then
rst.MoveNewRec
Me.SubfrmTarifas.Form.Bookmark = rst.Bookmark
End If
Set rst = Nothing
Me!SubfrmTarifas.Form![Combo48] = Me.Texto452
End If
End Sub
Este código funciona si quisiera ir al último registro cambiando NewRec por Last pero lo que quiero es ir a un registro nuevo.
Solicito ayuda
Nota:Al iniciar este asunto, el foro me dice que tengo tres hilos abiertos. Que yo sepa solo tengo el anterior y ya he solicitado, después de exponer la causa, que, por mi parte, se puede cerrar.
Muchas gracias