Office中国论坛/Access中国论坛

标题: 【Access小品】始于问题终于代码－－－按条件新增记录处理方法讲解 [打印本页]

作者: todaynew 时间: 2011-1-4 10:57
标题: 【Access小品】始于问题终于代码－－－按条件新增记录处理方法讲解
本帖最后由 todaynew 于 2011-1-4 11:09 编辑

　　最近有些初学者版友在阅读【Access小品】后，提出想要对模块或者代码的说明。对于模块相对较多，代码较为复杂的，编写注释将是一项很费功夫的事情，所以无法满足版友们的需要。倒是有些小的实例，可以进行这个工作。而且也就是简单的问题进行这项工作，可以让初学的版友了解到我处理问题的基本方法（再一次强调我的处理不是最规范的），从而有些借鉴。以下这个实例是版友子煜同志提出的，以此为基础做如下讲解：

　　一、版友子煜同志的问题：
　　“当添加子窗体新记录，也就是鼠标单击“产品编号”框，准备录入新记录时，这时候判断，如果以上记录状态有一项为“正常”将弹出提示，不能新增，并焦点到状态为“正常”那一笔记录的“状态”栏位。如果以上记录都为“停止”状态，那么可以正常添加数据。”

　　二、问题分析与对策：
　　1、点击“产品编号”的动作，可视为使“产品编号”获得焦点，因此用控件的获得焦点事件来处理；
　　2、该问题存在两个判断：其一是光标是否落入了新记录？其二是子窗体的状态字段中是否存在"正常"的值？第一个判断大体可以用三种方法解决：其一是产品编号是否为null值；其二是窗体记录是否为EOF;其三是窗体记录是否为新记录。第二个判断大体可以用两种方法解决：其一是直接搜索窗体的控件值（用seltop和me.状态）检查是否存在某一特定值；其二是用Dcount函数或者Dlookup函数对数据表计算是否存在某特定值。
　　3、将焦点停留在某条记录的某个字段上，实际就是在窗体内对记录和字段的选择。解决这个问题可以用seltop和selleft。

　　三、代码的实现
　　基于对问题的分析，决定采用相对简洁的代码处理此问题，以下代码为了解决一行的排列长度问题，采用了若干过渡变量，实际编写时，可不必这些变量（如n、str等）代码如下：
Private Sub 产品编号_GotFocus()
Dim n As Long
Dim str As String
If Me.Form.NewRecord Then                   '是否为新纪录
   '取得父窗体中订单号
str = Me.Parent.Form.Controls("订单号").Value
'计算状态为正常的记录数
n = DCount("*", "表2", "订单号='" & str & "' and 状态='正常'")
If n > 0 Then
      MsgBox "不能新增！"
      Call 定位                            '调用子程序
End If
End If
End Sub

Sub 定位()
Dim i As Long
For i = 1 To Me.Form.RecordsetClone.RecordCount  '在窗体记录数范围内循环
Me.Form.SelTop = i                         '第i条记录被选中
If Me.状态.Value = "正常" Then             '如果选中的记录中状态值为正常
      Me.Form.SelLeft = 4                   '选中距左侧的第4个字段
      Exit For                               '退出循环
End If
Next
End Sub

　　四、视图与实例

[attach]44581[/attach]

作者: tmtony 时间: 2011-1-4 12:35
收藏了.

作者: xuwenning 时间: 2011-1-4 13:42
谢谢分享
收藏了

作者: 好运牛 时间: 2014-5-9 20:48
高，实在是高。谢谢分享

作者: snow0011 时间: 2014-6-16 21:47
Mark 一下，再来学习

作者: mackle 时间: 2015-3-9 13:16
很有用的东东。谢谢分享！

作者: zjsyhqy 时间: 2016-1-12 00:24
感谢

作者: zjsyhqy 时间: 2016-1-12 00:24
好棒

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)