精华内容
下载资源
问答
  • ACCESS 组合框 数据库编程 应用ACCESS自身实现组合框的查询 ACCESS查询窗体
  • Access学习要点1----组合框值列表原理

    千次阅读 2017-05-11 17:00:03
    今天要带本科的一门课,惭愧,现在从头开始学,新的东西,开这个系列的博客只是为了记录自己在摸索中的一些...结果百度了以后,觉得组合框值列表也可以实现这个功能,就记录下了这个点的过程。 方法: 1、新建一个表→

    今天要带本科的一门课,惭愧,现在从头开始学,新的东西,开


    这个系列的博客只是为了记录自己在摸索中的一些随笔,大神勿


    喷!!


    本来按照课本上应该学到了表的查阅和关系这个点的,也就


    是查阅向导问题,结果不知道我的Access版本问题,还是怎么


    的,反正就是出不来,我就想实现一个性别的,男女性别问题


    的。结果百度了以后,觉得组合框值列表也可以实现这个功能,


    就记录下了这个点的过程。


    方法:


    1、新建一个表→字段名"性别"→文本型


    2、在下面的"常规"与"查询"属性中选择"查询"


    3、显示控件设为"组合框"


    4、行来源类型选择"值列表"→行来源输入:男;女  (注:是英文状态下的标点;)

    5、保存表→运行表试试效果吧

    展开全文
  • Accessoft-文本框获取组合框里面指定列的数据示例
  • 微信公众号原文 系统:Windows 7 软件:Excel 2010 / Access 2010 这个系列介绍常用的控件 包括在界面端的设置及在代码端的实现 ...省组合框变化时,市组合框下拉列表随之变化 这里省组合框有3个事件,都引起市组...

    微信公众号原文

    系统:Windows 7
    软件:Excel 2010 / Access 2010

    • 这个系列介绍常用的控件
    • 包括在界面端的设置及在代码端的实现

    Part 1:本篇目标

    1. 本篇介绍的控件为:组合框。涉及功能为:两个组合框联动

    功能动图
    1.gif

    Part 2:实现功能

    1. 手动设置组合框下拉列表:广东,湖南
    2. 组合框变化时,组合框下拉列表随之变化
    3. 这里组合框有3个事件,都引起组合框下拉列表变化,包括更改键按下进入三个事件。具体哪些事件会触发,根据需要自己制定。一般来说这三种即可

    界面
    1.png

    3类事件
    2.png

    Part 3:代码

    事件代码

    Private Sub cbo1_Change()
        frmName = Me.Name
    
        Call sMod_通用库_01_零件名称下拉列表(frmName)
    End Sub
    
    Private Sub cbo1_Enter()
        frmName = Me.Name
    
        Call sMod_通用库_01_零件名称下拉列表(frmName)
    End Sub
    
    Private Sub cbo1_KeyDown(KeyCode As Integer, Shift As Integer)
        frmName = Me.Name
    
        Call sMod_通用库_01_零件名称下拉列表(frmName)
    End Sub
    
    

    实际动作

    Sub sMod_通用库_01_零件名称下拉列表(frmName)
        Dim ctrl
        Dim frm
        Dim ctrlName
        
        Set frm = Forms(frmName)
        
        Set ctrl = frm.Controls("cbo1")
        sheng = ctrl.Value
        
        ctrlName = "cbo2"
        Set cbo = frm.Controls(ctrlName)
        
        If sheng = "广东" Then
            cbo.RowSource = ""
            cbo.Value = ""
            
            arr = Array("广州", "深圳", "东莞", "佛山")
            For Each x In arr
                cbo.AddItem x
            Next
        ElseIf sheng = "湖南" Then
            cbo.RowSource = ""
            cbo.Value = ""
            
            arr = Array("长沙", "湘潭", "株洲", "郴州")
            For Each x In arr
                cbo.AddItem x
            Next
        End If
        
    End Sub
    
    

    代码截图
    3.png

    代码位置:将通用代码写在模块内了,方便代码复用
    4.png

    Part 4:部分代码解读

    1. 虽然本示例中涉及3个事件,但只是触发不一样,但引起的结果是一样的,所以将共用代码写在了模块内
    2. frmName = Me.Name,获取当前窗体名称,该代码必须放在对应的窗体中才有效

    本文为原创作品,如需转载,可加小编微信号learningBin


    更多精彩,请关注微信公众号
    扫描二维码,关注本公众号

    公众号底部二维码.jpg

    展开全文
  • 组合框的行来源如何使用参数存储过程?function addtitle(){ var straddtitle = "组合框的行来源如何使用参数存储过程?"; if (straddtitle.length!==0){ document.title=document.title + "《" + straddtitle + ...

    组合框的行来源如何使用参数存储过程?

    <script language="javascript" type="text/javascript"> function addtitle(){ var straddtitle = "组合框的行来源如何使用参数存储过程?"; if (straddtitle.length!==0){ document.title=document.title + "《" + straddtitle + "》;专题号:72FAB11E10DCE7F3"; } } </script>

     

    组合框的行来源中只能写存储过程名,无法加上参数,我们这里用值列表绕过次限制


    Public Sub CreateP2Procedure()
    '创建本示例需要用的参数存储过程
    '表名和字段名请按你的实际情况填写

        Dim strSQL As String
        strSQL = "Create Procedure procCreateMyList(@P1 int =0,@P2 nvarChar(50)='') As SELECT field1 FROM tblTable1 WHERE field2 = @P1 and field3 like @P2"
        CurrentProject.Connection.Execute strSQL
    End Sub


    Private Sub Form_Open(Cancel As Integer)
    '将本过程放在窗体的打开事件中,设定组合框的行来源

        Me.ComboBox.RowSourceType = "value list"
        Me.ComboBox.RowSource = GetRowSource("p2", 155, "%")
    End Sub


    Public Function GetRowSource(ByVal strCommandText As String, _
                          Optional ByVal varP1, _
                          Optional ByVal varP2, _
                          Optional ByVal varP3)
    '本函数作用:
    '将存储过程的执行结果转换为用分号分隔的值列表
    '现在参数是 3 个,可以更改一下,用数组来代替

        Dim Rs As New ADODB.Recordset
        Dim cmd As New ADODB.Command
        Dim prm As ADODB.Parameter
        Const DELIM As String = ";"
        With cmd
            .ActiveConnection = CurrentProject.Connection
            .CommandText = strCommandText
            .CommandType = adCmdStoredProc
        End With
        
        If Not IsMissing(varP1) Then
            Set prm = cmd.CreateParameter("P1", _
                      adInteger, adParamInput, , varP1)
            cmd.Parameters.Append prm
        End If
        If Not IsMissing(varP2) Then
            Set prm = cmd.CreateParameter("P2", _
                      adVarChar, adParamInput, 50, varP2)
            cmd.Parameters.Append prm
        End If
        If Not IsMissing(varP3) Then
            Set prm = cmd.CreateParameter("P3", _
                      adVarChar, adParamInput, 50, varP3)
            cmd.Parameters.Append prm
        End If
        
        Rs.Open cmd
        GetRowSource = ""
        If Not Rs.EOF Then
            GetRowSource = Rs.GetString(adClipString, , _
                      DELIM, DELIM)
        End If

    End Function



    access911.net 原创文章,作者本人对文章保留一切权利。
    如需转载必须征得作者同意并注明本站链接

    展开全文
  • Access VBA动态修改组合框数据源

    千次阅读 2018-04-11 15:41:05
    iamlaosong文根据输入的工厂简称动态修改发货客户和收货客户两个组合框的数据源:'输入工厂后根据工厂修改收发客户的数据源供录入选择,同时生成LoadTo Private Sub FAbbr_AfterUpdate() Me!LoadTo = Me!Load &...

    iamlaosong文

    根据输入的工厂简称动态修改发货客户和收货客户两个组合框的数据源:

    '输入工厂后根据工厂修改收发客户的数据源供录入选择,同时生成LoadTo
    Private Sub FAbbr_AfterUpdate()
        Me!LoadTo = Me!Load & "-" & Me!ToCode
        Me!SAbbr.RowSource = "SELECT SAbbr FROM tblSndClient WHERE FAbbr='" & Me!Fabbr & "'"
        Me!RAbbr.RowSource = "SELECT RAbbr FROM tblRcvClient WHERE FAbbr='" & Me!Fabbr & "'"
    End Sub
    
    注意:RecordSource是窗体或报表的数据源,RowSource则是列表框或组合框的数据源。例如:
    Private Sub Form_Load()
        Me.RecordSource = "select * from tblPart"
    End Sub



    展开全文
  • Access-控件解析-组合框-01-下拉列表

    千次阅读 2019-04-03 20:35:44
    微信公众号原文 系统:Windows 7 软件:Excel 2010 / Access 2010 这个系列介绍常用的控件 包括在界面端的设置及在代码端的实现 Part 1:本篇目标 ...本篇介绍的控件为:组合框。...应用场景,组合框的下拉...
  • Access 新手来看:如何在表中达到用组合框选择备选项目的效果 简述:如何在表中达到用组合框选择备选项目的效果 问题:这个范例就是ACCESS2002本身带有的ADDREESS表,其中,有个家庭成员的表,里面输入的时候,我发现...
  • c#的源码,扩展组合框的功能,下拉列表中可以显示多个字段,而不象系统自己的组合框只能显示一个字段
  • 易语言ACCESS多表查询例程源码,易语言ACCESS操作例程源码,初始化,记录填充组合框,取唯一文本记录,记录填充超级列表框, 系统结构: 初始化,记录填充组合框,取唯一文本记录,记录填
  • 002 双表自动查询数据(下拉列表)演示
  • AccessAccess VBA学习总结

    千次阅读 2016-08-04 09:31:01
    access具有哪些数据类型,各有什么作用 Access允许九种数据类型:文本、备注、数值、日期/时间、货币、自动编号、是/否、OLE对象、超级链接、查询向导。在表的设计视图中,每一个字段都有设计类型。  ...
  • Access2016学习5

    2017-02-06 22:09:28
    4.2 在表中输入数据 为了方便在教程后续的学习,我们需要在表中输入少量的模拟数据。在表tblCodeyg录入2条记录,如下图4-13所示: 图4-13在表tblCodeyg中录入...注意:表tblBxmx中员工姓名是组合框,来
  • 10.2.5 在组合框控件外显示组合框的列 268 10.2.6 根据用户的输入添加新的组合框选项 271 10.3 使用本机的Access选项卡控件 273 10.3.1 本机的选项卡控件概述 273 10.3.2 创建并编辑新的选项卡控件 275 ...
  • Access 2003之控件使用

    千次阅读 2007-07-18 13:25:00
    小到软件的按钮、组合框和列表框等等,大到程序的网络通讯等功能都离不开控件。下面介绍Access 2003使用控件的一些基本方法: 1.给对象添加控件 在数据库窗口中选中需要设计的对象,单击“设计”按钮在“设计...
  • Access数据类型

    万次阅读 2009-11-16 17:54:00
    关于 Access 数据库数据类型根据以下条件决定字段应使用哪种数据类型 (数据类型:决定字段可拥有的数据类型的字段特征。数据类型包括 Boolean、Integer、Long、Currency、Single、Double、Date、String 和 Variant...
  • 创建 Access 2007 表及用Access做数据库

    千次阅读 2008-03-11 22:31:00
    完成Access2007表的设计后,就可以开始创建Access2007表了,即构造每个表中的字段、定义每个字段的数据类型、设置字段的属性。 Access2007创建表分为创建新的数据库和在现有的数据库创建表两种情况。在创建新的...
  • 关于 Access 数据库数据类型

    千次阅读 2017-08-16 20:52:26
    关于 Access 数据库数据类型根据以下条件决定字段应使用哪种数据类型 (数据类型:决定字段可拥有的数据类型的字段特征。数据类型包括 Boolean、Integer、Long、Currency、Single、Double、Date、String 和 Variant...
  • ACCESS中Dlookup函数使用

    千次阅读 2021-02-27 23:27:00
    ACCESS中Dlookup函数使用 ACCESS中Dlookup函数使用 Dlookup函数,利用条件从表中筛选查找需要的单项数据,类似EXCEL中的Vlookup函数,用法简单快捷,相对SQL语句要简单。 函数用法 Dlookup(字段名,表或查询名字,...
  • Access宏学习总结

    万次阅读 2017-03-20 18:00:13
    详细了解access中的宏 什么是宏  到底什么是宏呢? 我们把那些能自动执行某种操作的命令统称为“宏”。  宏也是一种操作命令,它和菜单操作命令都是一样的,只是它们对数据库施加作用的时间有所不同,作用...
  • access vba函数

    千次阅读 2006-09-25 11:09:00
    access vba函数Abs 函数 返回参数的绝对值,其类型和参数相同。 语法Abs(number) 必要的 number 参数是任何有效的数值表达式,如果 number 包含 Null,则返回 Null,如果 number 是未初始化的变量,则返回 0。说明一...
  • access常用函数

    千次阅读 2009-12-03 12:33:00
    每个函数都可以将表达式 (表达式:算术或逻辑运算符、常数、函数和字段名称、控件和属性的任意组合,计算结果为单个。表达式可执行计算、操作字符或测试数据。)强制转换为特定的数据类型 (数据类型:决定字段可...
  • 10.2.5 在组合框控件外显示组合框的列 268 10.2.6 根据用户的输入添加新的组合框选项 271 10.3 使用本机的Access选项卡控件 273 10.3.1 本机的选项卡控件概述 273 10.3.2 创建并编辑新的选项卡控件 275 10.3.3 ...
  • Access 类型转换函数

    千次阅读 2009-09-15 12:16:00
    前言 最近一直在做Access数据导入Oracle的一个程序,尽管项目已经完成,但是有时也会遇到问题,最主要还是对Access不熟悉的原因,特别是类型转换,而这个是我这个项目中一定会遇到的。所以看到这样一篇文章挺好的,...
  • Access Sql大全

    千次阅读 2010-03-23 23:56:00
    select distinct column_name form table_name --------- distinct指定检索独有的列,不重复 select stocknumber ,stocknumber + 10 = stocknumber + 10 from table_name select stockname , stocknumber = count...
  • 优秀笔记课件——Access数据库

    千次阅读 2008-04-15 11:40:00
    Access数据库第一章 Access概述第二章 创建数据库第三章 设计Access表第四章 处理Access表的数据第五章 排序、查找数据第六章 创建查询对象第七章 熟悉和使用操作查询对象第八章 报 表33第一章 Access概述• Access...
  • 有了这些,您就可以完全从代码中动态填充组合框或列表框,其多功能性超出了简单静态列表所能提供的范围。 它们可能很难被抓住,但是,一旦您掌握了该技术,无论它们多么复杂,它们都可以满足几乎任何需求。 本...
  • access数据类型转换

    千次阅读 2017-11-12 00:00:59
    每个函数都可以将表达式 (表达式:算术或逻辑运算符、常数、函数和字段名称、控件和属性的任意组合,计算结果为单个。表达式可执行计算、操作字符或测试数据。)强制转换为特定的数据类型 (数据类型:决定字段可...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 30,592
精华内容 12,236
关键字:

access如何获取组合框的值