MS訪問「無效使用NULL」

我正在與ASV一起訪問一個MS訪問。我想創建一個新的工作號碼並開始一個新的評估。我創建了成功的作業編號，但當我點擊「選擇作業」按鈕來分析它顯示的所有部分「無效使用空白」。MS訪問「無效使用NULL」

我不確定你們是否知道它的基線版本。我發佈的代碼如下：

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

感謝您的任何意見。

來源

2016-09-19 kcc

那不是VB.NET代碼。 access-vba也許？ VB6？ – Plutonix

@Plutonix是的，謝謝你，我已經改變了它。 – kcc

我建議將診斷程序放在代碼中更接近每行的地方。我注意到你的子程序的頂部有一個「出錯goto」，所以你真的不知道失敗發生在哪裏。評論你的「錯誤轉到」，看看它失敗的地方。 – n8wrl

我剛剛解決了這個問題。由於函數UpdateBaseline中的代碼「If（RS！ForReview）」，並且「ForReview」列爲空。我將代碼更改爲「If（RS.ForReview = NULL）」。這是行之有效的。感謝您的任何幫助。

來源

2016-09-22 19:59:53 kcc

MS訪問「無效使用NULL」

回答

相關問題