Private Sub Combobox1_ID_AfterUpdate()

Me.Image27.Visible = True
Me.Combobox2.Visible = True
Me.SUB_ShopOrder.Visible = True

If Me.RecordsetClone.NoMatch Then

Me.Image27.Visible = False
Me.Combobox2.Visible = False
Me.SUB_ShopOrder.Visible = False

End If

' ovo sam ja dodo
Forms![FRM_TimeManagement]![Child2].Form![OP_ID].RowSource = Forms![FRM_TimeManagement]![Child2].Form![OP_ID].RowSource
End Sub