设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 1761|回复: 2
打印 上一主题 下一主题

[窗体] 2个关于窗体的问题,请高人指点。

[复制链接]
跳转到指定楼层
1#
发表于 2015-10-25 22:10:07 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
2个关于窗体的问题,请高人指点。

查询窗体中,下面2个问题。请指点下,非常感谢!

1. 组合框中 如何添加“全部” (现在按照region可以用来控制显示的内容,想增加查询全部这个选项)

2.窗体最下方的文本框,想统计并显示上面查询结果中记录条数。





本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
发表于 2015-10-26 12:08:40 | 只看该作者
个人建议不要加“全部”。因为加“全部”就必须成改值列表,需要写更多的代码。
改为不选时显示全部,选择后显示所选的会更好一些,详细可参考刘小军常用窗体查询实例。
尽管如此,我还是加“全部”做了一个案例,请自行下载附件参考。

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
3#
 楼主| 发表于 2015-10-26 20:32:01 | 只看该作者
roych 发表于 2015-10-26 12:08
个人建议不要加“全部”。因为加“全部”就必须成改值列表,需要写更多的代码。
改为不选时显示全部,选择 ...

谢谢版主的耐心指点,所建议的刘晓军例子自己先搜下学习下。
自己的要求的确需要增加Form_Load时间代码(也比较复杂)。
不过,你给的如下代码可以完全满足自己的期望,从学习角度来说也是不错的例子,消化中。

不懂再来请教,非常感谢!


Option Compare Database

Private Sub Combo0_AfterUpdate()
Dim qry As DAO.QueryDef
Set qry = CurrentDb.QueryDefs("查询1")
If Me.Combo0 = "全部" Then
    qry.SQL = "SELECT region FROM Data"
   

Else
    qry.SQL = "SELECT region FROM Data where region='" & Me.Combo0 & "'"

End If
Me.child.SourceObject = "查询.查询1"
Me.Text3 = Me.child.Form.Recordset.RecordCount
End Sub



Private Sub Form_Load()

Dim rst As New ADODB.Recordset
Dim strSource As String
rst.Open "SELECT DISTINCT region FROM Data ORDER BY region", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
strSource = rst.GetString(, , , ";")
rst.Close
Me.Combo0.RowSourceType = "Value List"
Me.Combo0.RowSource = strSource & "全部;"
End Sub
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-18 03:33 , Processed in 0.091653 second(s), 27 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表