Office中国论坛/Access中国论坛

标题: 动态按钮闪烁问题 [打印本页]

作者: wgf2005 时间: 2005-3-25 03:17
标题: 动态按钮闪烁问题
专家给看看[attach]9579[/attach]

作者: Trynew 时间: 2005-3-25 17:30
[attach]9585[/attach]

1、按钮闪烁问题：在鼠标移动事件中改变控件的属性前先判断一下是否需要改变：

Private Sub 主体_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Me.a1.Visible = False Then Me.a1.Visible = True

If Me.b1.Visible = False Then Me.b1.Visible = True

If Me.c1.Visible = False Then Me.c1.Visible = True

If Me.d1.Visible = False Then Me.d1.Visible = True

End Sub

2、结果为空时不导出：用Dcount函数判断一下记录数，为0时不导出：

Private Sub Command17_Click()

If DCount("*", "查询1") = 0 Then

MsgBox "没有数据,请输入合适的查询条件"

Else

DoCmd.TransferSpreadsheet acExport, 8, "查询1", "c:\01.xls", True, ""

MsgBox "生成报表成功"

End If

End Sub

另外：a2、b2等的可见性不需改变，还有就是你的代码没有缩进，变量名没有按命名规则定义，没有设置强制声明变量，这是一个基本的编程要求，需养成习惯。

最后，你的主窗体作的挺漂亮，相应的子窗体也要“美容”一下，做成风格一致。

希望以上能对你有所帮助 [em07]

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)