Database 在Microsoft Access中创建警告

Database 在Microsoft Access中创建警告,database,ms-access,vba,ms-access-2013,Database,Ms Access,Vba,Ms Access 2013,我已在Microsoft Access中创建了患者数据输入表单。它收集的字段之一是病历号。每个患者只有一个MR,无论他们访问办公室多少次。我做了一个单独的查询,查看MR输入了多少次——例如,患者多久看一次医生。我想创建一个警报,这样如果MR的出现次数超过3次,它就会向医生发出警报 然而,我无法在网上找到任何信息,让我开始如何编写此警告。 任何提示或编码示例都会非常有用。假设您的病历号位于名为txtMedicalRecordNumber的文本框中 如果您希望允许医生输入值并仅显示警告,则在文本框的

我已在Microsoft Access中创建了患者数据输入表单。它收集的字段之一是病历号。每个患者只有一个MR,无论他们访问办公室多少次。我做了一个单独的查询,查看MR输入了多少次——例如,患者多久看一次医生。我想创建一个警报,这样如果MR的出现次数超过3次,它就会向医生发出警报

然而,我无法在网上找到任何信息,让我开始如何编写此警告。
任何提示或编码示例都会非常有用。

假设您的病历号位于名为txtMedicalRecordNumber的文本框中

如果您希望允许医生输入值并仅显示警告,则在文本框的After_Update事件后面放置类似的代码

If Nz(DCount("MedicalRecordNumber", "MyTable", "MedicalRecordNumber = '" &  me.txtMedicalRecordNumber & "'"), 0) > 3 Then
    MsgBox "This record has been entered more than three times"
End If
您还可以将dCount的结果分配给一个变量,并在消息框中给出条目数

如果要阻止他们输入病历超过三次,请使用“更新前”事件并取消更新

If Nz(DCount("MedicalRecordNumber", "MyTable", "MedicalRecordNumber = '" &  me.txtMedicalRecordNumber & "'"), 0) > 3 Then
    MsgBox "This record has been entered more than three times"
    cancel = true
End If