Private Sub C_NoviKupac_Click()
On Error GoTo Err_C_NoviKupac_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "Orders by Customer"
    DoCmd.OpenForm stDocName
    DoCmd.GoToRecord , , acNewRec

Exit_C_NoviKupac_Click:
    Exit Sub

Err_C_NoviKupac_Click:
    MsgBox err.Description
    Resume Exit_C_NoviKupac_Click
    
End Sub