access开发教程第4章第6节-麥田专栏

4.6 返回修改记录的原始定位

     第一：进入 variable 模块的代码编辑界面，输入以下代码：
     '文本型变量
     Public g_CurrentSelectStrID As String
     完成之后如下图所示：

第二：在设计视图打开 frmyg_child 窗体，之后打开该窗体的属性，选择事件选项卡，如上一节所述，进入计时器触发（把滚动条向下拉，就会看到计时器触发事件）的代码编辑页面，如下图所示：

     在鼠标光标处，输入以下代码：
     Acchelp_FindstrRecord (g_CurrentSelectStrID)
    '计时器执行一次后不再执行
     Me.TimerInterval = 0
     第三：进入 frmyg_child_Edit 窗体的设计视图，按以下路径定位：视图 (V), 代码 (C) ，进入该窗体的代码页面，如果你是按照本教程练习下来的话，会看到有这样的三行代码：
     Private Sub Form_Load()
          Me.RecordSource = "Select * FROM tblCodeyg Where ygId = '" & selectstr & "'"
     End Sub
     如上所示，在第二行和第三行中加这样一行代码：
     g_CurrentSelectStrID = selectstr
     完成之后如下图所示：

如上图所示，大家会看到这一行代码：

     其实，这一行代码，本来应该在这一步才应该添加的，在上一节中，为了减少本节的叙述，我在上一节中就直接添加上了。
     第四：现在我们就可以试验一下效果，切换到控制面板，进入员工姓名，我们现在就李四这一数据修改为：李三，输入之后单击关闭按钮，则会返回修改的记录，比上一节的效果好了很多，可以确认修改是否正确，这在记录比较多的时候，是很有用处的，如下图所示：