Code:
Private Sub btnUpisiSate_Click()

    Dim strSQL        As String
    Dim db            As DAO.Database
    Dim rs            As DAO.Recordset
    Dim ctl           As Control
    Dim varItem       As Variant
    
    On Error GoTo ErrorHandler

  Set db = CurrentDb()
  Set rs = db.OpenRecordset("T_Rad", dbOpenDynaset, dbAppendOnly)
'---------------------------------------------------------------------
'make sure a selection has been made
'---------------------------------------------------------------------
  If Me.cboProjekat.ListIndex = -1 Then
     MsgBox "Ìîðàòå èçàáðàòè ïðî¼åêàò"
  End If
  
  If Me.lstZaposleni.ItemsSelected.Count = 0 Then
    MsgBox "Ìîðàòå èçàáðàòè áàð 1 çàïîñëåíîã"
    Exit Sub
  End If
  
  If IsNull(txtSatiRada) Or txtSatiRada = "" Then
     MsgBox "Ìîðàòå óïèñàòè áðî¼ ñàòè"
  End If
         
  If Not IsDate(Me.txtDatumRada) Then
    MsgBox "Ìîðàòå èçàáðàòè äàòóì ðàäà"
    Exit Sub
  End If
    

  
'---------------------------------------------------------------------
  
  'add selected value(s) to table
  Set ctl = Me.lstZaposleni
  For Each varItem In ctl.ItemsSelected
    rs.AddNew
    rs!ZaposleniID = ctl.ItemData(varItem)
    rs!SatiRada = Me.txtSatiRada
    rs!DatumRada = txtDatumRada
    rs!ProjekatID = cboProjekat
    rs.Update
  Next varItem

  dselect False
 
 Me!txtSatiRada = Null
 Me.txtSatiRada = ""
 Me!txtDatumRada = ""
 Me!cboProjekat = Null
 
 Me.SF_PoslednjeUneteSatnice.Requery
 Me.txtSatiRada.Requery
 
 MsgBox "Óñïåøíî çàïèñàí áð ñàòè"
  
ExitHandler:
  Set rs = Nothing
  Set db = Nothing
  Exit Sub

ErrorHandler:
  Select Case Err
    Case Else
      MsgBox Err.Description
      DoCmd.Hourglass False
      Resume ExitHandler
  End Select
  
End Sub