Prikazi cijelu temu 27.03.2015 10:33
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Prihodi i rashodi
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 (Visual Basic):
  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
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.