Private Sub sTree_DBlClick()
 Dim M As String
 Dim Kljuc As String
 Dim SQL As String

On Error GoTo Kraj
Me.F_Izmjene_Label.Caption = sTREE.Object.SelectedItem.Text
 M = sTREE.Object.SelectedItem.Key
 M = Mid(M, 2)
Kljuc = DLookup("iddijela", "indeks", "slaganje='" & M & "'")
SQL = "SELECT * FROM Q_Izmjene WHERE IdStroja='" & Kljuc & "'"
Forms![Frm_Strojevi]![F_Izmjene].Form.RecordSource = SQL
Forms![Frm_Strojevi]![F_Izmjene].Form.IDStroja.DefaultValue = "'" & Kljuc & "'"
Exit Sub
Kraj:
On Error Resume Next
On Error GoTo 0
Err.Clear
End Sub