标题: 请教两个问题附代码,在线等回复!谢谢! [打印本页] 作者: hlaill 时间: 2009-5-25 13:38 标题: 请教两个问题附代码,在线等回复!谢谢! 我做了个改变按键颜色的窗口,窗口里有很多按钮,有三个复选框,复选框分别有绿色红色黄色三种颜色选择,选择颜色后点按钮可以改变按钮对应的颜色,但有两个问题:
其中之一:
复选框不能单一选择,也就是说,选了一个可以选第二个,第三个,不是只能选一个.
第二个问题:
改变了按钮颜色之后,关闭窗口再次进入进,按键变回最初的颜色,没有保存三种颜色的效果.
以下是其中之一按钮的代码:
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
请高手指点并给出代码方案.谢谢!作者: Henry D. Sy 时间: 2009-5-25 14:07
1. 请用选项组控件
2. 用vba赋值并不保存作者: hlaill 时间: 2009-5-25 15:32
有什么办法可以保存?可以具体说明吗?谢谢!作者: Henry D. Sy 时间: 2009-5-25 15:45
用表来保存颜色值作者: hlaill 时间: 2009-5-25 15:52
请问有教程事例吗?我是新手~谢谢了!作者: Henry D. Sy 时间: 2009-5-25 16:17
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作者: Henry D. Sy 时间: 2009-5-25 16:28
更改一下
