Office中国论坛/Access中国论坛

标题: 书上的问题 [打印本页]

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

作者: tmtony 时间: 2009-3-10 22:42
这有可能是书中的小错，可看看有没有勘误表
正常窗体的内容与绑定的数据表相关。

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

作者: Henry D. Sy 时间: 2009-3-11 08:26
估计是查阅列的问题，

作者: tz-chf 时间: 2009-3-11 09:00
直接问作者

作者: wu8313 时间: 2009-3-11 10:51
从你描述看来：应聘人员基本资料表和职员基本资料表应该建立了表关系，看看表间关系设怎么设定的。
供参考。

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

作者: cmwcg 时间: 2009-3-11 14:59
为了专家能够明白我的问题，我把做的这个联系发在这里，就是职员基本资料管理那个窗体，当点击“存入档案”这个按钮时，就提醒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 时间: 2009-3-11 15:25
这些书大都抄来抄去。有的还抄帮助里的，帮助写错了它也照抄。基本的操作学会就去买本国外的经典书啃啃

作者: cmwcg 时间: 2009-3-11 16:40
谢谢

作者: cmwcg 时间: 2009-3-11 16:44
能不能推荐两本书呢？免得又上当。

作者: chaojianan 时间: 2009-3-11 21:36
某些学者出书
剪刀+浆糊=xxx开发指南
呵呵.

作者: ly 时间: 2009-3-11 21:40

为了专家能够明白我的问题，我把做的这个联系发在这里，就是职员基本资料管理那个窗体，当点击“存入档案”这个按钮时，就提醒insert into语句错误，请指教
Private Sub 存入档案_Click()
On Error GoTo Err_存入 ...
cmwcg 发表于 2009-3-11 14:59

按照Insert into语法规则，似乎有点问题，
1、STemp = STemp & "(部门ID,姓名,性别,籍贯,年龄,民族,出生日期,健康状况"
2、STemp = STemp & "(婚姻状况,身份证号,家庭电话,手机,电子邮箱,备注)"
第一句最后字段"健康状况"后加个逗号，第二句的前一个括号去掉。请你修改后测试一下。

作者: cmwcg 时间: 2009-3-12 09:08

,谢谢你， LY，就是你指出的问题，嘿嘿，专家就是专家。谢谢！谢谢！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)