{quote}{login=Sergey11222}{date=27.11.2011 09:28}{thema=передать параметр запроса на обновление из Excel в Access}{post}...как передать параметр из Excel в запрос на обновление Access?{/post}{/quote}Какой параметр?

ох и намудрили Вы....  
Sub Кнопка2_Щелкнуть()  
Dim cnn As New ADODB.Connection  
Dim i As Integer  
Dim LastDoor As Long  
Dim cmd As ADODB.Command  
'C:\Documents and Settings\Сергей\Мои документы\db10.mdb  
 
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" _  
   & "Data Source=C:\Documents and Settings\Сергей\Мои документы\db10.mdb"  
cnn.Open  
LastDoor = ThisWorkbook.Sheets("ОсмотрДверей").Cells(65536, 1).End(xlUp).Row  
Set cmd = New ADODB.Command  
With cmd  
.ActiveConnection = cnn  
 
For i = 2 To LastDoor  
       kodDveri = ThisWorkbook.Sheets("ОсмотрДверей").Cells(i, 1)  
   .CommandText = "UPDATE Таблица1 SET Таблица1.Дата =" & DataSql(Date) _  
           & " WHERE Таблица1.КодДв =" & kodDveri  
   .Execute  
   Next  
End With  
cnn.Close  
Set cnn = Nothing  
End Sub  
 
Function DataSql(dt_sql As String)  
DataSql = "#" & Format(dt_sql, "mm\/dd\/yy hh\:mm\:ss") & "#"  
End Function  
 
_-=40604=-_

Уважаемые форумчане.  
Здесь (как мне понятно) написан запрос на SQL в модуле Excel. Текст запроса передается в Access вместе с параметром "kodDveri"  
 
А есть ли вариант управления из Excel сохраненным запросом, находящимся в Access?  
 
Или что Вы рекомендуете почитать по Command?