[求助]如何用另一表中的相关数据添加到一个表中？

ycdylrs

标题：如何用另一表中的相关数据添加到一个表中？

　　我做了个非常简单的数据库，有两个表，一个是雇员表，有如下字段：雇员姓名、职务ID。二是职务表，有如下字段：职务ID、职务。

　　我的目的是向雇员表添加记录。为数据库的安全性和操作的灵活性考虑，我不想从数据表中直接添加记录，而是建一个窗体，内有“雇员姓名”文本框、“职务”组合框以及“添加”按钮三个控件。“职务”列表框的数据源为职务表，而雇员姓名不与任何表或查询关联。想输入“雇员姓名”并在组合框选定“职务”后，用按钮“添加”将刚输入的雇员姓名和与职务相应的职务ID添加到雇员表。

我用以下代码（虽然明知是错的）：
Private Sub 添加_Click()
    Dim SQLS As String
    SQLS = "INSERT INTO 雇员表(雇员姓名,职务ID) VALUES (雇员姓名,职务ID)"
    '但是如何用 WHERE 或 JOIN ON 将[职务ID]与输入的[职务]的值关联起来呢？
    DoCmd.RunSQL (SQLS)
    MsgBox "添加成功！"
End Sub

请教高手倒底应该怎样做？
附数据库例子

iwhUvUgp.rar (12.41 KB, 下载次数: 37)

2008-3-17 00:15 上传

点击文件名下载附件
[求助]如何用另一表中的相关数据添加到一个表中？

[此贴子已经被作者于2008-3-17 0:21:58编辑过]

ycdylrs

没人帮我？自己搞定！

原来，只是我在添加雇员窗体中的雇员姓名文本框控件名没有重命名到与代码中的控件名一致．改过来就OK了！

老以为自己初学ACCESS，对自己太没信心了，居然认为自己写的代码有问题！自己夸一下自己！

本人因学习Excel编程来到这里，从前辈那里学到了非常多。真的非常感谢现想转学ACCESS，不过人气不太旺啊！希望一路互相搀扶着前行。我的QQ:236767017