Dim db As Database
'Dim sql As String
Set db = OpenDatabase(App.Path & "\dk.mdb")
sql = "update aa1 set aa1.职称=aa.职称 from aa where aa1.姓名=aa.姓名"
db.Execute sql

在VB中，运行上面这段代码时，系统提示“操作符丢失，在查询表达中”，怎么解决？谢谢

楼主的代码一看就知道使用的是DAO对象来操作数据库，由于对你的表结构以及各表的字段等信息不清楚，无法为你提供帮助。请你补充相关信息后再行询问。

Set td = db.CreateTableDef(mtable)
With td
     .Fields.Append .CreateField("编号", dbInteger, 3)
     .Fields.Append .CreateField("姓名", dbText, 8)
     .Fields.Append .CreateField("职称", dbText, 6)
end sub

Set td = db.CreateTableDef(mtable)
With td
     .Fields.Append .CreateField("编号", dbInteger, 3)
     .Fields.Append .CreateField("姓名", dbText, 8)
     .Fields.Append .CreateField("职称", dbText, 6)
end sub
aa表和aa1表结构都是如上面所示。谢谢

Set td = db.CreateTableDef(mtable)
With td
     .Fields.Append .CreateField("编号", dbInteger, 3)
     .Fields.Append .CreateField("姓名", dbText, 8)
     .Fields.Append .CreateField("职称", dbText, 6)
end with
aa表和aa1表结构都是如上面所示。谢谢

Private Sub Command1_Click()
Dim db As Database
Set db = OpenDatabase(App.Path + "\db.mdb")
Sql = "update aa1 set aa1.职称=aa.职称 from aa1,aa where aa1.姓名=aa.姓名"
db.Execute Sql
End Sub

你好，两个表中都有数据，只是把aa1中的职称数据更新为aa中的职称，运行后，但aa.姓名是空的，而且aa.职称是空的，所以会出现操作符丢失，在查询表达式中，但我不知道怎么解决，请教高手。谢谢！

两个表中的表结构如下：
Set td = db.CreateTableDef(mtable)
With td
     .Fields.Append .CreateField("编号", dbInteger, 3)
     .Fields.Append .CreateField("姓名", dbText, 8)
     .Fields.Append .CreateField("职称", dbText, 6)
end with

有时间再给你解决，目前项目缠身，暂时没办法给你解决，请稍安勿燥。

我自己已经解决了。