只有部分前端用户可以获得应用程序的全部功能

时间:2016-12-13 14:49:05

标签: database forms ms-access

我为一个单独的部门开发了一个前端,允许他们将数据键入我们的后端表结构。该前端表单的一部分包括一个消息框,每次进行更改时都会打开。要允许他们提供原因,请添加日期等。

只有某些用户在使用表单时才会看到此消息框。它不是权限问题或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

0 个答案:

没有答案