Text11是显示现在的日期和时间，跟原来的记录没关系

Text11显示的是现在的日期与时间，跟原来的记录没关系。
如果是增加记录，好似语句不是这的。

Private Sub Command1_Click()　　　　’添加新记录，把所有原来的记录清空
    Text1.SetFocus
    Text1 = "": Text2 = "": Text3 = "": Text4 = "": Text5 = "": Text6 = "": Text7 = "": Text8 = "": Text9 = "": Text10 = ""
 End Sub

添加多一个控件
Private Sub Command3_Click()　　‘确定增加新记录
    Adodc1.Recordset.AddNew
            With Adodc1
               .Recordset("文件名") = Trim$(Text1.Text)
               .Recordset("日期") = Date & "/" & Time　　　’按这种方式填入其他的记录就可以了，不清楚你的数据库字段名，自己填吧。text11可以不要。
               .Recordset("存档合号") = Trim$(Text2.Text)
               .Recordset("本合序号") = Trim$(Text3.Text)
               .Recordset("备注") = Trim$(Text4.Text)
               .Recordset.Update
            End With
End Sub





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

收到的鲜花

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