MS Access 2013/365中的ActiveGantt Activex控件-对象方法上的VBA运行时错误

可乐

我正在使用MS Access 365(2013),即使对ActiveGanttVCCtl对象上的对象方法进行最简单的调用也遇到运行时错误。

使用ActiveGantt网站(http://www.sourcecodestore.com/Article.aspx?ID=15#Create3上提供的“入门”指南,我收到任何一个运行时错误(424对象必需) for循环之后的四行代码。为方便起见,此处再次提供了代码。

Option Compare Database
Option Explicit

Public Function ActiveGanttVCCtl1() As ActiveGanttVCCtl
    Set ActiveGanttVCCtl1 = ActiveGanttVCCtl1A.Object
End Function

Private Sub Form_Load()
    Dim i As Integer
    ActiveGanttVCCtl1.Columns.Add "Column 1", "", 125, ""
    ActiveGanttVCCtl1.Columns.Add "Column 2", "", 100, ""
    For i = 1 To 10
        ActiveGanttVCCtl1.Rows.Add "K" & i, "Row " & i, True, True, ""
    Next
    ActiveGanttVCCtl1.CurrentViewObject.TimeLine.Position DateSerial(2011, 11, 2)
    ActiveGanttVCCtl1.Tasks.Add "Task 1", "K1", DateSerial(2011, 11, 2) + TimeSerial(0, 0, 0), DateSerial(2011, 11, 2) + TimeSerial(3, 0, 0), "", "", ""
    ActiveGanttVCCtl1.Tasks.Add "Task 2", "K2", DateSerial(2011, 11, 2) + TimeSerial(1, 0, 0), DateSerial(2011, 11, 2) + TimeSerial(4, 0, 0), "", "", ""
    ActiveGanttVCCtl1.Tasks.Add "Task 3", "K3", DateSerial(2011, 11, 2) + TimeSerial(2, 0, 0), DateSerial(2011, 11, 2) + TimeSerial(5, 0, 0), "", "", ""
End Sub

请注意,直到该行才发生错误

ActiveGanttVCCtl1.CurrentViewObject.TimeLine.Position DateSerial(2011, 11, 2)

已包括对ActiveGanttVC Scheduler组件库的引用(否则将给出编译错误),并且ActiveGantt ActiveX控件存在于名为ActiveGanttVCCtl1A的窗体上。我也尝试过在Form_Load()函数本身而不是在单独的函数中声明ActiveGanttVCCtl对象,但得到的结果相同。

我还确定,在发生运行时错误时,我能够访问ActiveGanttVCCtl1.CurrentViewObject.TimeLine对象,因为我可以在其上运行GetXML方法而没有任何问题,只是没有Position方法。

我也尝试将这一行注释掉,但是在下一行代码(对task.add的调用)上我收到了相同的运行时错误。但是,创建对columns.add或rows.add方法的进一步调用似乎在代码中的该位置仍然可以正常工作。

MS Access 2013中是否存在此控件未出现在MS Access 2010中的问题?

朱利奥·卢萨多

发生这种情况是因为您使用的ActiveGanttVC版本使用AGVC.DateTime而不是常规的VB / VBA日期。在ActiveGanttVC中引入了AGVC.DateTime以实现毫秒,微秒和纳秒的精度(这根本不是一个好主意),ActiveGanttVC的下一个版本(3.2.0)将使用常规VB6 / VBA日期(COleDateTime用于C ++用户)。同时,在ActiveGanttVC中指定日期时,您将必须使用此帮助程序功能:

Public Function FromDate(ByVal dtDate As Date) As AGVC.DateTime
      Dim dtReturn As New AGVC.DateTime
      Dim lYear As Long
      Dim lMonth As Long
      Dim lDay As Long
      Dim lHour As Long
      Dim lMinute As Long
      Dim lSecond As Long
      lYear = Year(dtDate)
      lMonth = Month(dtDate)
      lDay = Day(dtDate)
      lHour = Hour(dtDate)
      lMinute = Minute(dtDate)
      lSecond = Second(dtDate)
      dtReturn.Initialize lYear, lMonth, lDay, lHour, lMinute, lSecond, 0, 0, 0
      Set FromDate = dtReturn
End Function


ActiveGanttVCCtl1.CurrentViewObject.TimeLine.Position FromDate(DateSerial(2011, 11, 2))

本文收集自互联网,转载请注明来源。

如有侵权,请联系[email protected] 删除。

编辑于
0

我来说两句

0条评论
登录后参与评论

相关文章

来自分类Dev

MS ACCESS - VBA 中的错误运行时 3141 SQL

来自分类Dev

MS ACCESS VBA运行时错误“ 3021”;与.MoveNext

来自分类Dev

带子查询的SQL查询上的MS Access VBA运行时错误3075

来自分类Dev

Ms-Access-此控件中没有对象

来自分类Dev

表单中的 MS Access 列表类对象(如控件集合)

来自分类Dev

如何使用ActiveGantt Chart控件部署MS Access 2010数据库?

来自分类Dev

如何隐藏或覆盖 MS Access ActiveX Web 浏览器控件?

来自分类Dev

MS Access VBA:如何清除图像控件?

来自分类Dev

Access 2010中的VBA-运行时错误430

来自分类Dev

MS-Access 2007查询运行时错误

来自分类Dev

通过 VBA 宏更改 Word 中 ActiveX 控件字段的值

来自分类Dev

想知道Java中的ActiveX控件替代方法

来自分类Dev

想知道Java中的ActiveX控件替代方法

来自分类Dev

MS Access中的IIf错误

来自分类Dev

尝试在 Excel VBA 中运行 MS Access 查询时出现“需要对象”错误

来自分类Dev

使用VBA访问ActiveX控件时出现运行时错误'438'问题

来自分类Dev

ActiveX组件无法创建对象VBA运行时错误

来自分类Dev

如何在MS Access中动态引用控件名称

来自分类Dev

计算出的控件MS-access中的简单总和

来自分类Dev

如何使用C#在运行时在MS Access中创建存储的查询

来自分类Dev

尝试访问在VBA(Visio)中在运行时创建的控件的属性时发生运行时错误

来自分类Dev

从MS Access中的VB运行查询

来自分类Dev

MS Access 2010在查询中的运行总计

来自分类Dev

MS Access中VBA代码的继承

来自分类Dev

DLookup:MS Access VBA 中的查询与表?

来自分类Dev

在MS Access 2010中使用VBA将第三级添加到Treeview Active X控件

来自分类Dev

MS Access查询中的语法错误?

来自分类Dev

MS Access中的聚合功能导致错误

来自分类Dev

MS Access查询中的语法错误?

Related 相关文章

  1. 1

    MS ACCESS - VBA 中的错误运行时 3141 SQL

  2. 2

    MS ACCESS VBA运行时错误“ 3021”;与.MoveNext

  3. 3

    带子查询的SQL查询上的MS Access VBA运行时错误3075

  4. 4

    Ms-Access-此控件中没有对象

  5. 5

    表单中的 MS Access 列表类对象(如控件集合)

  6. 6

    如何使用ActiveGantt Chart控件部署MS Access 2010数据库?

  7. 7

    如何隐藏或覆盖 MS Access ActiveX Web 浏览器控件?

  8. 8

    MS Access VBA:如何清除图像控件?

  9. 9

    Access 2010中的VBA-运行时错误430

  10. 10

    MS-Access 2007查询运行时错误

  11. 11

    通过 VBA 宏更改 Word 中 ActiveX 控件字段的值

  12. 12

    想知道Java中的ActiveX控件替代方法

  13. 13

    想知道Java中的ActiveX控件替代方法

  14. 14

    MS Access中的IIf错误

  15. 15

    尝试在 Excel VBA 中运行 MS Access 查询时出现“需要对象”错误

  16. 16

    使用VBA访问ActiveX控件时出现运行时错误'438'问题

  17. 17

    ActiveX组件无法创建对象VBA运行时错误

  18. 18

    如何在MS Access中动态引用控件名称

  19. 19

    计算出的控件MS-access中的简单总和

  20. 20

    如何使用C#在运行时在MS Access中创建存储的查询

  21. 21

    尝试访问在VBA(Visio)中在运行时创建的控件的属性时发生运行时错误

  22. 22

    从MS Access中的VB运行查询

  23. 23

    MS Access 2010在查询中的运行总计

  24. 24

    MS Access中VBA代码的继承

  25. 25

    DLookup:MS Access VBA 中的查询与表?

  26. 26

    在MS Access 2010中使用VBA将第三级添加到Treeview Active X控件

  27. 27

    MS Access查询中的语法错误?

  28. 28

    MS Access中的聚合功能导致错误

  29. 29

    MS Access查询中的语法错误?

热门标签

归档