始于问题终于代码--按条件新增记录处理方法讲解

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

     '第i条记录被选中  

    Me.Form.SelTop = i

    '如果选中的记录中状态值为正常 

    If Me.状态.Value = '正常' Then

        '选中距左侧的第4个字段               

        Me.Form.SelLeft = 4

        '退出循环                     

        Exit For                               

    End If

 Next

 End Sub

　

四、视图与实例：