NIM010465 for No Product Found

Número de ID do Erro	NIM010465
Enviado	July 20, 2007
Última Modificação	June 5, 2024
Aplica-se à	No Product Found
Versão encontrada	9.2
Idioma do programa	VBA
Status	Will Not Be Addressed

Informações Adicionais

No Public Explanation

Solução Provisória

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