zxz 27.01.2012 22:20
Predmet:Re: Baza za proizvodnju

Moras napraviti polje kje ce imati gid control source a combu gdje biras nesmije biti nista control source.
Ovo novo polje sto napravis nemora biti combo moze i tekst i nemora biti ni vidljivo.
Samo u default vvalue tog polje napisi.
=[Combo21]

White Man 27.01.2012 22:37
Predmet:Re: Baza za proizvodnju

Napravio sam, hvala. A zasto se odmah ne vidi u list box-u kada unesem zapis, vec moram da izadjem iz forme pa da udjem ponovo da bi se videlo? Sta trebam sada da uradim? Hvala puno unapred. Pozdrav

zxz 28.01.2012 11:55
Predmet:Re: Baza za proizvodnju

PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub Form_Current()
  2. UcitajSliku' imao si ovo
  3. Me.List2.RowSource = Me.List2.RowSource' dodaj jos ovo
  4. End Sub

White Man 28.01.2012 14:13
Predmet:Re: Baza za proizvodnju

Radi, hvala. Jel moze nekako da se namesti, da u list box-u postoje redni brojevi koji su nezavisni od artikla a artikli da se slazu po azbucnom redu u list box-u? Hvala puno unapred. Pozdrav.

zxz 28.01.2012 15:05
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

White Man 28.01.2012 15:29
Predmet:Re: Baza za proizvodnju

Radi, hvala. Napravio sam dugme za brisanje rekorda preko command button wizard-a i sad kad obrisem rekord on jos stoji u list box-u sve dok ne izadjem iz forme. Jel tu treba da se promeni kod da bi odmah nestalo iz list box-a kada se klikne na dugme, bez izlaska iz forme i kako da namestim da mi u list box-u artikli budu po azbucnom redu? Hvala unapred. Pozdrav

zxz 28.01.2012 15:48
Predmet:Re: Baza za proizvodnju

Na to dugme na on klik dodaj jos i ovaj red koda:
Me.List2.RowSource = Me.List2.RowSource

White Man 28.01.2012 15:58
Predmet:Re: Baza za proizvodnju

Gde to u kodu da ubacim? Ja sam pokusavao nesto i nece, tamo imam.

Private Sub Command26_Click()
On Error GoTo Err_Command26_Click

Screen.PreviousControl.SetFocus
DoCmd.FindNext

Exit_Command26_Click:
Exit Sub

Err_Command26_Click:
MsgBox Err.Description
Resume Exit_Command26_Click

End Sub

Hvala unapred. Pozdrav

zxz 28.01.2012 16:05
Predmet:Re: Baza za proizvodnju

Private Sub Command26_Click()
On Error GoTo Err_Command26_Click

Screen.PreviousControl.SetFocus
DoCmd.FindNext
Me.List2.RowSource = Me.List2.RowSource ' evo ovdje.
Exit_Command26_Click:
Exit Sub

Err_Command26_Click:
MsgBox Err.Description
Resume Exit_Command26_Click

End Sub

Samo ovo ti je komanda za pretragu a ne za brisanje.

White Man 28.01.2012 16:26
Predmet:Re: Baza za proizvodnju

Sta sad treba da uradim u list box-u, da bi mi sortiralo artikle po azbucnom redu? Hvala puno unapred. Pozdrav