书上的问题

cmwcg

我刚开始学Access，使用的教材是韩泽坤先生主编的《Access2003公司数据库管理综合应用》，学到第四章创建“职员基本资料管理”窗体时，书上的内容让我非常迷惑：第119页图4-29中使用的是“职员基本资料管理表”创建的窗体，而图4-30中，窗体的内容变成招聘板块的内容，也就是“职员ID”变成了“应聘人员ID”，同时，后面的“存入档案”控制按钮的程序也是写的“应聘人员ID”，而子窗体中的内容又是职员管理表中的内容，那位大侠知道究竟是咋回事的，请指点指点，多谢了。

tmtony

这有可能是 书中的小错，可看看有没有勘误表
正常窗体的内容与绑定的数据表相关。

cmwcg

谢谢tmtony管理员！
该例题是个人事管理系统，由招聘和员工资料管理两部分构成，上面提到的职员基本资料表实际上是来自招聘管理部分的应聘人员基本资料表，项次完全一样，只是把应聘人员ID改成了职员ID，应聘部门ID改成了部门，在招聘板块中，应聘人员ID是文本，职员基本资料中，职员ID是自动编号，招聘管理中有个录用人员基本资料查询，职员基本资料表的数据应该是从这个表中过来的，请你帮我分析一下，应该是咋会事，麻烦了。

Henry D. Sy

估计是查阅列的问题，

tz-chf

直接问作者

wu8313

从你描述看来：应聘人员基本资料表 和 职员基本资料表 应该建立了表关系，看看表间关系设怎么设定的。
供参考。

cmwcg

谢谢各位，今天去书店，查到另外一本书，完全用的这个案例，确实是书错了，职员基本资料窗体是用的招聘模块的录用人员查询这张表，其子窗体是用的职员基本资料这张表，建起了，但又出了新的问题，窗体有个存入档案按钮，VBA中有个语句是：STemp= "insert into 职员基本资料",后面就是相关的资料项，运行是说insert into语句的语法错误，请大专家指教，该语句错在哪里，  谢谢

cmwcg

为了专家能够明白我的问题，我把做的这个联系发在这里，就是职员基本资料管理那个窗体，当点击“存入档案”这个按钮时，就提醒insert into语句错误， 请指教
[code][/code]Private Sub 存入档案_Click()
On Error GoTo Err_存入档案_Click
'定义保存"查询语句"的字符型变量
Dim STemp As String
'判断"应聘人员ID"组合框是否为空
If Me![应聘人员ID] <> "" Then
'为基本资料信息"查询语句"字符变量赋值
    STemp = "INSERT INTO 职员基本资料"
    STemp = STemp & "(部门ID,姓名,性别,籍贯,年龄,民族,出生日期,健康状况"
    STemp = STemp & "(婚姻状况,身份证号,家庭电话,手机,电子邮箱,备注)"
    STemp = STemp & "values ('" & Me![应聘部门ID] & "','" & Me![姓名] & "',"
    STemp = STemp & "'" & Me![性别] & "','" & Me![籍贯] & "','" & Me![年龄] & "','" & Me![民族] & "',"
    STemp = STemp & "'" & Me![出生日期] & "','" & Me![健康状况] & "','" & Me![婚姻状况] & "',"
    STemp = STemp & "'" & Me![身份证号] & "','" & Me![家庭电话] & "','" & Me![手机] & "',"
    STemp = STemp & "'" & Me![电子邮箱] & "','" & Me![备注] & "')"
    '使用DoComd对象的RunSQL方法执行查询
    DoCmd.RunSQL STemp
    '刷新"职员基本资料管理 子窗体"
    Me![职员基本资料管理 子窗体].Requery
Else
    '如果"应聘人员ID"为空，则弹出警告信息
    MsgBox " '应聘人员ID' 不能为空,请重新输入!", vbOKOnly, "警告"
    '把光标置于"应聘人员ID"组合框内
    Me![应聘人员ID].SetFocus
End If
Exit_存入档案_Click:

tz-chf

这些书大都抄来抄去。有的还抄帮助里的，帮助写错了它也照抄。基本的操作学会就去买本国外的经典书啃啃

cmwcg

谢谢