[菜鸟入门]用组合框实现选择男女的方法
来源:www.accessoft  点击数:927　评论 | 加入收藏
时　间:2009-8-23 0:12:06
作 者:麥田
摘　要:[菜鸟入门]用组合框实现选择男女的方法
正　文:
      此方法通过设置组合框值列表原理实现的,下面是用设置男;女方式进行的,大家学会了原理也可以用到其他方面,比如民族、城市方面的应用
操作步骤:
1、在窗体中新建组合框→标签标题设为"性别"
2、打开组合框属性→"数据"选项页
3、行来源类型选择"值列表"
4、行来源输入:男;女  (注:是英文状态下的标点;)
5、保存窗体→运行窗体试试效果吧

另:表中也可以设置字段为组合框的
方法:
1、新建一个表→字段名"性别"→文本型
2、在下面的"常规"与"查询"属性中选择"查询"
3、显示控件设为"组合框"
4、行来源类型选择"值列表"→行来源输入textbox控件边框设置:男;女  (注:是英文状态下的标点;)
5、保存表→运行表试试效果吧
access解决组合框无法满足大量数据的问题
本贴来自天极网乐社区--q.yesky/group/review-17702319.html
问题：
 
  access里面有组合框，可以很快地从多行记录中选择所需要的数据。但是如果记录超过1000-2000呢？选择就非常不方便了。我该怎么办？
 
  回答：
 
  其实很多数据都可以分类（分层）来选择，而且我们可以预先筛选数据。
  以下这个示例就是用重复打开同一个窗体类来完成多层次数据的选择。
  当然，还包括预先筛选数据功能。
 
  好了，现在开始：
  1、建立一个窗体(testform)，里面有一个文本框(text0)，一个按钮(command2)。
  2、建立一个窗体(selectform)，里面有一个列表框(list0)。
  3、在testform中的文本框的“更新后”事件中写入以下代码以打开品名选择窗体(selectform)，并对其中的列表框(list0)的行来源(rowsource)进行赋值。
  private sub text0_afterupdate()
    docmd.openform "selectform"
    '这行代码就实现了btype表的模糊检索，使用的是 where 子句中的 like 关键字进行通配
    forms("selectform").wsource = "select btype.soncount, btype.usercode, btype.fullname, peid from btype where btype.fullname like '*" & text0.value & "*' "
  end sub
 
 
  4、在testform中的命令按钮的“单击”事件中写入以下代码以打开品名选择窗体，按分类检索
  5、然后再在testform中输入以下代码以完成多次打开窗体本身并显示子类中数据的功能。
  为了能够使代码重复利用，写了两个通用过程
 
  option compare database
  dim f
 
  private sub form_keydown(keycode as integer, shift as integer)
    '先设定窗体的“键预览”属性为“是”
    '本过程将加快你的输入速度
    '如果按 escape 键，就关闭窗体
    if keycode = vbkeyescape then
      closeallselectform "selectform"
    end if
  end sub
 
  private sub list0_dblclick(cancel as integer)
    checkyouselect
  end sub
 
  private sub list0_keypress(keyascii as integer)
    '本过程实现全键盘操作
    if keyascii = 13 then
      checkyouselect
    end if
  end sub
 
  sub closeallselectform(strformname as string)
    '通用过程1
    '本过程用来关闭所有的指定名称的窗体
    for each objform in forms
      if objform.name = strformname then
        docmd.close acform, objform.name
      end if
    next objform
  end sub
 
  sub checkyouselect()
    '通用过程2
    '检测你的选择
    '如果发现 suncount 列为 0（表示没有下一层了）
    '就可以把你选定的产品名称放到文本框中了
    on error resume next
    set f = new form_selectform
    dim objform as form
    lumn(0) = 0 then
      forms("testform").text0.value = lumn(2)
      closeallselectform "selectform"
    else
      f.visible = true
      wsource = "select btype.soncount, btype.usercode, btype.fullname, peid from btype where parid='" & list0.value & "'"
    end if
  end sub
本贴来自天极网乐社区--q.yesky/group/review-17702319.html

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。