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
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.