打开新窗体时根据记录筛选的问题

秦S　发表于：2014-01-05 18:44:48 　

点击查看课程详细资料按钮后，弹出输入参数值，理论上应该弹出培训档案录入窗体的呀！

求前辈达人们解惑。先行谢过了！

源码如下：

Private Sub Command21_Click()
On Error GoTo Err_Command21_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "培训档案录入表"

stLinkCriteria = "[编号]=" & Me![编号]

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Command21_Click:
Exit Sub

Err_Command21_Click:
MsgBox Err.Description
Resume Exit_Command21_Click

Top

闲人发表于：2014-01-05 19:27:13

用如下代码试试

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "培训档案录入表"

    'stLinkCriteria = "[编号]=" & Me![编号]

DoCmd.OpenForm stDocName
Exit_Command21_Click:
Exit Sub

Err_Command21_Click:
MsgBox Err.Description
Resume Exit_Command21_Click

Top

zhaoyoulong 发表于：2014-01-06 10:53:44

点击下载此附件

stLinkCriteria = "[编号]='" & Nz(Me.编号) & "'"

[编号] 是文本型

Top

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

Access交流中心

[5分]打开新窗体时根据记录筛选的问题