Predmet:Re: Baza za proizvodnju
Ovo stavi u neki Modul napr module1.
PreuzmiIzvorni kôd (Visual Basic):Option Compare Database
Option Explicit
Global Brojac As Integer
Function ResetQ()
Brojac = 0
End Function
Function BrojacQ(ID As Integer)
Brojac = Brojac + 1
BrojacQ = Brojac
End Function
Ovu proceduru zamijeni predhodnom koja je bila na combo 21 After update
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"
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"
End If
Me.List2.RowSource = SQL
Me.List2.SetFocus
Me.RecordSource = Me.RecordSource
Izlaz:
Exit Sub
Kraj:
End Sub
Ovaj sql Stavi na rowsource List2.
PreuzmiIzvorni kôd (SQL):SELECT SifraArt, BrojacQ([Sifraart]) AS Brojac,ImeArtikla, JM, NCena, ResetQ() AS R
FROM K_Artikli
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.