Predmet:Re: Baza za proizvodnju
PreuzmiIzvorni kôd (Visual Basic):Private Sub Text14_Change()
Dim SQL As String
Dim GID
Dim Str As String
Dim UslovStr As String
Dim Slaganje As String
GID = Me.Combo21
Slaganje = " ORDER BY ImeArtikla"
If GID = 1 Then
Me.Cena.ControlSource = "Pcena"
Me.Label8.Caption = "Prodajna cena"
SQL = "SELECT SifraArt, BrojacQ([Sifraart]) AS Brojac, ImeArtikla, JM, PCena, ResetQ() AS R " _
& "FROM K_Artikli "
ElseIf GID = 2 Then
Me.Cena.ControlSource = "NCena"
Me.Label8.Caption = "Nabavna cena"
SQL = "SELECT SifraArt, BrojacQ([Sifraart]) AS Brojac, ImeArtikla, JM, NCena, ResetQ() AS R " _
& "FROM K_Artikli "
End If
Me.Combo21.SetFocus
Str = Format$(Me.Text14)
Me.Text14.SetFocus
Me.Text14.SelStart = Me.Text14.SelLength
UslovStr = "WHERE GID=" & GID & " AND imeartikla Like'" & Str & "*'" & Slaganje
SQL = SQL & UslovStr
Me.List2.RowSource = SQL
End Sub
PreuzmiIzvorni kôd (Visual Basic):Private Sub Combo21_AfterUpdate()
Dim GID
Dim SQL As String
Me.Text14 = ""
GID = Me.Combo21
If GID = "" Then GoTo Kraj
If GID = 1 Then
Me.Cena.ControlSource = "Pcena"
Me.Label8.Caption = "Prodajna cena"
SQL = "SELECT SifraArt, BrojacQ([Sifraart]) AS Brojac, ImeArtikla, JM, PCena, ResetQ() AS R " _
& "FROM K_Artikli " _
& "WHERE GID=1 " _
& "ORDER BY ImeArtikla"
ElseIf GID = 2 Then
Me.Cena.ControlSource = "NCena"
Me.Label8.Caption = "Nabavna cena"
SQL = "SELECT SifraArt, BrojacQ([Sifraart]) AS Brojac, ImeArtikla, JM, NCena, ResetQ() AS R " _
& "FROM K_Artikli " _
& "WHERE GID=2 " _
& "ORDER BY ImeArtikla"
End If
Me.List2.RowSource = SQL
Me.List2.SetFocus
Me.RecordSource = Me.RecordSource
Izlaz:
Exit Sub
Kraj:
End Sub
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
Ovaj post je ureden
1
puta. Posljednja izmjena 28.01.2012 17:19 od strane zxz.