设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

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

[查询] 我这个子窗体怎么冒出这么多上下箭号了?

[复制链接]
跳转到指定楼层
1#
发表于 2008-4-13 15:24:30 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
有两个问题。
1、“分类”字段冒出这么多个箭号出来
2、当子窗体没有记录时,会弹一个提示错误的对话框,,如何避免了?

Option Compare Database
Dim dj As Boolean '用于字段排序
======================================================
Private Sub Form_Click() '用于字段排序
Dim ctrl As Control
For Each ctrl In Me.Controls
If TypeOf ctrl Is TextBox Then
If Right(ctrl.Controls(0).Caption, 1) = "↓" Or Right(ctrl.Controls(0).Caption, 1) = "↑" Then ctrl.Controls(0).Caption = Left(ctrl.Controls(0).Caption, Len(ctrl.Controls(0).Caption) - 1)
End If
Next
If dj = True Then
DoCmd.DoMenuItem acFormBar, 5, 1, 1, acMenuVer70
Screen.ActiveControl.Controls(0).Caption = Screen.ActiveControl.Controls(0).Caption & "↓"
dj = False
Else
DoCmd.DoMenuItem acFormBar, 5, 1, 0, acMenuVer70
Screen.ActiveControl.Controls(0).Caption = Screen.ActiveControl.Controls(0).Caption & "↑"
dj = True
End If
End Sub

[ 本帖最后由 goto2008 于 2008-4-13 15:34 编辑 ]

本帖子中包含更多资源

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

x
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅

点击这里给我发消息

2#
发表于 2008-4-13 18:17:56 | 只看该作者
Label7 的标题 将 箭号 删除之即可
在代码中判断子窗体有否记录
3#
发表于 2008-4-13 20:05:30 | 只看该作者
因为你的分类不是文本框,所以下面的代码没起作用
If TypeOf ctrl Is TextBox Then
If Right(ctrl.Controls(0).Caption, 1) = "↓" Or Right(ctrl.Controls(0).Caption, 1) = "↑" Then ctrl.Controls(0).Caption = Left(ctrl.Controls(0).Caption, Len(ctrl.Controls(0).Caption) - 1)
End If
改为文本框就行了
4#
发表于 2008-4-13 21:53:58 | 只看该作者
........

本帖子中包含更多资源

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

x
5#
 楼主| 发表于 2008-4-13 22:17:49 | 只看该作者
如果我的子窗体的“分类”字段必须是组合框,怎么办??
6#
发表于 2008-4-13 23:32:53 | 只看该作者
If TypeOf ctrl Is TextBox Or TypeOf ctrl Is ComboBox Then
7#
 楼主| 发表于 2008-4-14 08:26:50 | 只看该作者
谢谢fswxs大哥。。。可以了
8#
 楼主| 发表于 2008-5-7 16:03:36 | 只看该作者
我想再继续请教个问题...

层名称,    分类,   层工价

我只想实现,,
单击“层名称”..和“层工价”-----------------会进行排序
如果单击“分类”---------------------------------不会进行排序,即没任何反映
9#
发表于 2008-5-7 20:26:04 | 只看该作者
在前面加一句
If Screen.ActiveControl.Controls(0).Caption = "分类" Then Exit Sub
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-11-1 07:19 , Processed in 0.105956 second(s), 33 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

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