为新手详解返回修改记录的原始定位的实现
时 间:2019-11-02 12:12:50
作 者:朱朱 ID:8813 城市:上海
摘 要:本文将为新手详解返回修改记录的原始定位的实现
正 文:
首先,主子窗体进行一个表的数据的增删改就不必多说了。需要完成本功能的实现,请先按如下的步骤进行,后面会详解原理。
1)定义一个模块,并在此模块中定义一个全局的公共的变量
Public g_CurrentId As String '用来保存所要修改的记录的主键id值
2)在打开编辑窗体的按钮中OpenForm方法最后将要修改的记录的id值传递给编辑窗体。
Private Sub cmdEdit_Click()
If Not Me.sfrList.Form.CurrentRecord > 0 Then Exit Sub
Me.sfrList.SetFocus
RunCommand acCmdSelectRecord
DoCmd.OpenForm FormName:="frm供应商资料_Edit", _
DataMode:=acFormEdit, wherecondition:="供应商编号=" & Me.sfrList![供应商编号], _
OpenArgs:=Me.sfrList![供应商编号]
'传递要修改的记录的主键id值
End Sub
3) 在编辑窗体的Load事件中,得到传递过来的值,并赋值给全局变量g_currentId
Private Sub Form_Load()
bSaveFlag = False
'将要修改的主键id值保存至全局变量中去
If Not IsNull(Me.OpenArgs) Then
g_CurrentId = Me.OpenArgs
End If
End Sub
4) 在编辑窗体的保存按钮中设置主窗体中的数据表子窗体的计时器间隔为300毫秒
Forms("FrmOpen").sfrList.Form.TimerInterval = 300
5) 在数据表子窗体的Timer事件中进行判断,如果g_CurrentId不为空,则调用窗体recordSet对象的findFirst 方法进行查找,该方法的第一个参数是类似where条件的字符串,调用该方法如果找到了那条记录,它还会帮助我们自动定位到那条记录,这也是本功能能得以实现的关键所在。
Me.Recordset.Findfirst "[供应商编号]=" & g_CurrentId
千万注意,最后一定要记得将计时器的间隔设为0
最后总结一下, 其实现思路就是:定义公共变量用于保存要修改的记录的id值,编辑窗体保存数据并关闭后,启动主窗体中数据表子窗体的Timer事件,之所以能启动这一事件是因为设置了TimerInterval=300这个属性的值,最后在Timer事件中调用recordSet对象的findFirst方法进行查找并定位,从而这个功能就得以实现了,具体可以结合示例进行学习。
附 件:
Access软件网QQ交流群 (群号:54525238) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access高效办公】统计当...(06.30)
- 【Access高效办公】用复选...(06.24)
- 根据变化的日期来自动编号的示例...(06.20)
- 【Access高效办公】按日期...(06.12)
- 合并列数据到一个文本框的示例;...(05.06)
- 通过命令按钮让Access列表...(04.24)
- 【Access高效办公】统计当...(03.11)
- 【Access Inputbo...(03.03)
- 按回车键后光标移动到下一条记录...(02.12)

学习心得
最新文章
- Access快速开发平台--执行有...(07.03)
- 【Access高效办公】统计当月之...(06.30)
- 【Access高效办公】用复选框控...(06.24)
- 根据变化的日期来自动编号的示例;根...(06.20)
- Access快速开发平台--Acc...(06.16)
- 【Access高效办公】按日期区间...(06.12)
- Access快速开发平台--生成复...(06.07)
- 仓库管理实战课程(25)-导航菜单...(06.06)
- 仓库管理实战课程(24)-库存月结...(06.05)
- 分享一个简单的X氏家谱小示例(06.04)