尝试从libreoffice宏内的SQL查询获取结果并获取BASIC运行时错误。未设置对象变量

Question

我有一个联系人表，每个人都有该联系人所属的 ComapnyName 。每个公司只能有一个主要联系人，该联系人由BIT字段 MainContact 标记。我想创建一个宏，该宏将通过从Combobox中以表格形式选择CompanyName来运行。基于选择的值，我想运行简单的SQL查询，检查所选的Comapny是否具有主要联系人，如果允许，则允许人员破坏此类人员的复选框应为灰色（禁用）

不幸的是，我遇到了BASIC运行时错误。未设置对象变量。在这行上ResultSet = Statement.ExecuteQuery（“从员工那里的SELECT COUNT（*），其中CompanyName ='IBM'AND MainContact = 1”）

Sub CompanyFormChange（）

Dim ResultSet As Object

ResultSet = Statement.ExecuteQuery("SELECT COUNT (*) from Employees WHERE CompanyName = 'IBM' AND MainContact= 1")

While ResultSet.next

If ResultSet.getINT(1) = 0 Then
    MsgBox("No record")
    Else 
        MsgBox("There is a record")
    End If

WEnd

结束子