SELECT * FROM MyTable1 WHERE MyParam=[NewParam]

qdf.Parameters( "Param1" ).Value =  "777 "    
Set rst = dbs.OpenRecordset( "MyQwery1" )

Set rst = qdf.OpenRecordset

Set rst = dbs.OpenRecordset( "MyQwery1" )

Set rst = qdf.OpenRecordset

Public Sub Test()
Dim db As DAO.Database
Dim qd As DAO.QueryDef
Dim rst As DAO.Recordset

Set db = CurrentDb
Set qd = db.QueryDefs( "RDV" )
With qd
    .Parameters( "id" ).Value =  3 
    Set rst = .OpenRecordset()
End With
With rst
    .MoveLast
    MsgBox .RecordCount &  " "  & .Fields( 1 ).Value
    .Close: Set rst = Nothing
End With

Set qd = Nothing
Set db = Nothing
End Sub

qdf.Parameters( "Param1" ).Value =  "777 "    
Set rst = qdf.OpenRecordset 

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

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

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

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

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