Public dbs As Database 
Public cn As ADODB.Connection 

Set dbs = CurrentDb()
Set cn = Application.CurrentProject.Connection

Set cn = New ADODB.Connection
cmd.ActiveConnection = cn        '--- Ругается на эту строчку. Говорит 'object required'
cmd.CommandType = adCmdStoredProc
cmd.TimeOut =  10 
cmd.Parameters.Refresh
cmd.CommandText = "ЗанятьДолжность"
cmd.Parametr( 1 ) = СписокРаботников
cmd.Parametr( 2 ) = СписокДолжностей
cmd.Parametr( 3 ) = Ставка
cmd.Execute

cmd.ActiveConnection = CurrentProject.Connection
cmd.CommandType = adCmdStoredProc
cmd.TimeOut =  10 
cmd.Parameters.Refresh
cmd.CommandText = "ЗанятьДолжность"
cmd.Parametr( 1 ) = СписокРаботников
cmd.Parametr( 2 ) = СписокДолжностей
cmd.Parametr( 3 ) = Ставка
cmd.Execute

Public dbs As Database 
Public cn As ADODB.Connection 

Set dbs = CurrentDb()
Set cn = Application.CurrentProject.Connection

Set cn = New ADODB.Connection
cmd.ActiveConnection = cn        '--- Ругается на эту строчку. Говорит 'object required'

Dim cmd as ADODB.Connection
Set cmd = New ADODB.Connection

Public cn As ADODB.Connection 
dim cmd as new ADODB.command
Dim prm1 As ADODB.Parameter
Dim prm2 As ADODB.Parameter

Set cn = Application.CurrentProject.Connection
Set cn = New ADODB.Connection

With cmd
.CommandText = "dbo.процедура"
.CommandType = adCmdStoredProc
.ActiveConnection = cn
Set prm1 = cmd.CreateParameter("@1", adInteger, adParamInput,  4 , a)
Set prm2 = cmd.CreateParameter("@2", adInteger, adParamInput,  4 , b)
.Parameters.Append prm1
.Parameters.Append prm2
end with

 cmd.Execute

На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика.

Продолжая использовать сайт, вы даёте согласие на обработку файлов cookie, необходимых для работы сайта. Другие опции вы можете выбрать по своему усмотрению.

По нижеприведенным ссылкам мы можете ознакомиться с действующим на сайте пользовательским соглашением и политикой конфиденциальности.

Пользовательское соглашение
Политика конфиденциальности

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы