Option Compare Database<br />Public jl As Long<br />Private Sub Form<em>Current()<br />If jl <> 0 And Me.CurrentRecord <> jl Then<br />   DoCmd.GoToRecord acForm, Me.Form.Name, acGoTo, jl '返回原记录号<br />End If<br />End Sub<br />Private Sub 编辑</em>Click()<br />jl = Me.CurrentRecord '记录当前记录号<br /><br />End Sub<br />Private Sub 解除_Click()<br />jl = 0<br /><br /><br />End Sub