Prikazi cijelu temu 01.02.2011 19:53
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Lokacija:Osijek


Predmet:Re: Server i Access baza
Ja sam malo doradio funkciju koju si mi prije dao i u nju povukao broj za kategoriju, e sad ne znam kako to iskoristiti za Defaukt value

PreuzmiIzvorni kôd (vbnet):
  1. Private Sub MeniD_AfterUpdate()
  2. Dim Nodx As Node
  3. Dim Rs As Recordset
  4. Dim Indeks As String
  5. Dim Tekst As String
  6. Dim Text_Poz As String
  7. Dim Text_Naz As String
  8. Dim Text_Label As String
  9. Dim Kategorija As Integer ' [b]Dodao sam ovo[/b]
  10. Dim Kom As Integer
  11. Dim SQL As String
  12. Dim ImgI As Integer
  13. Dim Db As Database
  14. Dim Nadredjeni As String
  15.  
  16. Strojevi Me.MeniD, Me.MeniC
  17. Set Db = CurrentDb
  18.  
  19. SQL = "SELECT * FROM Q_Indeks ORDER BY Slaganje"
  20. On Error Resume Next
  21.  
  22. Me.sTREE.SetFocus
  23. Start:
  24.             Set Rs = Db.OpenRecordset(SQL)
  25.             sTREE.Nodes.Clear              
  26.             Rs.MoveFirst
  27.             Nadredjeni = "@" & Rs!Slaganje
  28.             Indeks = "@" & Rs!Slaganje
  29.             Text_Naz = Rs!NAZIV
  30.             Text_Poz = Rs!PozKratica
  31.  
  32.             Kategorija = Rs!KLASA    '[b]Ovo sam dodao[/b]
  33.  
  34.             Tekst = Text_Poz & " - " & Text_Naz & " - " & Kategorija
  35.            
  36.         '---------------------------------------
  37.         Do While Not Rs.EOF
  38.         If Nadredjeni = Indeks Then
  39.         Set Nodx = sTREE.Nodes.Add(, , Indeks, Tekst)
  40.         Nodx.Bold = True
  41.         Else
  42.         Nodx.Bold = False
  43.        
  44.         Set Nodx = sTREE.Nodes.Add(Nadredjeni, tvwChild, Indeks, Tekst)
  45.        End If
  46.         ImgI = Val(Rs!KLASA)
  47.         sTREE.Nodes(Indeks).image = ImgI
  48.         Rs.MoveNext
  49.  
  50.         Kom = Rs!Kom
  51.         Text_Naz = Rs!NAZIV
  52.         Text_Poz = Rs!PozKratica
  53.  
  54.         Kategorija = Rs!KLASA  ' [b]I  ovo sam dodao[/b]
  55.  
  56.         Tekst = Kom & " x " & Text_Poz & " - " & Text_Naz & " - " & Kategorija
  57.         Indeks = "@" & Rs!Slaganje
  58.         Nadredjeni = Parentni(Rs!Slaganje)
  59.         Loop
  60. Rs.Close
  61. Exit Sub
  62.  
  63. End Sub


Prilozi:
kat.jpg
Preuzimanja:238
Velicina datoteke:177.89 KB

Pozdrav