Access VBA教程:OLEType属性

使用 OLEType属性可以确定控件是否包含OLE对象,如果包含,还可确定对象是链接还是嵌入方式。Byte 型,可读写。

expression.OLEType

expression   必需。返回“Applies To”列表中的一个对象的表达式。

说明

OLEType属性使用以下设置:

设置 常量 说明
链接 acOLELinked  控件包含链接对象。对象的全部数据由创建它的应用程序管理。
嵌入 acOLEEmbedded  控件包含嵌入对象。对象的全部数据由 Microsoft Access 管理。
acOLENone 控件不包含 OLE对象。

在创建 OLE对象时,请使用OLETypeAllowed属性来确定控件可以包含什么类型的对象。

VBA示例

下面的示例说明如何显示“插入对象”对话框,以及在单击“插入对象”对话框中的“取消”按钮后,如何显示错误消息。


Sub InsertObject_Click()
    Dim conUserCancelled As Integer
    ' Error message returned when user cancels.
    conUserCancelled = 2001
    On Error GoTo ButtonErr
    If OLE1.OLEType = acOLENone Then
        ' No OLE object created.
        ' Display Insert Object dialog box.
        OLE1.Action = acOLEInsertObjDlg
    End If
    Exit Sub
ButtonErr:
    If Err = conUserCancelled Then ' Display message.
        MsgBox "You clicked the Cancel button; " _
            & "no object was created."
    End If
    Resume Next
End Sub

上页:Access VBA教程:OLEData属性 下页:Access VBA教程:OLETypeAllowed属性

Access VBA教程:OLEType属性

Access VBA教程:OLETypeAllowed属性 Access VBA教程:OnActivate属性
Access VBA教程:OnApplyFilter属性 Access VBA教程:OnChange属性
Access VBA教程:OnClick属性 Access VBA教程:OnClose属性
Access VBA教程:OnConnect属性 Access VBA教程:OnCurrent属性
Access VBA教程:OnDblClick属性 Access VBA教程:OnDeactivate属性
Access VBA教程:OnDelete属性 Access VBA教程:OnDirty属性
Access VBA教程:OnDisconnect属性 Access VBA教程:OnEnter属性
Access VBA教程:OnError属性 Access VBA教程:OnExit属性
Access VBA教程:OnFilter属性 Access VBA教程:OnFormat属性
Access VBA教程:OnGotFocus属性 Access VBA教程:OnInsert属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号