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