NIM010465 for No Product Found

Numéro d’ID de bogue	NIM010465
Envoi	July 20, 2007
Dernière modification	June 5, 2024
S’applique à	No Product Found
Version trouvée	9.2
Langue du programme	VBA
Statut	Will Not Be Addressed

Informations supplémentaires

No Public Explanation

Solution de contournement

**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