Predmet:Re: update podatka na combo boxu

---

zbog ovoga:
Private Sub Form_Current()
' Dim blnNewRecord As Boolean
' blnNewRecord = Me.NewRecord
' Me.chkNew = blnNewRecord
'Me.lblNew.FontBold = blnNewRecord
'Me.Caption = DLookup("korisnik", "korisnik", "korisnik=[Forms]![plataP]![plata]![korisnik]") & " - uposlenici"
'DoCmd.SetWarnings False
'DoCmd.OpenQuery "dodajradniku", acViewNormal
'DoCmd.SetWarnings False
'Check if form contains any records
If Not (Me.RecordsetClone.BOF And Me.RecordsetClone.EOF) Then
'Move to last record in order to get correct record count
Me.RecordsetClone.MoveLast
Me.RecordsetClone.MoveFirst
End If

---