求助：运行时出错380错误和2147217913(80040e07)错误

danysy

附档中的代码并不复杂了，请各位高手帮忙解决，谢谢

操作说明： 1）点附档excel中的按钮“修改”就会出现窗体“人事档案修改作业”
                  2）在窗体上输入“工号”后回车就会出现相应的人事信息(窗体调用 "db.mdb"资料)
                  3）在“窗体”上的可以修改相应的人事信息
                  4）在“窗体”上的“保存”按钮就会把窗体上的信息更新到access表“人事档案”中去


问题现象：例，在窗体的“工号”中输入 "307" 后回车出现以下两错误
               （1）txtId_Exit事件会出现运行时错误'380': 无法设置value属性。无效属性值。
                       调试发现错误出在这句上：txtDuty = Rst.Fields("职务").Value

                (2)  点“保存”后会出现运行时错误'-2147217913(80040e07)': 标准表达式数据类型不匹配
                       调试发现错误出在这句上：cnn.Excute SQL

yehf

Cnn.Open "rovider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.Path & "\DataBase.mdb" & ";Jet OLEDBatabase Password=" & "danysy"

DataBase.mdb应该改成db.mdb

danysy

不好意思，我的附档有点问题，我重新改了一下附档，请各位看最新的附档,现在新的问题应该是：

问题现象：例，在窗体的“工号”中输入 "307" 后回车出现以下两错误
               (1) txtId_Exit事件会出现“职务“无内容显示;
                 
                (2)  点“保存”后会出现运行时错误'-2147217913(80040e07)': 标准表达式数据类型不匹配
                       调试发现错误出在这句上：cnn.Excute SQL

danysy

哈哈，我自己处理好了，数据库中的日期改为文本型就可以了