Private Sub Combo10_AfterUpdate()
Dim P
P = Me.Combo10
If P <> "" Then
  If P = 1 Then
  Forms![F_Artikli]![K_ArtikliSub].Form![Label12].Caption = "PCena"
  Forms![F_Artikli]![K_ArtikliSub].Form![Text13].ControlSource = "PCena"
  ElseIf P = 2 Then
  Forms![F_Artikli]![K_ArtikliSub].Form![Label12].Caption = "NCena"
  Forms![F_Artikli]![K_ArtikliSub].Form![Text13].ControlSource = "NCena"
  End If
End If
End Sub