出错代码就是我下面标记的那一行
If s1.EOF = True Then
DataENV.rsshebeimingxibiao.AddNew
With DataENV.rsshebeimingxibiao
.Fields("设备代号") = Text1.Text
.Fields("设备名称") = Text2.Text
.Fields("价格") = Text3.Text
.Fields("购买日期") = Text4.Text
.Fields("使用情况") = Text5.Text
.Update
End With
价格我设的是货币型
购买日期我设的是日期型
我要是把elds("价格") = Text3.Text改成 .Fields("价格") = val(Text3.Text)
错误就又出现在Fields("购买日期") = Text4.Text这一行
错误提示是一样的

我照你的方法做了!
可是新的问题又出现了
说类型不匹配
错误提示停留在 .Fields("价格") = Text3.Text这一行
我若把它改成.Fields("价格") = ccur(Text3.Text)就又会说是上面的错误:多步操作产生错误,请检查每一步的状态值
麻烦你帮我看看
谢谢了