设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

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

[Access本身] 请教两个问题附代码,在线等回复!谢谢!

[复制链接]
跳转到指定楼层
1#
发表于 2009-5-25 13:38:01 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
我做了个改变按键颜色的窗口,窗口里有很多按钮,有三个复选框,复选框分别有绿色红色黄色三种颜色选择,选择颜色后点按钮可以改变按钮对应的颜色,但有两个问题:
其中之一:
    复选框不能单一选择,也就是说,选了一个可以选第二个,第三个,不是只能选一个.
第二个问题:
    改变了按钮颜色之后,关闭窗口再次进入进,按键变回最初的颜色,没有保存三种颜色的效果.
以下是其中之一按钮的代码:
    Private Sub Command0_Click()
    If Check0.Value = -1 Then
        Me.Command0.ForeColor = 65280
    ElseIf Check2.Value = -1 Then
        Me.Command0.ForeColor = 255
    ElseIf Check4.Value = -1 Then
        Me.Command0.ForeColor = 65535
    End If
End Sub
我的想法是再建立一个命令按键为:确定保存,但不知道应该用什么代码才能保存,我试了以下命令但没有效果:
  Private Sub Command6_Click()
      DoCmd.Close , , acSaveYes
  End Sub
请高手指点并给出代码方案.谢谢!
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
发表于 2009-5-25 14:07:09 | 只看该作者
1. 请用选项组控件
2. 用vba赋值并不保存
3#
 楼主| 发表于 2009-5-25 15:32:34 | 只看该作者
有什么办法可以保存?可以具体说明吗?谢谢!
4#
发表于 2009-5-25 15:45:03 | 只看该作者
用表来保存颜色值
5#
 楼主| 发表于 2009-5-25 15:52:26 | 只看该作者
请问有教程事例吗?我是新手~谢谢了!
6#
发表于 2009-5-25 16:17:15 | 只看该作者
Private Sub Form_Load()
    Me.Command9.ForeColor = DLookup("lval", "表1", "id=4")
End Sub

Private Sub Frame0_Click()
    Dim lngColor As Long
    Dim strSQL As String
    lngColor = DLookup("lval", "表1", "id=" & Me.Frame0)
    Me.Command9.ForeColor = lngColor
    strSQL = "update 表1 set lval=" & Me.Command9.ForeColor & " where id=4"
    CurrentDb.Execute strSQL
End Sub

本帖子中包含更多资源

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

x
7#
发表于 2009-5-25 16:28:13 | 只看该作者
更改一下

Private Sub Form_Load()
    Me.Command9.ForeColor = DLookup("lval", "表1", "id=4")
    Me.Frame0 = DLookup("id", "表1", "lval=" & Me.Command9.ForeColor)
End Sub
8#
 楼主| 发表于 2009-5-26 20:08:55 | 只看该作者
本帖最后由 hlaill 于 2009-5-27 11:52 编辑

先谢谢了!Henry D. Sy
9#
 楼主| 发表于 2009-5-27 11:55:05 | 只看该作者
本帖最后由 hlaill 于 2009-5-27 11:56 编辑

请问如果我想多命令按钮都有改变颜色的功能由如何实现呢?
Me.Command9.ForeColor = DLookup("lval", "表1", "id=4")现在只能改变Command9这个按钮的颜色哦。如果难的希望能有事例谢谢!
10#
发表于 2009-7-13 15:07:16 | 只看该作者
好好学习了。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-11-15 09:59 , Processed in 0.100660 second(s), 34 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

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