Private Sub Command1_Click()
    Adodc1.Recordset.AddNew
    Text1.SetFocus
    Text1 = "": Text2 = "": Text3 = "": Text4 = "": Text5 = "": Text6 = "": Text7 = "": Text8 = "": Text9 = "": Text10 = ""
    Text11 = Date & "/" & Time
End Sub

Private Sub Command2_Click()
    Adodc1.Recordset.Delete
End Sub

Private Sub Command4_Click()
    If Adodc1.Recordset.BOF Then
        Adodc1.Recordset.MoveFirst
        MsgBox "已经是第一条了", vbOKCancel, "提示"
    Else
        Adodc1.Recordset.MovePrevious
    End If
End Sub

Private Sub Command5_Click()
    If Adodc1.Recordset.EOF Then
        Adodc1.Recordset.MoveLast
        MsgBox "已经是最后一条了", vbOKCancel, "提示"
    Else
        Adodc1.Recordset.MoveNext
    End If
End Sub

Private Sub Command6_Click()
    Adodc1.Recordset.Update
End Sub

Private Sub Command7_Click()
    End
End Sub

Private Sub Form_Load()
    Adodc1.Visible = False
    Adodc1.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0 ; Data source =" & App.Path & "\可燃气体与有毒气体.mdb "
    Adodc1.RecordSource = "select * from 气化可燃气体与有毒气体"
    Adodc1.Refresh
    = adCmdUnknown
    Set Text1.DataSource = Adodc1
    Set Text2.DataSource = Adodc1
    Set Text3.DataSource = Adodc1
    Set Text4.DataSource = Adodc1
    Set Text5.DataSource = Adodc1
    Set Text6.DataSource = Adodc1
    Set Text7.DataSource = Adodc1
    Set Text8.DataSource = Adodc1
    Set Text9.DataSource = Adodc1
    Set Text10.DataSource = Adodc1
    Set Text11.DataSource = Adodc1
   
    Text1.DataField = "ID"
    Text2.DataField = "设备编号"
    Text3.DataField = "类型"
    Text4.DataField = "位号"
    Text5.DataField = "所在位置"
    Text6.DataField = "一阶报警点"
    Text7.DataField = "二阶报警点"
    Text8.DataField = "ScaleL"
    Text9.DataField = "ScaleH"
    Text10.DataField = "信道"
    Text11.DataField = "添加时间"
End Sub

求大神指点

这问题我正好碰到过，其实问题很简单，是你调用多个表的数据造成的，导致刷新出错

没有啊 我只调用了一个表啊

执行哪条语句时出错?

执行刷新的时候“adodc1.recordset.update”

重新看了你的代码  个人认为应该是你的adodc1绑定了多个text有关
刷新的时候产生了多步刷新text这个错误

应该是一个表一个控件
一对一的关系
你的是一个表多个控件
一对多的关系

我的错误提示和你差不多
我是多个表一个控件
多对一的关系

终于发现问题了  是因为在ADD.NEW中已经给TEXT11赋值了 再添加数据库时就出错了  但是怎么改我就不知道了

出错有这：
Private Sub Command1_Click()
    Adodc1.Recordset.AddNew　　　‘添加新记录内容，不应有这语句
    Text1.SetFocus
    Text1 = "": Text2 = "": Text3 = "": Text4 = "": Text5 = "": Text6 = "": Text7 = "": Text8 = "": Text9 = "": Text10 = ""
    Text11 = Date & "/" & Time
End Sub

我自己用来增加记录的代码如下：
增加记录代码如下：
          Adodc1.Recordset.AddNew
            With Adodc1
               .Recordset("文件名") = Trim$(Text1(0).Text)
               .Recordset("日期") = Trim$(Text1(1).Text)
               .Recordset("存档合号") = Trim$(Text1(2).Text)
               .Recordset("本合序号") = Trim$(Text1(3).Text)
               .Recordset("备注") = Trim$(Text1(4).Text)
               .Recordset.Update
            End With


[ 本帖最后由 chen3523 于 2014-5-7 09:59 编辑 ]

收到的鲜花

• sunguodong08 于 2014-05-07 14:18 送鲜花  3朵   附言：我很赞同

恩恩  对 我把Text11那句去掉了就好使了 但是我想在Text11处显示添加日期和时间怎么改呢  求教