我为一个单独的部门开发了一个前端,允许他们将数据键入我们的后端表结构。该前端表单的一部分包括一个消息框,每次进行更改时都会打开。要允许他们提供原因,请添加日期等。
只有某些用户在使用表单时才会看到此消息框。它不是权限问题或Access版本的兼容性问题。我们已经研究过了。我们已经失去了它可能是什么。
我知道我们用于消息框的代码使用MS Access中的特定库。这可能是个问题吗?你们其他人认为它可能是什么?我们只是在这里寻找可能性。
源代码:
Option Compare Database
Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim cmmnt As String
If Me.NewRecord Then
'Calls modAudit function to record new records to Audit Trail
cmmnt = InputBox("What is the reason for adding this record")
If StrPtr(cmmnt) = 0 Then
Me.Undo
Exit Sub
Else
Call AuditChanges("providerID", "NEW", cmmnt)
End If
Else
'Calls modAudit function to record edits to Audit Trail
cmmnt = InputBox("What is the reason for changing the value of this field?")
If StrPtr(cmmnt) = 0 Then
Me.Undo
Exit Sub
Else
Call AuditChanges("providerID", "EDIT", cmmnt)
End If
End If
End Sub