【access小品】始于问题终于代码－－－按条件新增记录处理方法讲解-煮江品茶专栏

　　最近有些初学者版友在阅读【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

　　四、视图与实例

点击下载此附件