ник: seluvan
переделал на
===========================================
Public Sub TreeView0_NodeClick(ByVal Node As Object)
Set Tree = Me.TreeView0.Object
Me.IdUzel.Value = Mid(Node.Key, 2, 3)
'Me.IdUzel.Value = Node.Key
Me.IdUzel.Requery
With Me.подчиненная_форма_КонстантаСрезОсновныхПОСЛЕДНИЙ.Form
If Node.Key = "1OS" Then
Me.IdUzel.Value = Null
.FilterOn = False
Else
If Node.Key Like "s*" Then
.Filter = "подчиненная_форма_КонстантаСрезОсновныхПОСЛЕДНИЙ!КодСклада=" & Chr(34) & Mid(Node.Key, 2, 3) & Chr(34)
'MsgBox подчиненная_форма_КонстантаСрезОсновныхПОСЛЕДНИЙ!КодСклада
.FilterOn = True
End If
End If
End With
End Sub
======================================
фильтр срабативает НО данние не отражает....хотя Mid(Node.Key, 2, 3) имеет необходимое значение
ключ идёт к примеру S57 мидом убираю S, остаётся 57 (КодСклада), но не отбирает падло.
народ помогайте. с ума схожу