ник: Fan_MC
Private Sub Form_Load()
Dim sNodeSelected As String
Dim ND As Object
Set NodeRS = CurrentDb.OpenRecordset("SP-1", dbOpenDynaset)
Set TV = Me![SpView]
If Nz(Me.OpenArgs, "") <> "" Then ' strOpArg = lFirm & ":" & lDoc & ":" & sKey
strOpArg = Me.OpenArgs
End If
varReturn = SysCmd(acSysCmdSetStatus, "Подождите ...")
DoCmd.Hourglass True
Call FillTvw(Me.tvwClassifStr, "", "", "Структура", "IDCODE", "Name", "", 0, 0)
'необходимо спозиционироваться на эту строку
TV_ВыделитьУзел Me.tvwClassifStr, sNodeSelected & "ID"
Me.tvwClassifStr.SetFocus
idParent = "0100000000"
GetSpisok ND, idParent
varReturn = SysCmd(acSysCmdSetStatus, "Дирекция филиала")
DoCmd.Hourglass False
Позавчера повесили программу на меня и уже поставили сроки(((( А ВБА мне не друг!
Посмотрите может это оно.