Prikazi cijelu temu 01.04.2015 11:58
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Lokacija:Osijek


Predmet:Re: Prihodi i rashodi
Na kod za Unload dodaj dio za zaobilaženje pogreške. Obrati pažnju na

On Error GoTo Err

i na kraju
Err:
Exit Sub

PreuzmiIzvorni kôd (vbnet):
  1. Private Sub Form_Unload(Cancel As Integer)
  2. On Error GoTo err
  3.     Dim ID
  4.     ID = Me.ID
  5.     If Trim(Format$(ID)) <> "" Then
  6.     Forms![F_Posao]![RadnoMjesto] = Me.ID
  7.     Forms![F_Posao]![RadnoMjesto].RowSource = Forms![F_Posao]![RadnoMjesto].RowSource
  8.         End If
  9. err:
  10.    Exit Sub
  11.   End Sub
Pozdrav