Notice: Undefined offset: 2 in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 735
Private Sub Text14_Change() Dim SQL As String Dim GID Dim Str As String Dim UslovStr As String GID = Me.Combo21 If GID = 1 Then SQL = "SELECT SifraArt, ImeArtikla,JM,PCena " _ & "FROM K_Artikli " ElseIf GID = 2 Then SQL = "SELECT SifraArt, ImeArtikla,JM,NCena " _ & "FROM K_Artikli " End If Me.Combo21.SetFocus Str = Format$(Me.Text14) Me.Text14.SetFocus Me.Text14.SelStart