Форумы HiProg.com - MS ACCESS, VBA, VB

ник: seluvan
kot_k_k :СПАСИБО
всё пошло МЛЯ.
помолго вот это конечно Val( Mid(Node.Key, 2, 3) ) + поменял непосредственную ссилку на КодСклада

код
==================
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 = "КодСклада =" & Val(Mid(Node.Key, 2, 3))
.FilterOn = True
'Mid(Node.Key, 2, 3)
'MsgBox "КодСклада =" & Val(Mid(Node.Key, 2, 3))
.FilterOn = True
End If
End If
End With
End Sub

===========================