只需一步,快速开始
使用道具 举报
以下是引用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
以下是引用中国人在2005-5-9 13:03:27的发言: 搞硬件的也改行做软件了,[em01]
本版积分规则 发表回复 回帖后跳转到最后一页
|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )
GMT+8, 2024-9-20 08:28 , Processed in 0.136914 second(s), 29 queries .
Powered by Discuz! X3.3
© 2001-2017 Comsenz Inc.