Office中国论坛/Access中国论坛

标题: 新手求助！run time error '1004' [打印本页]

作者: cbweixin 时间: 2006-7-12 18:08
标题: 新手求助！run time error '1004'
我今天刚开始学vba，照着书上打了一个程序，程序代码如下：

Private Sub CommandButton1_Click()
Range("D8").Select
Selection.End(xlDown).Select
Selection.End(xlToLeft).Select

ActiveCell.Offset(1, 0).Range("A1") = TextBox1.Text
ActiveCell.Offset(1, 0).Range("B1") = TextBox2.Text
ActiveCell.Offset(1, 0).Range("C1") = TextBox3.Text
ActiveCell.Offset(1, 0).Range("D1") = TextBox4.Text
ActiveCell.Offset(1, 0).Range("E1") = TextBox5.Text

End Sub

Private Sub CommandButton2_Click()
End
End Sub

Private Sub CommandButton3_Click()
TextBox1.Text = "88"
TextBox2.Text = "Michael"
TextBox3.Text = "123455"
TextBox4.Text = "1322"
TextBox5.Text = "Record for test"
End Sub

当我运行时，报错： run time error '1004' application-defined or object-defined error , debug 时，显示这一行有错：
ActiveCell.Offset(1, 0).Range("A1") = TextBox1.Text

不知道谁能指点一下，困惑好久了。不胜感谢。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)