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


Predmet:Re: Baza za proizvodnju
Ovo stavi u neki Modul napr module1.
PreuzmiIzvorni kôd (Visual Basic):
  1. Option Compare Database
  2. Option Explicit
  3. Global Brojac As Integer
  4. Function ResetQ()
  5. Brojac = 0
  6. End Function
  7.  
  8. Function BrojacQ(ID As Integer)
  9. Brojac = Brojac + 1
  10. BrojacQ = Brojac
  11. End Function

Ovu proceduru zamijeni predhodnom koja je bila na combo 21 After update
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. ElseIf GID = 2 Then
  15. Me.Cena.ControlSource = "NCena"
  16. Me.Label8.Caption = "Nabavna cena"
  17. SQL = "SELECT SifraArt, BrojacQ([Sifraart]) AS Brojac, ImeArtikla, JM, NCena, ResetQ() AS R " _
  18.        & "FROM K_Artikli " _
  19.        & "WHERE GID=2"
  20. End If
  21. Me.List2.RowSource = SQL
  22. Me.List2.SetFocus
  23. Me.RecordSource = Me.RecordSource
  24. Izlaz:
  25. Exit Sub
  26. Kraj:
  27. End Sub

Ovaj sql Stavi na rowsource List2.
PreuzmiIzvorni kôd (SQL):
  1. SELECT SifraArt, BrojacQ([Sifraart]) AS Brojac,ImeArtikla, JM, NCena, ResetQ() AS R
  2. FROM K_Artikli
  3. WHERE GID=FALSE

Na column count list2 stavi 5 a u column widths:
0cm;2.544cm;2.544cm;2.544cm;3cm
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.