Actualizar Subformulario

ultiliza en el boton que llamas el formulario para escojer


ejemplo:


Private Sub cmd_facturas_Click()
On Error GoTo Err_cmd_facturas_Click

DoCmd.OpenForm "frm_add_detalles", , , , , acDialog

Exit_cmd_facturas_Click:
Me.fsub_d_factura.Form.Requery 'este codigo refresca
el subformulario despues de que se cierre el otro
Exit Sub

Err_cmd_facturas_Click:
MsgBox Err.Description
Resume Exit_cmd_facturas_Click
End Sub

No sé si he cogido la idea, Esto es lo que pongo y me sigue sin
funcionar.
Esta es la llamada al 2º formulario, cuando el usuario marca los
registros a anexar lo cierro y ejecuto las consultas.

Private Sub FactAlb_Click()
On Error GoTo Err_FactAlb_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Diálogo Albaranes a Facturar"

stLinkCriteria = "[IdCliente]=" & Me![IdCliente]
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_FactAlb_Click:
Me.Detalles_de_Factura_Subformulario.Form.Requery
Exit Sub

Err_FactAlb_Click:
MsgBox Err.Description
Resume Exit_FactAlb_Click

End Sub