Forzar guardado de datos en subformulario
Tengo un formulario principal llamado formventa con los campos (IdVenta, Fecha y Cliente) y un subformuario formventa1 que recoge los productos. Para automatizar la entrada de pedidos, en el objeto al entrar del subformulario formventa1 le he puesto este código para que coja automáticamente la fecha y el idVenta, y efectivamente me lo pone en el formulario principal.
Private Sub formVenta1_Enter()
If IsNull(Me.IdVenta) Then
IdVenta = Nz(DMax("[IdVenta]", "tblVenta"), 0) + 1
DoCmd.RunCommand acCmdSaveRecord
End If
If IsNull(Me.Fecha) Then
Me.Fecha = Date
End If
End Sub
El problema es que al querer meter los productos me dice que no tiene un registro relacionado en la tblventa, es como si no lo guardara. ¿Cómo puedo forzar la entrada de datos? ¿Hay alguna forma?