[版主请进]窗体打开时禁止编辑,如何让其中几个非绑定文本框允许编辑呢?

fatmingli

窗体只读打开，要求窗体中的文本框Text1-7为可编辑、可见
Private Sub Form_BeforeUpdate(Cancel As Integer)
   Me.AllowEdits = False
   Me![状态].Caption = "（只读）"
   Dim i As Integer
   For i = 1 To 7
        Me("Text" & i).Visible = true
        如何定义Me("Text" & i)为可编辑呢?用Me("Text" & i).AllowEdits =true系统通不过
   Next i
End Sub

谢谢!

[ 本帖最后由 fatmingli 于 2008-9-27 19:25 编辑 ]

fatmingli

这么多天，请各位大哥大姐帮一下
请各位高手低手扶一下
请各位版主擂台回一下
我就谢谢谢谢！

fatmingli

看来是没有其他办法了。
谢谢！

kevindeng

Me.AllowEdits =False以后,窗体上的所有文本框都不能编辑了.

[ 本帖最后由 kevindeng 于 2008-10-7 08:44 编辑 ]

xinle

针对控件应该用"锁定"或使其无效""