新手请教:此条件怎么加

iorihong

在此窗口中有个导入按钮,点好后会把员工的信息加到子窗体中,但是是全部的员工,怎么加个条件,点这个按钮能实现只会加入在职的员工信息呢?

代码如下:

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

DoCmd.RunSQL "INSERT INTO 工资单明细 ( 员工ID, 基本工资,工资单ID )" & _
" SELECT 员工信息.姓名,基本工资, " & Me![工资单ID] & " AS 工资单ID" & _
" FROM 员工信息 WHERE 状态='在职';"

iorihong

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

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