Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-教程

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

时 间:2011-01-04 10:53:18
作 者:todaynew   ID:10802  城市:武汉
摘 要:按条件新增记录处理方法讲解
正 文:

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

  四、视图与实例

点击下载此附件

 

 



Access软件网QQ交流群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助