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

White Man 28.01.2012 16:56
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

zxz 29.01.2012 13:45
Predmet:Re: Baza za proizvodnju

Jesi obrisao staro na
Private Sub Combo21_AfterUpdate()

pmiroslav 29.01.2012 18:05
Predmet:Re: Baza za proizvodnju

U proceduri
Private Sub Combo21_AfterUpdate()

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

pmiroslav 29.01.2012 19:10
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

White Man 30.01.2012 18:39
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

pmiroslav 31.01.2012 07:06
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

White Man 02.02.2012 08:49
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

pmiroslav 02.02.2012 09:10
Predmet:Re: Baza za proizvodnju

U List2 pod row Source upiši:

SELECT SifraArt, ImeArtikla, JM, PCena FROM K_Artikli WHERE False;