[5分]窗体中增加自定义编号，在局域网同时添加记录时发生同编号冲突，

窗体中增加自定义编号，代码如下：
Private Sub 姓名_Enter()
If IsNull(ID.value) Then
        ID.value = "N" & Format(CLng(DMax("mid(ID,2,7)", "档案目录") + 1), "000000")
        原编号.value = ID.value
    End If
End Sub

例如现在编号为N002812，
那么在A机上，单击添加记录，进入姓名栏目时，会自增N002813编号，
如果在B机上，同时操作，就会出现也增加N002813的编号，在保存时，就会出现同编号冲突，不能保存数据。

如果A、B二机各自操作，则不会发生如下情况。

故障初步诊断：因为代码只实现了在窗体中增加了编号，而并未写入后台数据表中，所以另一台机取最大值时，仍然是相同的旧值，导致新增了相同的编号，最终产生不能保存的结果。

窗体打开时，用了如下命令“DoCmd.GoToRecord , , acNewRec”，这样就会进入空白的记录处。

我的想法，刷新ID的字段值，让其一增加就写入表中，但是如果用了Requery命令，就会导致，刷新后，进入了窗体的第一条记录，实在是苦恼，这样就不能正常的录入数据了。

 

用了DoCmd.GoToRecord , acNext

    DoCmd.GoToRecord , acPrevious

就会出现不断增加数值的问题。