Problemas al Refrescar Subformulario por vba
Otra vez busco tu ayuda, he creado un formulario principal (MsPedidosReservas) y dentro de el un subformulario (MsPedidosReservasInsumos), he creado el siguiente evento al hacer doble click en el subform:
If ([Disponible]) <= 0 Then
MsgBox "No hay Existencia a Reservar", vbCritical, "Alerta"
Exit Sub
Else
If IsNull(DLookup("[IdPedidoParte]", "[InsumosReservados]", "IdPedidoParte=Form!IdPedidoParte")) = True Then
If ([Disponible]) <= ([Total]) Then
DoCmd.RunSQL "Insert Into InsumosReservados (IdPedidoParte, Parte, CantidadReservada) Values (" & Me!IdPedidoParte.Value & "," & Me!Parte.Value & "," & Me!Disponible.Value & ")"
Else
DoCmd.RunSQL "Insert Into InsumosReservados (IdPedidoParte, Parte, CantidadReservada) Values (" & Me!IdPedidoParte.Value & "," & Me!Parte.Value & "," & Me!Total.Value & ")"
End If
End If
End If
Forms!MsPedidosReservas !MsPedidosReservasInsumos.Form.Requery
Anexa los datos a la tabla según corresponda el caso, pero al tratar de refrescar sale un error "459" El objeto o la clase no admite el conjunto de eventos, por favor me podrías indicar como hago para que refresque el subform y no salga este error.