Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/14.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Ms access 如何使用VBA搜索Lotus文档_Ms Access_Vba_Lotus Notes - Fatal编程技术网

Ms access 如何使用VBA搜索Lotus文档

Ms access 如何使用VBA搜索Lotus文档,ms-access,vba,lotus-notes,Ms Access,Vba,Lotus Notes,我需要从LotusForm中获取3个特定字段,并将其放入一个静态访问表中,从中我可以执行更多查询(其中2个字段构成主键,以便我可以将第3个字段与其他内容连接起来)。在下面的伪代码中,我充实了一个函数来实现这一点,但我无法理解其中的细节(我想如果没有正式的培训,我永远无法理解Lotus是如何工作的)。请帮我完成这个程序 Function GetFromLotusDocs() As String Dim NtS As New NotesSession Dim NtDb As New

我需要从LotusForm中获取3个特定字段,并将其放入一个静态访问表中,从中我可以执行更多查询(其中2个字段构成主键,以便我可以将第3个字段与其他内容连接起来)。在下面的伪代码中,我充实了一个函数来实现这一点,但我无法理解其中的细节(我想如果没有正式的培训,我永远无法理解Lotus是如何工作的)。请帮我完成这个程序

Function GetFromLotusDocs() As String
    Dim NtS As New NotesSession
    Dim NtDb As New NotesDatabase
    Dim NtF As New NotesForm
    NtS.Initialize
    Set NtDb = NtS.GetDatabase("MyServer", "MyDB.nsf")
    Set NtF = NtDb.GetForm("MyForm")

    For each document in NtDB
        DoCmd.RunSQL _
        "INSERT INTO TmpTbl ( Fld1,Fld2,Fld3 ) SELECT " & _
        Fld1 & "," & Fld2 & "," & Fld3 & ";"    
    Next document
End Function

如果您只需要从Notes获取数据并进入Access,我建议安装和配置LotusNotesSQL驱动程序。我已经多次使用它将数据拉入Access,通常是为了在将数据移动到SQL或SQL express数据库之前对其进行清理


下面是链接:

这就是我通常从Lotus中提取数据的方式。但我不知道要链接哪个“表”(我感兴趣的字段不在任何视图中,只在文档本身中)。Lotus中基本“表”的名称是什么?“所有文件”?已解决。我通过创建一个临时的私有视图并将其导出到一个文本文件来解决整个代码问题。但是,您会得到绿色检查,因为这是您的建议,应该是人们尝试的第一件事。应该有一个选项来检索表单数据,但最坏的情况是,您可以创建一个包含所需数据的视图,然后将其连接到Access。很高兴你找到了解决办法!