如何在“访问”表单中接送您离开的地方

时间:2018-09-24 13:16:14

标签: access-vba

我有一个表格和表格,使我们公司的处理器可以跟踪他们每天处理的传入物料的数量。例如,我的一些字段是:ServicerName,DateOfEntry,PhoneCallsCompleted,ChecksCompleted和EmailsCompleted。表格中的每一行表示处理器在特定日期处理了多少个不同类别的项目。如果用户关闭该表单并在当天晚些时候返回该表单,那么我希望该表单可以从他们退出的记录中获取。我试图解决此问题的方法是创建一个名为ServicerNamePlusDateOfEntry的计算字段,该字段将ServicerName和DateOfEntry字段中的值连接在一起。如果已经存在用于特定日期和处理器名称的条目,则以下代码将使用户返回到现有条目。但是,它还会创建一个附加的空记录。

Private Sub ServicerName_AfterUpdate()
    Dim RepName As String
    Dim EnteredDate As Date
    Dim NamePlusDate As String
    RepName = ServicerName.Value
    EnteredDate = DateOfEntry.Value
    NamePlusDate = RepName & " " & EnteredDate

    DoCmd.FindRecord NamePlusDate, acAnywhere, True, acSearchAll, True, 
    acAll, True

End Sub

我需要弄清楚如何获取它而不创建额外的记录。

1 个答案:

答案 0 :(得分:0)

如果ServicerName和DateOfEntry字段是未绑定的,并且是表单上的第一个控件,因此尚未输入其他任何内容,那么我认为该过程可以导航到匹配记录(如果存在),一旦它们被填写而无需创建一个新记录,或者,如果找不到匹配的记录,则将两个文本条目以及表单的其余部分一起保存到基础记录集中。