请教:用程序设置窗体格式产生错误

kennylee

在共用模快设置 frmset,以获取每个窗体的统一格式.

但测试时,以下仅蓝色部分却出现"你不能将数值指定给这个对象"的错误.

请指点,谢谢!


Public Sub frmset(frm As Form)
frm.PopUp = True '弹出
frm.BorderStyle = 1 '细边框
frm.AutoResize = True '自动调整
frm.AutoCenter = True '自动居中

frm.ScrollBars = 0 '滚动条
frm.RecordSelectors = False '记录选择器
frm.NavigationButtons = False '导航按钮
frm.DividingLines = False '分隔线
End Sub

窗体调用

Private Sub Form_Open(Cancel As Integer)
Call frmset(Me)

End Sub

fan0217

这就是我想给你的答案.所以要打算生成MDE就不能采用这种方法.

[此贴子已经被作者于2006-4-21 22:18:39编辑过]

andymark

MDE禁止用户修改窗体,在MDE中执行会发生错误

fan0217

这种方法会不会在MDE中失效呢?

andymark

你不能在打开窗体的事件中设置这些参数,必须在设计模式中才能改变

Private Sub Command0_Click()
DoCmd.OpenForm "Test", acDesign, , , , acHidden
With Form_Test

.PopUp = True '弹出
.BorderStyle = 1 '细边框
.AutoResize = True '自动调整
.AutoCenter = True '自动居中

.ScrollBars = 0 '滚动条
.RecordSelectors = False '记录选择器
.NavigationButtons = False '导航按钮
.DividingLines = False '分隔线
End With
DoCmd.Save acForm, "test"
DoCmd.OpenForm "test"
End Sub

kevinch

顶上去,明再来看答案.