Cod: Selectaţi tot
Private Sub ID_factura_iesire_DblClick(Cancel As Integer)
Dim stDocName As String
Dim stLinkCriteria As String
DoCmd.Save acForm, "numele formului in care te afli"
stDocName = "numele formului ce urmeaza a fi deschis"
stLinkCriteria = "[numele campului din formul ce urmeaza a fi deschis cu care se creaza legatura]=" & Me![numele campului pe care se da dbl click]
'de ex, dai dbl click pe nr factura, formul ce se va deschide va avea ca si corespondent tot nr factura.
DoCmd.OpenForm stDocName, , , stLinkCriteria
End Sub