请高手支招

韩云　发表于：2011-05-14 16:59:15 　

附件中，员工姓名字段利用复选框来确定离职员工的显示与否，以方便日常的输入，但是，当点击复选框以后在“生产机工”窗体中的姓名字段就会出现空白，如果将整行都屏蔽起来，又影响数据的真实性。有没有办法：被复选框选中的员工只是在员工姓名字段的下拉列表中不显示了，而原来的记录保持不变，继续显示被复选框选定的员工姓名，请问各位老师高手，有没有办法实现这个效果呢？

点击下载此附件

Top

aslxt 发表于：2011-05-14 17:17:26

你的实例数据不全（没有【员工表】），怎么帮你？

Top

韩云发表于：2011-05-14 17:23:38

你看错了吧？如果没有员工表，打开时会提示错误的，

Top

网行者发表于：2011-05-14 18:19:25

员工姓名字段的下拉列表中已经不显示离职员工了，你未发现吗？

Top

蒋元根发表于：2011-05-14 18:26:54

可以调整一下思路,增加一生产历史表,将一定时期的生产数据追加到历史表中间,历史是客观存在的,并不因该职工工作的变动了,而去改变客观事实.

Top

韩云发表于：2011-05-14 20:01:35

网行者老师，你再仔细看看我写的内容，下拉框中是没有了但是在窗体中姓名一栏离岗职工是空的给人感觉不舒服，

蒋老师的意见不失为一条思路，但是太过繁琐，有没有更简便的办法呢？

Top

aslxt 发表于：2011-05-15 08:29:27

子窗体加入一下事件代码：

Private Sub Form_Current()
If Me.NewRecord = True Then
员工姓名.RowSource = "SELECT 员工表.员工ID, 员工表.员工姓名, 部门名称表.部门ID, 员工表.在职否 FROM 部门名称表 INNER JOIN 员工表 ON 部门名称表.部门ID = 员工表.员工部门 WHERE (((员工表.在职否)=False))"
Else
员工姓名.RowSource = "SELECT 员工表.员工ID, 员工表.员工姓名, 部门名称表.部门ID, 员工表.在职否 FROM 部门名称表 INNER JOIN 员工表 ON 部门名称表.部门ID=员工表.员工部门; "
End If
End Sub
意思是：原有记录的时候，【员工姓名】的下拉列表包含已离职的人员，录入新记录的时候，【员工姓名】的下拉列表排除已离职的人员

Top

aslxt 发表于：2011-05-15 08:33:33

建议：在求助的实例中，尽量避免窗体的弹出、模式，尽量避免隐藏对象，避免屏蔽自有菜单等

Top

韩云发表于：2011-05-15 11:06:19

谢谢aslxt老师，你的方法很好。

Top

总记录：8篇页次：1/1 9 1 :

Access交流中心

请高手支招