access的VBA

来源：百度知道 编辑：UC知道 时间：2024/05/25 00:59:07
Private Sub Form_Open(Cancel As Integer)
Dim strNewRecord As String
strNewRecord = "SELECT * FROM 赏与计算用 WHERE 社员番号 = '" & Me.OpenArgs & "'"
Me.RecordSource = strNewRecord
End Sub

这个代码哪里有问题？
高手们请指点！！！！！！！！！！！！！
急急急急急急急急急急急急急急急急急急急急

单看这代码，没有错。

你是要在窗体打开时，将这查询赋给窗体做数据源吗？

可能会有这两个问题：
1，你没有对Me.OpenArgs做空值处理，到时窗体打开，会是一片空白，就是一片白色，很壮观。
2，这段代码，似乎应该加载在Load事件中更合乎逻辑。

strNewRecord = "SELECT * FROM 赏与计算用 WHERE 社员番号 = '" & Me.OpenArgs & "'"
改为strNewRecord = "SELECT * FROM 赏与计算用 WHERE 社员番号 = " & Me.OpenArgs