NIM010465 for No Product Found

不具合 ID 番号	NIM010465
送信されました	July 20, 2007
最終更新日	June 5, 2024
適用対象	No Product Found
見つかったバージョン	9.2
プログラム言語	VBA
ステータス	Will Not Be Addressed

参考情報

No Public Explanation

対処法

**Pls be advised:**This "workaround" only averts the error message. **It does not provide a solution to the problem itself.Option ExplicitPrivate m_pPlatFile As ITablePrivate pTableSel As ITableSelectionPrivate WithEvents mTableSelEvents As StandaloneTablePrivate Sub InitEvents() Dim pMxDoc As IMxDocument Set pMxDoc = Application.Document Dim pTColl As IStandaloneTableCollection Set pTColl = pMxDoc.FocusMap Set m_pPlatFile = pTColl.StandaloneTable(0) Set pTableSel = m_pPlatFile Set mTableSelEvents = m_pPlatFileEnd SubPrivate Sub mTableSelEvents_SelectionChanged() Dim pPlatSelSet As ISelectionSet Set pPlatSelSet = pTableSel.SelectionSet Dim pPlatCursor As ICursor pPlatSelSet.Search Nothing, True, pPlatCursor Dim pPlatRow As IRow Set pPlatRow = pPlatCursor.NextRow If Not pPlatRow Is Nothing Then Debug.Print pPlatRow.Value(1) 'Output a message informaing the user which plat number that he/she entered Dim intPlatEntered As Integer intPlatEntered = MsgBox("You entered plat number " & pPlatRow.Value(1), vbOKCancel, "Plat number entered") Set pTableSel = Nothing Set pPlatSelSet = Nothing Set pPlatCursor = Nothing Dim lngPlatFieldNum As Long Dim trPlatNumber As String Dim strPlatNumber As String lngPlatFieldNum = m_pPlatFile.FindField("Name") strPlatNumber = pPlatRow.Value(lngPlatFieldNum) Set pPlatRow = Nothing Set pPlatRow = Nothing Set m_pPlatFile = Nothing End IfEnd Sub