[求助]海狸先生:)

nnlm

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

[此贴子已经被作者于2005-5-9 15:55:44编辑过]

mhaibo

什么意思？

nnlm

就是我把代码
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
Next ObjA

'if obja ObjA.DefaultValue = ObjA.Text
End Sub
复制到第一次传给你的文件里（代码区域）

上面的文件是我根据你给的程序代码改的，希望你能帮助我核对以下错误的原因所在，以便于以后移植，谢谢！！！！！

mhaibo

以后上传文件不用新开贴子的，你不要用快速回复，用贴子上面的回复贴子功能就可以　上传文件了

nnlm

真不好意思老是打扰你，不过我太想弄明白了，谢谢！！！！！

nnlm

明白了谢谢！！