Ms Access AfterUpdated() Copy textbox如何的做法?

程家伟

Private Sub Item_No_AfterUpdate()
  Dim temp As String

  temp = [Forms].[Cover_Subform].[Title]
  [Forms].[Cover_Subform].[Title_No] = temp
  End Sub

  不知这样做可以吗?

  然后它出来是

  Runtime Error '438'
  Object does't support this propety or method.

然后我又把它改为感叹号
Private Sub Item_No_AfterUpdate()
Dim temp As String

temp = [Forms]![Cover_Subform]![Title]
[Forms]![Cover_Subform]![Title_No] = temp
End Sub

然后又出现
runtime error '2450'
Microsoft Office Access can't find the form 'cover_subform' reffered to in a macro expression or visual basic code.

怎样呢?

[ 本帖最后由 程家伟 于 17-3-2007 11:04 AM 编辑 ]