Question

我正在使用ASV进行一次MS访问。我想创建一个新的工作号码并开始新的评估。我创建了成功的工作号，但是当我点击按钮＆＃34;选择工作＆＃34;分析它显示的所有部分＆＃34;无效使用Null＆＃34;。

我不确定你们是否知道它的Baseline版本。我发布的代码如下：

Private Sub cmdSelectJob_Click()
 On Error GoTo Err_cmdSelectJob_Click
If (Not IsNull(Me.cmbJobNumber)) And (Not Me.cmbJobNumber = "") Then
    Dim stDocName As String
    stDocName = "ReportAnalysis"
    DoCmd.OpenForm stDocName
    Forms!ReportAnalysis.strJobNumber = Me.cmbJobNumber
    Forms!ReportAnalysis.UpdateBaseline
    Forms!ReportAnalysis.trvBaseline.Nodes(1).Selected = True
    Forms!ReportAnalysis.UpdateComponentPanel (Forms!ReportAnalysis.trvBaseline.Nodes(1))

    Forms!SelectJob.Visible = False

End If

Exit_cmdSelectJob_Click:
Exit Sub

Err_cmdSelectJob_Click:
MsgBox Err.Description
Resume Exit_cmdSelectJob_Click
End Sub

感谢您提出任何意见。

Answer 1

我刚刚解决了这个问题。由于函数UpdateBaseline中的代码“If（RS！ForReview）”和“ForReview”列为null。我将代码更改为“If（RS.ForReview = NULL）”。这很好用。谢谢你的帮助。

MS访问＆＃34;无效使用Null＆＃34;

1 个答案: