rivate Sub cmdLinkTables_Click()
On Error GoTo Err_cmdLinkTables_Click
    
    DoCmd.RunCommand (acCmdSaveRecord)

    If Len(Nz(Me!txtDataFilePath, "")) > 0 Then
        If RefreshMDBLinks(Me!txtDataFilePath) Then
'        If LinkFromTables("DATA") Then
            MsgBox "Tabele su uspesno povezane!", vbInformation
'OVAJ RED SAM JA DODAO SAMO
  Forms![Trazi Materijal]![txtLink] = "Spojeni ste na bazu: " & Me.txtDataFilePath & vbTab & Me.Combo25.Column(0) & ".godine"
            Forms![Trazi Materijal].Requery
            DoCmd.Close
        Else
            MsgBox "Povezivanje tabela nije uspelo!", vbCritical
            
        End If

    End If
    
Exit_cmdLinkTables_Click:
    DoCmd.Hourglass False
   
    Exit Sub

Err_cmdLinkTables_Click:
    Beep
    Beep
    Beep
    MsgBox "rmRelinkTables Error " & err & Chr(13) & ": " & Error$
    
    Resume Exit_cmdLinkTables_Click
    
End Sub