Поделиться через

Свойство Control.Object (Access)

  • Статья

Используйте свойство Object в Visual Basic, чтобы вернуть ссылку на объект ActiveX, связанный со связанным или внедренным объектом OLE в элементе управления . Используя эту ссылку, можно получить доступ к свойствам или вызвать методы объекта OLE. Объект только для чтения.

Синтаксис

expression. Объекта

Выражение Переменная, представляющая объект Control .

Замечания

Свойство Object возвращает ссылку на объект ActiveX. Используйте инструкцию Set , чтобы назначить этот объект ActiveX переменной объекта. Тип возвращаемой ссылки на объект зависит от того, какое приложение создало объект OLE.

При внедрении или связывании объекта OLE в форме Microsoft Access можно задать свойства, определяющие тип объекта и поведение элемента управления контейнером. Однако нельзя напрямую задать или прочитать свойства объекта OLE или применить его методы, как это возможно при выполнении службы автоматизации.

Свойство Object возвращает ссылку на объект службы автоматизации, представляющий связанный или внедренный объект OLE. Используя эту ссылку, можно изменить объект OLE, задав или считывая его свойства или применяя его методы. Например, Microsoft Excel — это com-компонент, поддерживающий автоматизацию. Если вы встроили лист Excel в форму Access, можно использовать свойство Object , чтобы задать ссылку на объект Worksheet, связанный с этим листом. Затем можно использовать любые свойства и методы объекта Worksheet .

Сведения о том, какие свойства и методы поддерживает объект ActiveX, см. в документации по приложению, которое использовалось для создания объекта OLE.

Пример

В следующем примере используется свойство Object фрейма объекта без привязки с именем OLE1. Сведения об имени и адресе клиента вставляются во внедренный документ Microsoft Word в виде буквы формы с заполнителями для сведений об имени и адресе и стандартного текста в тексте буквы. Процедура заменяет сведения о заполнителях для каждой записи и выводит букву формы. При этом не сохраняются копии печатной буквы формы.

Sub PrintFormLetter_Click() 
 Dim objWord As Object 
 Dim strCustomer As String, strAddress As String 
 Dim strCity As String, strRegion As String 
 
 ' Assign object property of control to variable. 
 Set objWord = Me!OLE1.Object.Application.Wordbasic 
 ' Assign customer address to variables. 
 strCustomer = Me!CompanyName 
 strAddress = Me!Address 
 strCity = Me!City & ", " 
 If Not IsNull(Me!Region) Then 
 strRegion = Me!Region 
 Else 
 strRegion = Me!Country 
 End If 
 ' Activate ActiveX control. 
 Me!OLE1.Action = acOLEActivate 
 With objWord 
 .StartOfDocument 
 ' Go to first placeholder. 
 .LineDown 2 
 ' Highlight placeholder text. 
 .EndOfLine 1 
 ' Insert customer name. 
 .Insert strCustomer 
 ' Go to next placeholder. 
 .LineDown 
 .StartOfLine 
 ' Highlight placeholder text. 
 .EndOfLine 1 
 ' Insert address. 
 .Insert strAddress 
 ' Go to last placeholder. 
 .LineDown 
 .StartOfLine 
 ' Highlight placeholder text. 
 .EndOfLine 1 
 ' Insert City and Region. 
 .Insert strCity & strRegion 
 .FilePrint 
 .FileClose 
 End With 
 Set objWord = Nothing 
End Sub

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.