请教两个问题附代码,在线等回复!谢谢!

hlaill

我做了个改变按键颜色的窗口,窗口里有很多按钮,有三个复选框,复选框分别有绿色红色黄色三种颜色选择,选择颜色后点按钮可以改变按钮对应的颜色,但有两个问题:
其中之一:
    复选框不能单一选择,也就是说,选了一个可以选第二个,第三个,不是只能选一个.
第二个问题:
    改变了按钮颜色之后,关闭窗口再次进入进,按键变回最初的颜色,没有保存三种颜色的效果.
以下是其中之一按钮的代码:
    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

1. 请用选项组控件
2. 用vba赋值并不保存

hlaill

有什么办法可以保存?可以具体说明吗?谢谢!

Henry D. Sy

用表来保存颜色值

hlaill

请问有教程事例吗?我是新手~谢谢了!

Henry D. Sy

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

更改一下

Private Sub Form_Load()
    Me.Command9.ForeColor = DLookup("lval", "表1", "id=4")
    Me.Frame0 = DLookup("id", "表1", "lval=" & Me.Command9.ForeColor)
End Sub

hlaill

先谢谢了!Henry D. Sy

hlaill

请问如果我想多命令按钮都有改变颜色的功能由如何实现呢？
Me.Command9.ForeColor = DLookup("lval", "表1", "id=4")现在只能改变Command9这个按钮的颜色哦。如果难的希望能有事例谢谢！

szcid051319

好好学习了。