Centar za edukaciju-BiH



#191 28.01.2012 16:05
zxz Na mrezi
Administrator
Registrovan od:03.02.2009
Postovi:10,611


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 16:19 od strane zxz. ↑  ↓

#192 28.01.2012 16:56
White Man Van mreze
Clan
Registrovan od:11.03.2011
Postovi:341


Predmet:Re: Baza za proizvodnju
Prijavljuje gresku u:
Private Sub Combo21_AfterUpdate()
Dim GID

GID je markirano i kaze, Variabile not defined. Sta treba da uradim sada? Hvala puno unapred. Pozdrav
↑  ↓

#193 29.01.2012 13:45
zxz Na mrezi
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: Baza za proizvodnju
Jesi obrisao staro na
Private Sub Combo21_AfterUpdate()
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#194 29.01.2012 18:05
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


Predmet:Re: Baza za proizvodnju
U proceduri
Private Sub Combo21_AfterUpdate()

umjesto GID = Me.Combo21
trabe biti GID = Me.Combo21.Column(0)
Pozdrav
↑  ↓

#195 29.01.2012 19:10
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


Predmet:Re: Baza za proizvodnju
Citiraj White Man:
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

Me.List2.Requery
Pozdrav
↑  ↓

#196 30.01.2012 18:39
White Man Van mreze
Clan
Registrovan od:11.03.2011
Postovi:341


Predmet:Re: Baza za proizvodnju
Obrisao sam stari unos u tabeli i sad kad unosim nove, redi kako treba. Sta treba da uradim, da ne dozvoljava unos dok se ne odabere grupa sirovine ili proizvod? Ne bi bilo lose da se pojavi poruka da se treba odabrati grupa, ukoliko se proba unos bez odabira grupe. Hvala puno unapred. Pozdrav
↑  ↓

#197 31.01.2012 07:06
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


Predmet:Re: Baza za proizvodnju
Foema F_Artili Before insert:
PreuzmiIzvorni kôd (vbnet):
  1. Private Sub Form_BeforeInsert(Cancel As Integer)
  2. If IsNull(Me.Combo21) Then
  3. MsgBox "Niste izabrali grupu proizvoda"
  4. Me.Combo21.SetFocus
  5. End If
  6. End Sub

Pozdrav
↑  ↓

#198 02.02.2012 08:49
White Man Van mreze
Clan
Registrovan od:11.03.2011
Postovi:341


Predmet:Re: Baza za proizvodnju
Radi Hvala. Sta treba da uradim da kad se otvori forma, sve bude prazno? Jer sada kad otvorim formu sa artiklima, u list boksu se vide proizvodi iako nije odabrana grupa. Hvala unapred. Pozdrav
↑  ↓

#199 02.02.2012 09:10
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


Predmet:Re: Baza za proizvodnju
U List2 pod row Source upiši:

SELECT SifraArt, ImeArtikla, JM, PCena FROM K_Artikli WHERE False;
Pozdrav
↑  ↓

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


Sva vremena su GMT +01:00. Trenutno vrijeme: 11: 37 am.