Prikazi cijelu temu 31.01.2011 12:06
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Server i Access baza
Ovu proceduru imas.
Mozes je prepraviti prema ovoj ili jednostavno prekopirati preko tvoje.
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub sTree_DBlClick()
  2.  Dim M As String
  3.  Dim Kljuc As String
  4.  Dim SQL As String
  5.  
  6. On Error GoTo Kraj
  7. Me.F_Izmjene_Label.Caption = sTREE.Object.SelectedItem.Text
  8.  M = sTREE.Object.SelectedItem.Key
  9.  M = Mid(M, 2)
  10. Kljuc = DLookup("iddijela", "indeks", "slaganje='" & M & "'")
  11. SQL = "SELECT * FROM Q_Izmjene WHERE IdStroja='" & Kljuc & "'"
  12. Forms![Frm_Strojevi]![F_Izmjene].Form.RecordSource = SQL
  13. Forms![Frm_Strojevi]![F_Izmjene].Form.IDStroja.DefaultValue = "'" & Kljuc & "'"
  14. Exit Sub
  15. Kraj:
  16. On Error Resume Next
  17. On Error GoTo 0
  18. Err.Clear
  19. End Sub
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.