Question

我试图节省一些时间，因为每天早上使用保存的导入更新一些类似数据库的新数据。我目前在徽标上有以下双击代码，用于检查我是否是数据库的当前用户（因为我是唯一一个将要更新的用户），如果我是当前用户，运行两个保存的导入：

Private Sub Image480_DblClick(Cancel As Integer)

Dim sHostName As String

' Get Host Name / Get Computer Name
sHostName = Environ$("computername")


If sHostName = "GS100ZEC" Then
    DoCmd.RunSavedImportExport "Import-DocCreator CPD"
    DoCmd.RunSavedImportExport "Import-DocCreator CD"
End If

End Sub

问题似乎是它只使用新数据更新其中一个表，第二个表保持不变。任何提示或我可能错过的东西都将不胜感激！

更新

我的好友帮我制定了这个功能的循环，但仍然是同样的问题，第二个导入没有运行！代码如下：

Private Sub Image480_DblClick(Cancel As Integer)

Dim sHostName As String
Dim i As Integer
Dim docs(1 To 2) As String

' Get Host Name / Get Computer Name
sHostName = Environ$("USERPROFILE")

docs(1) = "Import-DocCreator CPD"
docs(2) = "Import-DocCreator CD"

If sHostName = "C:\Users\z003nttv" Then
    For i = 1 To 2
    DoCmd.RunSavedImportExport docs(i)
    Next i

End If

End Sub

还尝试删除已保存的导入并重新创建，仍然无法导入。

MS Access VBA - 双击

0 个答案: