请问一个窗口当前记录锁定的问题 - Office中国论坛/Access中国论坛

Option Compare Database
Private Sub Form_AfterUpdate()
DoCmd.SetWarnings False '关闭系统提示
DoCmd.RunSQL "UPDATE 表1 SET 表1.文件可改记号1 = 0 Where (FmNeID=Forms!窗体2!FmNeID)"
DoCmd.SetWarnings True '打开系统提示
End Sub
Private Sub Form_Current()
Me.AllowEdits = False
Me.AllowDeletions = False
If IsNull(Text_文件可改记号) Then
Else
End If
End Sub
Private Sub Form_Open(Cancel As Integer)
Me.Text_文件可改记号 = 0
Me.Text_文件可改记号 = Rnd() + Format(Now(), "s") / 1000
End Sub
Private Sub Label_修改记录_Click()
If DLookup("文件可改记号1", "表1", "FmNeID=Forms!窗体2.FmNeID") = 0 Or DLookup("文件可改记号1", "表1", "FmNeID=Forms!窗体2.FmNeID") = Me.Text_文件可改记号 Then
DoCmd.SetWarnings False '关闭系统提示
DoCmd.RunSQL "UPDATE 表1 SET 表1.文件可改记号1 = Text_文件可改记号 Where (FmNeID=Forms!窗体2!FmNeID)"
DoCmd.SetWarnings True '打开系统提示
Me.Text_当前记录编号 = Me.FmNeID
Me.Requery '刷新
Me.Recordset.FindFirst "FmNeID=" + Str(Text_当前记录编号) + ""
'Me.Recordset.FindFirst "FmNeID='" & Text_当前记录编号 & "'"
Me.AllowEdits = True
Me.AllowDeletions = True
If Format(Now(), "s") < 30 Then
Me.文件可改记号2 = Me.文件可改记号2 + Text_文件可改记号
Else
Me.文件可改记号2 = Me.文件可改记号2 - Text_文件可改记号
End If
Else
Me.AllowEdits = False
Me.AllowDeletions = False
MsgBox "其他人员正在修改这条记录！", vbOKOnly, "非常抱歉"
End If
End Sub

复制代码