Notice: Undefined offset: 2 in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 735
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