Prikazi cijelu temu 28.01.2012 17:05
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Baza za proizvodnju
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub Text14_Change()
  2. Dim SQL As String
  3. Dim GID
  4. Dim Str As String
  5. Dim UslovStr As String
  6. Dim Slaganje As String
  7.  
  8. GID = Me.Combo21
  9. Slaganje = " ORDER BY ImeArtikla"
  10. If GID = 1 Then
  11. Me.Cena.ControlSource = "Pcena"
  12. Me.Label8.Caption = "Prodajna cena"
  13. SQL = "SELECT SifraArt, BrojacQ([Sifraart]) AS Brojac, ImeArtikla, JM, PCena, ResetQ() AS R " _
  14.        & "FROM K_Artikli "
  15. ElseIf GID = 2 Then
  16. Me.Cena.ControlSource = "NCena"
  17. Me.Label8.Caption = "Nabavna cena"
  18. SQL = "SELECT SifraArt, BrojacQ([Sifraart]) AS Brojac, ImeArtikla, JM, NCena, ResetQ() AS R " _
  19.        & "FROM K_Artikli "
  20.  
  21. End If
  22. Me.Combo21.SetFocus
  23. Str = Format$(Me.Text14)
  24. Me.Text14.SetFocus
  25. Me.Text14.SelStart = Me.Text14.SelLength
  26. UslovStr = "WHERE GID=" & GID & " AND imeartikla Like'" & Str & "*'" & Slaganje
  27. SQL = SQL & UslovStr
  28. Me.List2.RowSource = SQL
  29. End Sub
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub Combo21_AfterUpdate()
  2. Dim GID
  3. Dim SQL As String
  4.  
  5. Me.Text14 = ""
  6. GID = Me.Combo21
  7. If GID = "" Then GoTo Kraj
  8. If GID = 1 Then
  9. Me.Cena.ControlSource = "Pcena"
  10. Me.Label8.Caption = "Prodajna cena"
  11. SQL = "SELECT SifraArt, BrojacQ([Sifraart]) AS Brojac, ImeArtikla, JM, PCena, ResetQ() AS R " _
  12.        & "FROM K_Artikli " _
  13.        & "WHERE GID=1 " _
  14.        & "ORDER BY ImeArtikla"
  15. ElseIf GID = 2 Then
  16. Me.Cena.ControlSource = "NCena"
  17. Me.Label8.Caption = "Nabavna cena"
  18. SQL = "SELECT SifraArt, BrojacQ([Sifraart]) AS Brojac, ImeArtikla, JM, NCena, ResetQ() AS R " _
  19.        & "FROM K_Artikli " _
  20.        & "WHERE GID=2 " _
  21.        & "ORDER BY ImeArtikla"
  22. End If
  23. Me.List2.RowSource = SQL
  24. Me.List2.SetFocus
  25. Me.RecordSource = Me.RecordSource
  26. Izlaz:
  27. Exit Sub
  28. Kraj:
  29. 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.