Centar za edukaciju-BiH

iCentar → Racunari i oprema → Programirannje i baze podataka → Access


Prosiri i skupi Opcije teme
Stranice (20):1,2 ... 17,18,19,20,
 Prikazi prvu neprocitanu poruku

#181 27.01.2012 22:20
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


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]
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#182 27.01.2012 22:37
White Man Van mreze
Clan
Registrovan od:11.03.2011
Postovi:341


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
↑  ↓

#183 28.01.2012 11:55
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


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
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#184 28.01.2012 14:13
White Man Van mreze
Clan
Registrovan od:11.03.2011
Postovi:341


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.
↑  ↓

#185 28.01.2012 15:05
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


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.
↑  ↓

#186 28.01.2012 15:29
White Man Van mreze
Clan
Registrovan od:11.03.2011
Postovi:341


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
↑  ↓

#187 28.01.2012 15:48
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


Predmet:Re: Baza za proizvodnju
Na to dugme na on klik dodaj jos i ovaj red koda:
Me.List2.RowSource = Me.List2.RowSource
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#188 28.01.2012 15:58
White Man Van mreze
Clan
Registrovan od:11.03.2011
Postovi:341


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
↑  ↓

#189 28.01.2012 16:05
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


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.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#190 28.01.2012 16:26
White Man Van mreze
Clan
Registrovan od:11.03.2011
Postovi:341


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
↑  ↓

Stranice (20):1,2 ... 17,18,19,20,

Srodne teme

Ko je online?

Aktivni clanovi:
nema clanova


Kontakt
Sva vremena su GMT +02:00. Trenutno vrijeme: 7: 33 am.