Office中国论坛/Access中国论坛

标题: 新手请教:此条件怎么加 [打印本页]

作者: iorihong 时间: 2006-6-23 17:56
标题: 新手请教:此条件怎么加
[attach]18670[/attach]
在此窗口中有个导入按钮,点好后会把员工的信息加到子窗体中,但是是全部的员工,怎么加个条件,点这个按钮能实现只会加入在职的员工信息呢?

代码如下:

Private Sub 命令19_Click()

HAHA

End Sub
Sub HAHA()

If Not IsNull(Me![工资单ID]) Then
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.SetWarnings 0
DoCmd.RunSQL "INSERT INTO 工资单明细 ( 员工ID, 基本工资,工资单ID )" & _
" SELECT 员工信息.姓名,基本工资, " & Me![工资单ID] & " AS 工资单ID" & _
" FROM 员工信息;"

DoCmd.SetWarnings -1
Me.工资单明细子窗体.Requery
End If

End Sub

作者: andymark 时间: 2006-6-23 18:56
DoCmd.RunSQL "INSERT INTO 工资单明细 ( 员工ID, 基本工资,工资单ID )" & _
" SELECT 员工信息.姓名,基本工资, " & Me![工资单ID] & " AS 工资单ID" & _
" FROM 员工信息 WHERE 状态='在职';"

作者: iorihong 时间: 2006-6-23 21:16

以下是引用andymark在2006-6-23 10:56:00的发言：
DoCmd.RunSQL "INSERT INTO 工资单明细 ( 员工ID, 基本工资,工资单ID )" & _
" SELECT 员工信息.姓名,基本工资, " & Me![工资单ID] & " AS 工资单ID" & _
" FROM 员工信息 WHERE 状态='在职';"

感谢高手,解决了,太好了,谢谢拉!!!!

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