Исключено, т.к я полностью удалил 2008SQL и все что было с ним связано.

Установил SQL 2012 и после удаления SQL 2008 перестала подключаться программа к БД.
Выдает вот такую ошибку:


В чем может быть проблема?
Опять ставить 2008 SQL.

Базовая

В результате, когда я попытался открыть любой контакт после применения скрипта, то получил вот такое сообщение:


Нажимаю ДА и карточка контакта открывается и так каждый раз.

Вернул код обратно, но тот код который был у меня с самого начала я не сохранил, поэтому вернул тот что вы мне в сообщении указали. И теперь данная ошибка у меня появлятся как "швейцарские часы" а раньше появлялась от случая к случаю.

Только теперь алгоритм ошибки слегка поменялся и выглядит следующим образом:

• вижу в таблице контак (галочка осн.котн стоит)
• открываю карточку (галочка стоит) (раньше уже на этом этапе пропадала)
• нажимаю сохранить и закрыть (галочка пропадает)

'VBScript

dim TPUsers

Sub TekUser (sender)
' получаем ТП
datTP = this("datTP")

if not isObject(datTP) then
datTP = this.create("TX2Query", this, "datTP")
end if

with datTP
.ClassName = "Контактные лица"
.Connector = this ("pnlBase")("Table1")("queryTable").Connector
.SelectString = "(select EmployeeID FROM _STUsers WHERE Name = suser_sname()) AS [ТП]"
.Refresh
TPUsers = .ValueByFieldName("ТП")
.Free
end with

if isnull(TPUsers) then
TPUsers = 0
end if
' получаем ТП конец
end sub



sub CreateNapom()
IF isnull(this ("pnlBase")("Table1")("queryTable").ValueByFieldName("ID_") ) then
'MSGBOX "Контактное лицо не выбрано! Создание напоминания невозможно"
MsgDialog "Контактное лицо не выбрано! Создание напоминания невозможно", "I"
else ' кл есть

TekUser (this) ' получаем тек пользователя

dim datNapom
IF NOT ISOBJECT (THIS("datNapom")) THEN
datNapom = this.create ("TX2Query",this,"datNapom")
end if

with this("datNapom")
.ClassName = "Напоминания"
.Connector = this ("pnlBase")("Table12")("queryTable").Connector
.SelectString = " top 1 ""ObjectID"" AS ID_"
.WhereString = "user_cr = " + CStr(TPUsers) + " and p1057 = "+cstr(this ("pnlBase")("Table1")("queryTable").ValueByFieldName("ID_")) +" order by 1 desc"
end with


this("datNapom").refresh

If not IsObject(this("dat22Napom")) Then
dat22Napom = this.create ("TX2Query",this,"dat22Napom")
end if

with this("dat22Napom")
.ClassName = "Напоминания"
.Connector = this ("pnlBase")("Table12")("queryTable").Connector
.SelectString = "top 1 (SELECT count(*) FROM Class172 where Class172.p1057="+CStr(this ("pnlBase")("Table1")("queryTable").ValueByFieldName("ID_"))+" and class172.p1046= (select EmployeeID FROM _STUsers WHERE Name = suser_sname()) ) AS [кол-во напом], (SELECT ObjectID FROM Class172 where Class172.p1057="+CStr(this ("pnlBase")("Table1")("queryTable").ValueByFieldName("ID_"))+" and class172.p1046= (select EmployeeID FROM _STUsers WHERE Name = suser_sname()) ) AS [ID_]"
' """ObjectID"" AS ID_"
.WhereString = "user_cr = " + CStr(TPUsers) + " and p1057 = "+cstr(this ("pnlBase")("Table1")("queryTable").ValueByFieldName("ID_"))
end with


this("dat22Napom").refresh

if isnull ( this("dat22Napom").ValueByFieldName("кол-во напом") ) then
dim kn
kn = 0
else
kn = this("dat22Napom").ValueByFieldName("кол-во напом")
end if

if kn = 0 then
' msgbox this ("datNapom").ValueByFieldName("ID_")
this ("Queryk").SQL.text = "exec AXI_CreateNapominanieOnKL " + CStr(this ("pnlBase")("Table1")("queryTable").ValueByFieldName("ID_"))
this ("Queryk").open
this ("Queryk").close



this("datNapom").refresh
'msgbox this ("datNapom").ValueByFieldName("ID_")
NapomCard =this ("datNapom").ValueByFieldName("ID_")
this ("datNapom").OpenModalCard(NapomCard)

this ("pnlBase") ("Table12")("queryTable").close ' обновляем данные в таблице напоминания
this ("pnlBase") ("Table12")("queryTable").open

this("ref").text = "Выберите действие из списка:"

else


NapomCard2 = this ("dat22Napom").ValueByFieldName ("ID_")
this("datNapom").OpenModalCard( NapomCard2)

this ("pnlBase") ("Table12")("queryTable").close ' обновляем данные в таблице напоминания
this ("pnlBase") ("Table12")("queryTable").open

this("ref").text = "Выберите действие из списка:"

end if
this("datNapom").free
this("dat22Napom").free
END IF
end sub

sub CreateTask()
IF isnull(this ("pnlBase")("Table1")("queryTable").ValueByFieldName("ID_") ) then
' MSGBOX "Контактные лица не выбраны! Создание задачи невозможно"
MsgDialog "Контактные лица не выбраны! Создание задачи невозможно", "I"
else ' контрагент есть

' содаем форму
If not IsObject(this("Form")) Then
Form = this.Create("TForm", this, "Form") ' создаем форму вопроса
With Form
.Caption = "Создание задачи"
.Position = "poScreenCenter"
'.BorderIcons = "biSystemMenu,biMaximize" ' стандартный размер окна
.BorderIcons = ""
.Width = 520
.Height = 350
.PopupMode = "pmAuto"
End With
end if

' создаем надпись
If not IsObject(this("Panel66")) Then

Label = this.Create("TLabel",this,"Panel66")
With Label
.Parent = Form
.Caption = "Задайте необходимые параметры создания задачи"
With .Font
'.Style = "fsUnderline" ' подчеркивание текста
.Style = "fsbold" ' жирный
End With
.Align = "alTop"
.Alignment = "taCenter"
.Layout = "tlCenter"
.Height = 50

End With
end if

If not IsObject(this("bar")) Then
bar = this.create ("TPanel",Form,"Bar")
with bar
.Parent = Form
.align = "alBottom"
.borderStyle = "bsSingle"
.caption = ""
.Height = 60
end with
end if

If not IsObject(this("Panel")) Then
Pan = this.create ("TLabel",this,"Panel")
with Pan
.parent = Form
.width = 60
.Height = 30
.top = 45
.left = 135
.caption = "Заголовок "
end with
end if ' закрываем Panel

If not IsObject(this("Pane")) Then
Pane = this.create ("TEdit",this,"Pane")
with Pane
.parent = Form
.width = 366
.Height = 20
.top = 60
.left = 135
.text = ""
end with
end if ' закрываем Pane

If not IsObject(this("Panel2")) Then
Pan2 = this.create ("TLabel",this,"Panel2")
with Pan2
.parent = Form
.width = 60
.Height = 30
.top = 95
.left = 5
.caption = "Описание "
end with
end if ' закрываем Panel

If not IsObject(this("Pane2")) Then
Pane2 = this.create ("tmemo",this,"Pane2")
with Pane2
.parent = Form
.width = 500
.Height = 60
.top = 110
.left = 5
.Lines.Text = ""
end with
end if ' закрываем Pane

If not IsObject(this("Panel3")) Then
Pan3 = this.create ("TLabel",this,"Panel3")
with Pan3
.parent = Form
.width = 60
.Height = 30
.top = 175
.left = 5
.caption = "Срок начала "
end with
end if ' закрываем Panel

If not IsObject(this("Pane3")) Then
Pane3 = this.create ("TcxDateEdit",this,"Pane3")
with Pane3
.parent = Form
.width = 120
.Height = 20
.top = 190'190
.left = 5
'.name = ""
.properties.Kind = "ckDateTime"
end with
end if ' закрываем Pane

' для типа задач
If not IsObject(this("Panel5")) Then
Pan5 = this.create ("TLabel",this,"Panel5")
with Pan5
.parent = Form
.width = 60
.Height = 30
.top = 45
.left = 5
.caption = "Тип "
end with
end if ' закрываем Panel

dim datType
IF NOT ISOBJECT (THIS("datType")) THEN
datType = this.create ("TX2Query",this,"datType")
end if

with this("datType")
.ClassName = "Элементы справочника"
.Connector = this ("pnlBase")("Table1")("queryTable").Connector
.SelectString = "count(*) AS Kol"
.whereString = "p563 = 12"
end with


this("datType").refresh

k2 = this("datType").ValueByFieldName("Kol")

'ссылка на единицы измерения

refType = this.create ("TComboBox",form,"refType")
with this("datType")
.ClassName = "Элементы справочника"
.Connector = this ("pnlBase")("Table1")("queryTable").Connector
.SelectString = "ObjectID as ID_, p560 AS type"
.WhereString = " p563 = 12 order by 2"
.refresh
end with
with refType
.Parent = this("Form")
'.Align = "alTop"
.top = 60
.width = 120
.height = 21
.left =5
os2 = 0
for k12 = 1 to k2 step 1
.Items.Add = this("datType").ValueByFieldName("type")
this("datType").nexta
next
end with

'по умолчанию
with this("datType")
.ClassName = "Элементы справочника"
.Connector = this ("pnlBase")("Table1")("queryTable").Connector
.SelectString = "ObjectID as ID_, p560 AS Type"
.WhereString = "p563 = 12 and ObjectID = 38"' звонок

end with

this("datType").refresh

this("form")("refType").Text = this ("datType").ValueByFieldName("Type") ' заменили новое
this("datType").free

' для сотрудников

If not IsObject(this("Panel6")) Then
Pan6 = this.create ("TLabel",this,"Panel6")
with Pan6
.parent = Form
.width = 60
.Height = 30
.top = 220
.left = 5
.caption = "Исполнитель "
end with
end if ' закрываем Panel

dim datSotr
IF NOT ISOBJECT (THIS("datSotr")) THEN
datSotr = this.create ("TX2Query",this,"datSotr")
end if

with this("datSotr")
.ClassName = "Сотрудники"
.Connector = this ("pnlBase")("Table1")("queryTable").Connector
.SelectString = "count(*) AS Kol"
.whereString = "p752 <> 12" ' уволен
end with


this("datSotr").refresh
k3 = this("datSotr").ValueByFieldName("Kol")

'ссылка на единицы измерения

refSotr = this.create ("TComboBox",form,"refSotr")
with this("datSotr")
.ClassName = "Сотрудники"
.Connector = this ("pnlBase")("Table1")("queryTable").Connector
.SelectString = "ObjectID as ID_, p565 AS Sotr"
.WhereString = "p752 <> 12 order by 2"
.refresh
end with
with refSotr
.Parent = this("Form")
'.Align = "alTop"
.top = 235
.width = 341
.height = 21
.left = 165
os3 = 0
for k13 = 1 to k3 step 1
.Items.Add = this("datSotr").ValueByFieldName("Sotr")
this("datSotr").nexta
next
end with



IF NOT ISOBJECT (THIS("datKonstDlitZad")) THEN
datKonstDlitZad = this.create ("TX2Query",this,"datKonstDlitZad")
end if
with this("datKonstDlitZad")
.ClassName = "Константы"
.Connector = this ("pnlBase")("Table1")("queryTable").Connector
.SelectString = " p343 AS [Длительность]"
.WhereString = "ObjectID = 39"
.refresh
KonstDlitZad =.ValueByFieldName("Длительность")
.Free
end with

if isnull(KonstDlitZad) then
KonstDlitZad = 15
else
KonstDlitZad = KonstDlitZad
end if

'по умолчанию
with this("datSotr")
.ClassName = "Сотрудники"
.Connector = this ("pnlBase")("Table1")("queryTable").Connector
.SelectString = "ObjectID as ID_, p565 AS Sotr"
.WhereString = "p752 <> 12 and ObjectID = dbo.F_GetCurrUserRef() "' текущий пользователель

end with

this("datSotr").refresh

this("form")("refSotr").Text = this ("datSotr").ValueByFieldName("Sotr") ' заменили новое
this("datSotr").free
' для длительности

If not IsObject(this("Panel7")) Then
Pan7 = this.create ("TLabel",this,"Panel7")
with Pan7
.parent = Form
.width = 60
.Height = 30
.top = 175
.left = 135
.caption = "Длительность "
end with
end if ' закрываем Panel

CountDL = this.create ("TcxCalcEdit", form, "CountDL")
with CountDL
.parent = Form
.width = 60
.Height = 21
.top = 190
.left = 135
.Value = cstr(KonstDlitZad)'"15"
end with

' для ед изм длительности
dim datED
IF NOT ISOBJECT (THIS("datED")) THEN
datED = this.create ("TX2Query",this,"datED")
end if

with this("datED")
.ClassName = "Элементы справочника"
.Connector = this ("pnlBase")("Table1")("queryTable").Connector
.SelectString = "count(*) AS Kol"
.whereString = "p563 = 10"
end with


this("datED").refresh
k = this("datED").ValueByFieldName("Kol")

'ссылка на единицы измерения

refED = this.create ("TComboBox",form,"refED")
with this("datED")
.ClassName = "Элементы справочника"
.Connector = this ("pnlBase")("Table1")("queryTable").Connector
.SelectString = "ObjectID as ID_, p560 AS ed"
.WhereString = "p563 = 10 order by 2"
.refresh
end with

with refED
.Parent = this("Form")
'.Align = "alTop"
.top = 190
.width = 140
.height = 21
.left = 205
os = 0
for k1 = 1 to k step 1
.Items.Add = this("datED").ValueByFieldName("ed")
this("datED").nexta
next
end with

'по умолчанию
with this("datED")
.ClassName = "Элементы справочника"
.Connector = this ("pnlBase")("Table1")("queryTable").Connector
.SelectString = "ObjectID as ID_, p560 AS ED"
.WhereString = "p563 = 10 and ObjectID = 22" ' минуты
end with

this("datED").refresh

this("form")("refED").Text = this ("datED").ValueByFieldName("ED") ' заменили новое
this("datED").free

' назначить куратора
checkboxK = this.Create("Tcxcheckbox", Form,"checkboxK")
With checkboxK
.Parent = Form
.Caption = "Куратор из контрагента"
.top = 235
.left = 5
.width = 150
' .Align = "alTop"
' .Alignment = "taCenter"
.Height = 20
.checked = false
.OnClick = "IspolnitelFalse"
.Transparent = true

End With



KeybuttonZad = this.Create("TButton", Form, "cmExterna2")
With KeybuttonZad
.Parent = bar
.Caption = "&Создать задачу"
.left = 50
.top = 20
.width = 150
.height = 25
.OnClick = "CreateZad"
.ModalResult =0'1
End With

' создаем кнопку
If not IsObject(this("ButtonOtm")) Then
ButtonOtm = this.Create("TButton", Form, "cmExterna") 'создаем кнопки
With ButtonOtm
.Parent = bar
.Caption = "&Закрыть форму"
'.Align = "alBottom"
.Left = 250
.top =20
.Width = 150
.height = 25
.ModalResult = 1
End With
end if


Form.ShowModal ' чтобы увидеть форму
Form.Free ' закрытие формы

this ("pnlBase") ("Table3")("queryTable").close ' обновляем данные в таблице задачи
this ("pnlBase") ("Table3")("queryTable").open

this("ref").text = "Выберите действие из списка:"

END IF
end sub

sub CreateRass()
IF isnull(this ("pnlBase")("Table1")("queryTable").ValueByFieldName("ID_") ) then
' MSGBOX "Контактные лица не выбраны! Создание рассылки невозможно"
MsgDialog "Контактные лица не выбраны! Создание рассылки невозможно", "I"
else ' контрагент есть

TekUser (this) ' получаем тек пользователя

dim datRass
IF NOT ISOBJECT (THIS("datRass")) THEN
datRass = this.create ("TX2Query",this,"datRass")
end if

with this("datRass")
.ClassName = "Маркетинг. Рассылки"
.Connector = this ("pnlBase")("Table1")("queryTable").Connector
.SelectString = " top 1 ""ObjectID"" AS ID_"
.WhereString = "user_cr = " + CStr(TPUsers) + " and 1 = 1 order by 1 desc"
end with


this("datRass").refresh

RassCard_0 =this ("datRass").ValueByFieldName("ID_")
On Error resume next
if Err.Number = 0 then
this ("pnlBase")("Button5").DoClick = true ' нажатие на кнопку ДИ
end if
On Error resume next
if Err.Number = 0 then

this("datRass").refresh
end if

RassCard =this ("datRass").ValueByFieldName("ID_")

if (RassCard <> RassCard_0) or (isnull(RassCard_0) and (not isnull(RassCard))) then
this ("datRass").OpenModalCard(RassCard)
end if


this("ref").text = "Выберите действие из списка:"
this ("datRass").free


END IF
end sub

Sub IspolnitelFalse (sender)
dim kkkur
kkkur = 0
if this("form")("checkboxK").checked = true then
kkkur = 1
end if
if kkkur = 1 then
this("form")("refSotr").Text = " " ' заменили новое
this("form")("refSotr").enabled = false
end if
if kkkur = 0 then

this("form")("refSotr").enabled = true
end if

end sub


Sub CreateZad (sender)

' заголовок
if this("pane").text <> "" then
z = this("pane").text
end if

' Описание
dim o
if this("pane2").Lines.Text = "" then
o = ""
end if
if this("pane2").Lines.Text <> "" then
o = this("pane2").Lines.Text
end if


dim typeZ
if not isnull(this("form")("refType").text) then
typeZ = this("form")("refType").text
end if
' получаем ID Типа задачи
IF NOT ISOBJECT (THIS("datZT")) THEN
datZT = this.create ("TX2Query",this,"datZT")
end if
with this("datZT")
.ClassName = "Элементы справочника"
.Connector = this ("pnlBase")("Table1")("queryTable").Connector
.SelectString = "ObjectID as ID_"
.WhereString = "p560 = '"+cstr(typeZ)+"'"
'.OrderByString = "ObjectID"
end with

this("datZT").refresh
datZTID = this("datZT").ValueByFieldName("ID_")
this("datZT").free
if isnull ( datZTID) then
datZTID = 0
else
datZTID = datZTID
end if


if not isnull(this("pane3").EditValue) then
d = CStr(this("pane3").EditValue)
end if

dim ED
if not isnull(this("form")("refED").text) then
ED = this("form")("refED").text
end if
' получаем ID длительности
IF NOT ISOBJECT (THIS("datZDL")) THEN
datZDL = this.create ("TX2Query",this,"datZDL")
end if
with this("datZDL")
.ClassName = "Элементы справочника"
.Connector = this ("pnlBase")("Table1")("queryTable").Connector
.SelectString = "ObjectID as ID_"
.WhereString = "p560 = '"+cstr(ED)+"'"
'.OrderByString = "ObjectID"
end with

this("datZDL").refresh
datZDLID = this("datZDL").ValueByFieldName("ID_")
this("datZDL").free
if isnull ( datZDLID) then
datZDLID = 0
else
datZDLID = datZDLID
end if

dim Sotr
if not isnull(this("form")("refSotr").text) then
Sotr = this("form")("refSotr").text
end if
' получаем ID исполнителя
IF NOT ISOBJECT (THIS("datZIsp")) THEN
datZIsp = this.create ("TX2Query",this,"datZIsp")
end if
with this("datZIsp")
.ClassName = "Сотрудники"
.Connector = this ("pnlBase")("Table1")("queryTable").Connector
.SelectString = "ObjectID as ID_"
.WhereString = "p565 = '"+cstr(Sotr)+"'"
'.OrderByString = "ObjectID"
end with

this("datZIsp").refresh
datZIspID = this("datZIsp").ValueByFieldName("ID_")
this("datZIsp").free
if isnull ( datZIspID) then
datZIspID = 0
else
datZIspID = datZIspID
end if

dim kol
if not isnull(this("form")("CountDL").Value) then
kol = this("form")("CountDl").Value
else
kol = 0
end if

' тип задачи
if datZTID = 0 then
'msgBox "Выберите тип задачи из выпадающего списка значений!"
MsgDialog "Выберите тип задачи из выпадающего списка значений!", "I"
else

' заголовок
if this("pane").text = "" then
'msgBox "Введите заголовок задачи!"
MsgDialog "Введите заголовок задачи!", "I"
else

'срок начала
dim d
if isNull (this ("pane3").EditValue) then ' проверяем введены ли исходные данные
'msgBox "Заполните срок начала!"
MsgDialog "Заполните срок начала!", "I"
else

if kol = 0 then
'msgbox "Укажите длительность! Длительность должна быть больше 0!"
MsgDialog "Укажите длительность! Длительность должна быть больше 0!", "I"
else

' длительность задачи
if datZDLID = 0 then
'msgBox "Выберите единицу измерения длительности задачи из выпадающего списка значений!"
MsgDialog "Выберите единицу измерения длительности задачи из выпадающего списка значений!", "I"
else

dim kur
kur = 0
if this("form")("checkboxK").checked = true then
kur = 1
end if

' исполнитель задачи
if datZIspID = 0 and kur = 0 then
' msgBox "Выберите исполнителя задачи из выпадающего списка значений или задайте галочку Куратор из контрагента!"
MsgDialog "Выберите исполнителя задачи из выпадающего списка значений или задайте галочку Куратор из контрагента!", "I"
else

dim datZad
IF NOT ISOBJECT (THIS("datZad")) THEN
datZad = this.create ("TX2Query",this,"datZad")
end if

with this("datZad")
.ClassName = "Задачи"
.Connector = this ("pnlBase")("Table2")("queryTable").Connector
.SelectString = " top 1 ""ObjectID"" AS ID_"
.WhereString = "1 = 1 order by 1 desc"
end with


this("datZad").refresh

ZadCard_0 =this ("datZad").ValueByFieldName("ID_")


' все заполнено создаем!
this ("Queryk").SQL.Text = "exec AXI_TableTask " + CStr(datZTID)+ "," + "'"+ z+"'" +","+ "'" +CStr(d)+ "'" +","+CStr(datZispID)+","+ CStr(kol) +","+CStr(datZDLID)+"," +"'"+(o)+"'" + ", "+ CStr(kur)

this ("Queryk").open
this ("Queryk").close


this ("pnlBase")("Button4").DoClick = true ' нажатие на кнопку ДИ

this ("pnlBase") ("Table2")("queryTable").close ' обновляем данные в таблицах режима
this ("pnlBase") ("Table2")("queryTable").open


this("datZad").refresh
this ("datZad").last

ZadCard =this ("datZad").ValueByFieldName("ID_")
this ("datZad").free
if (ZadCard <> ZadCard_0) or (isnull(ZadCard_0) and (not isnull(ZadCard))) then
' msgbox "Задачи успешно созданы!"
MsgPopup "Задачи успешно созданы!", 5, "I"
end if



end if ' исполнитель задачи
end if ' длительность ID
end if ' длительность
end if ' срок начала
end if ' заголовок
end if ' тип

end sub


sub DeleteKL ()

IF isnull(this ("pnlBase")("Table1")("queryTable").ValueByFieldName("ID_") ) then
' MSGBOX "Контрагенты не выбраны! Объединение невозможно"
MsgDialog "Контактные лица не выбраны! Удаление невозможно", "I"
else ' контрагент есть

if MsgDialog("Удалить выделенные контактные лица?","C","YesNo") = vbYes then

this ("pnlBase")("Button9").DoClick = true ' нажатие на кнопку ДИ

this ("pnlBase")("Table1")("queryTable").Refresh
MsgPopup "Выбранные контактные лица удалены!", 5, "I"

end if

this("ref").text = "Выберите действие из списка:"
end if

end sub


'''''''''''''''''''НАЖАТИЯ НА КНОПКИ
Sub ClickVip (sender)
IF this("ref").text = "Выберите действие из списка:" then

' MSGBOX "Выберите действие из выпадающего списка, а затем нажмите кнопку Выполнить. Сейчас действие не выбрано!",48,"Выполнение действия"
MsgDialog "Выберите действие из выпадающего списка, а затем нажмите кнопку Выполнить. Сейчас действие не выбрано!", "I"
END IF


IF this("ref").text = "Напомнить" THEN
CreateNapom
END IF

IF this("ref").text = "Назначить задачу по выделенным" THEN
CreateTask
END IF

IF this("ref").text = "Создать рассылку по выделенным" THEN
CreateRass
END IF

IF this("ref").text = "Удалить выделенные" THEN
DeleteKL
END IF
end sub


' открытие карточки на редактирование
sub DBClick (sender)

if not isnull(this ("pnlBase")("Table3")("queryTable").ValueByFieldName("ID_") ) then
this ("pnlBase")("Table3")("queryTable").OpenModalCard(this ("pnlBase")("Table3")("queryTable").ValueByFieldName ("ID_")) ' открытие карточки на редактирование
end if

end sub


sub Main



ref = this("ref")
if not IsObject(ref) then
ref = this.create ("TcxComboBox",this,"ref")
with ref
.Parent = this ("pnlBase")("Panel7")
.width = 240
.height = 25
.top = 0
.left = 0

with .Properties
.DropDownRows = 17
.DropDownListStyle = "lsFixedList" 'Нередактируемый стиль
.Items.Add = "Выберите действие из списка:"
.Items.Add = "Напомнить"
.Items.Add = "Назначить задачу по выделенным"
.Items.Add = "Создать рассылку по выделенным"
.Items.Add = "Удалить выделенные"
end with
.ItemIndex = 0 'Выбираем первый эелемент
end with
end if


this("pnlbase")("Button6").OnButtonClick = "DBClick"'открыть карточку файла
this("pnlbase")("Button7").OnButtonClick = "ClickVip"'Выполнено
dim QueryK
IF NOT ISOBJECT (THIS("QueryK")) THEN
QueryK = this.create ("TXSQLQuery",this,"QueryK")
end if
this ("QueryK").Connector = this ("pnlBase")("Table1")("queryTable").Connector


End Sub

Скопировал ВСЕ что было.

С Вордом я более менее на "Ты" поэтому разобрался. Там почему-то надстройка была отключена.
А вот с Excel впорос остается открытым.

И в Word 2013 такая же проблема.

Важное дополнение!
После интеграции появляется ошибка и отсутствует вкладка КлиК, для создания шаблона в программе Excel 2013.

Увы, но я не нашел у себя подобного кода...
вот моя версия программы


И в уазаном Вами режиме (Контактные лица) ничего подобного в коде нет.

С уажением
Юрий

Благодарю за решение!
Но пока нет возможности проверить т.к. переезжаю на новый ПК.
Как закончу переезд обязательно опробую!

С уважением
Юрий