Function closereport()
DoCmd.Close acReport, "报表测试", acSaveNo
End Function 作者: 周运良 时间: 2005-5-7 05:46
Private Sub 命令测试_Click()
DoCmd.SetWarnings False
'定义控件及控件长度信息并赋值
Dim col1 As Control
Dim myleft As Long
Dim mytop As Long
Dim mywith As Long
Dim myheight As Long