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