frm员工信息 主窗体里加上这段代码就行了 Private Sub 补全拼音码_Click() DoCmd.RunSQL "update tbl员工信息表 set 拼音码=pinyin(人员) where 拼音码 is null" Me.RefreshDataList '刷新窗体 End Sub