ms-access - 如何编写一个在更改表时创建文本文件的宏？

Question

我正在尝试创建一个宏，当更改表时，它将为所选路径创建一个简单的文本文件。我一直在 VB.NET 中编程，但访问是在 vba 中，我一直在做一些研究，并认为我可以做到。但是，如果您将代码插入其中，访问宏编写器会让我感到困惑。有没有办法在 VB.NET 中制作一个或使用可以访问的 Visual Studio？

Answer 1

在这种情况下，我认为您应该利用数据宏。即使该表在 MS Access 之外使用，这些也会运行。例如：

或者

Sub LogThis(strText)
Const ForAppending = 8
Dim sPath As String
Dim fs As Object
Dim ts As Object

    sPath = CurrentProject.Path

    Set fs = CreateObject("Scripting.FileSystemObject")
    If fs.FileExists(sPath & "\Log.txt") = True Then
        Set ts = fs.OpenTextFile(sPath & "\Log.txt", ForAppending)
    Else
        Set ts = fs.CreateTextFile(sPath & "\Log.txt")
    End If
    ts.WriteLine Now & " " & strText
    ts.Close
End Sub