可敬的海狸先生:)

nnlm

我还是做不来！

中国人

搞硬件的也改行做软件了，[em01]

mhaibo

以下是引用nnlm在2005-5-9 12:48:33的发言：


Private Sub Form_AfterUpdate()'窗体更新后事件发生，主要是考虑到你的控件多，所以我用循环来实现了）
Dim ObjA As Access.Control
Dim a As String
For Each ObjA In Me.Controls'在窗体所有控件中查找

If ObjA.ControlType = acTextBox And ObjA.Name <> "id" Then Me(ObjA.Name).DefaultValue = Me(ObjA.Name).Value

'所以控件类型＝文本框，并且名称不等于id(因为id是自动编号，没有必要处理）

那么控件的默认值等于控件的当前值
Next ObjA

End Sub

如果你还看不懂，建议多多学习vba

mhaibo

以下是引用中国人在2005-5-9 13:03:27的发言：
搞硬件的也改行做软件了，[em01]

硬件也需要软件支持啊，呵呵

nnlm

多谢大侠指点，以后一定好好学习！！！

nnlm

本人愚笨，把您给的文件里的代码复制了一份到我原来的里面，可是不知为什么还是不行，我都一个字母一个字母的对过了，敬请指教!!!!如果只要求一个字段（字段1）实现默认输入该如何做？？？？

mhaibo

你把你原先写在字段属性中的语句去掉

如果是一个字段

Private Sub 字段1_AfterUpdate()
字段1.DefaultValue = 字段1.Value
End Sub