上机难点类型题汇总和VBA代码.docx

Access上机难点类型题汇总※基本操作(表)函数类型题集合：1、上一年度五月一日以前（含）的日期（规定：本年度年号必须用函数获取）。 =DateSerial(Year(Date())-1,5,1)2、下一年度的一月一日（规定：本年度的年号必须用函数获取）。 DateSerial(Year(Date())+1,1,1)3、本年度的九月一日（规定：本年度年号必须由函数获取）。 DateSerial(Year(Date()),9,1)4、系统当前年四月一号。 DateSerial(Year(Date()),4,1)5、系统日期当前年当前月的1号： DateSerial(Year(Now()),Month(Now()),1)6、聘用时间字段，系统当前日期次年的同月同日。DateAdd(yyyy,1,Date())7、聘用时间字段的默认值为：系统当前日期次年的同月1日。DateSerial(Year(Now())+1,Month(Now()),1)8、上机29题:工作日期默认值为系统当月的第一天.DateSerial(Year(Date()),Month(Date()),1)9、上机19题:聘用时间字段默认值为系统当前月最后一天DateSerial(Year(Date()),Month(Date())+1,0)10、输入1月份（含）到10月份(含)：Month([入校日期])=1 and Month([入校日期])=1011、默认值设置为系统当前日期: Date()12、默认值设置为系统当前日期的前一天: Date()-113、默认值设置为系统当前日期的后一天: Date()+114、截止到2008年聘用期在1年(含1年),比如聘用时间在2007年的员工,其聘用期为1年.=2007-1-1 and =2008-12-3115、上机16题：设置聘用时间字段属性，使字段按照”XXXX/XX/XX”格式输入。在输入掩码上写：0000/00/0016、删除聘用时间超过30年（含30年）职务为经理的职工。（最后别忘运行）用删除查询做，条件写：Year(Date())-Year(Date[聘用时间])=30 职务条件行写：经理17、将编号字段改名为工号，并设置为主键；按所属部门修改工号，修改规则为：部门01的工号首字符为1，部门02首字符为2，依次类推。Right([所属部门],1)+Right([工号],5)18、上机20题：将北京五中毕业学生的学号第3、4位改为09。（最后别忘运行）Left([学号],2)+09+Right([学号],4) 或 Left([学号],2) 09 mid([学号],4)19、上机21题:分析员工聘用时间,将截止到2008年聘用期在10年(含10年)以上员工其说明字段值设置为老职工。 用更新查询做：聘用时间段条件写：=1998-12-31 说明字段更新到写：老职工. （最后别忘运行）20、上机22题:对表对象员工表操作，按照员工性别不同，为编号字段值增补前置字符，男性员工编号前增补字符8，女性员工编号前增补字符6.（最后别忘运行） 用更新查询做：编号字段更新到写：”8” mid([编号],2) 性别字段条件写：”男””6” mid([编号],2) 性别字段条件写：”女”21、上机23题:查找部门04的女主管，将其编号字段首字符更改为4。（最后别忘运行）用更新查询做：部门编号条件写：”04” 性别字段条件写：”女” 职务条件写：”主管” 编号字段更新到写：”4” mid([编号],2)22、根据“所属部门”字段的值修改“编号”，“所属部门”为“01”，将原“编号”前加“1”；“所属部门”为“02”，将原“编号”前加“2”，依次类推答案：选择tEmployee表，然后打开查询工具的设计选项卡，在查询类型组中选择更新查询。选择编号字段，更新到中输入：[所属部门]*100000+[编号]23、查找年龄在平均年龄上下1岁（含）范围内的员工，其简历信息后追加“(平均)”文字标示信息答案：简历字段的更新到中输入：[简历]+(平均)，年龄字段的条件为=(Select Avg([年龄]) From 员工表 )-1 And =(Select Avg([年龄]) From 员工表 )+1，运行查询。24、表的有效性规则员工聘用时必须年满16岁； ([聘用时间]-[出生时间])/365.24=1625、设置“tQuota”表的有效性规则为:产品最高储备是最低储备10倍或10倍以上