Evo ovako.
Na formi F_Posao ides na polje radnoMjesto i u propertiu odaberes dogajaj on dubl klick i ides na event procedure i kopiras ovaj kod ispod:

PreuzmiIzvorni kôd (vbnet):

1. Private Sub RadnoMjesto_DblClick(Cancel As Integer)
2. DoCmd.OpenForm "F_VrstaPosla"
3. End Sub

E sada ides na tabelu T_VrstaPosla i od nje napravis autoformu idas joj ime F_VrstaPosla.
U recordSource ove forme unesi ovaj upi ispod:

PreuzmiIzvorni kôd (SQL):

1. SELECT *
2. FROM T_VrstaPosla
3. WHERE (((T_VrstaPosla.ID)=[Forms]![F_Posao]![RadnoMjesto]));

Sada u property odabere even procedure te dogadjaj on Unload te kopiraj ovaj kod:

PreuzmiIzvorni kôd (Visual Basic):

1. Private Sub Form_Unload(Cancel As Integer)
2. Dim ID
3. ID = Me.ID
4. If Trim(Format$(ID)) <> "" Then
5. Forms![F_Posao]![RadnoMjesto] = Me.ID
6. Forms![F_Posao]![RadnoMjesto].RowSource = Forms![F_Posao]![RadnoMjesto].RowSource
7. End If
8. End Sub