先感谢拉!!![attach]19274[/attach] 作者: 一点通 时间: 2006-7-26 18:49
Private Sub 员工ID_DblClick(Cancel As Integer)
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "工资汇总输出"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Forms!工资汇总输出!员工ID = Me.员工ID
End Sub