Latest Contributions by HalilSiddique

I am using 10.1 sp1. Protected Overrides Sub OnClick() Implements ESRI.ArcGIS.SystemUI.ICommand.OnClick         Dim pMxDoc As IMxDocument = TryCast(My.ArcMap.Application.Document, IMxDocument)         Dim enumFeatureSetup As IEnumFeatureSetup         Dim shape As String         If pMxDoc Is Nothing Then             Return         End If         Dim pMap As IMap = pMxDoc.FocusMap         Dim pEF As IEnumFeature = pMap.FeatureSelection         enumFeatureSetup = pEF         enumFeatureSetup.AllFields = True         Dim pFeat As IFeature = pEF.Next         If pFeat Is Nothing Then             Exit Sub         End If         Dim fields As IFields         fields = pFeat.Fields         Dim fieldCount As Integer = 0         Dim field, ffield As IField         Dim IDvalue, Lvalue, Mvalue, Rvalue As String         Dim Ovalue As Integer         Dim StrArray() As String = {"speedsigns", "intersections", "unpaved", "rumble", "paved", "medians", "lanes", "lighting", "location"}         Do While pFeat IsNot Nothing             If Array.IndexOf(StrArray, pFeat.Class.AliasName) = -1 Then                 Do Until fieldCount = fields.FieldCount                     field = pFeat.Fields.Field(fieldCount)                     If field.Name = "RandomID" Then                         IDvalue = pFeat.Value(fieldCount)                     ElseIf field.Name = "Lighting" Then                         Lvalue = pFeat.Value(fieldCount)                     ElseIf field.Name = "RumbleStri" Then                         Rvalue = pFeat.Value(fieldCount)                     ElseIf field.Name = "Median" Then                         Mvalue = pFeat.Value(fieldCount)                     ElseIf field.Name = "OBJECTID" Then                         Ovalue = pFeat.Value(fieldCount)                     End If                     fieldCount += 1                 Loop                 Exit Do             End If             pFeat = pEF.Next         Loop         pEF = pMap.FeatureSelection         enumFeatureSetup = pEF         enumFeatureSetup.AllFields = True         pFeat = pEF.Next         Dim commandItem As ICommandItem         Dim commandBars As ICommandBars         commandBars = My.ArcMap.Application.Document.CommandBars         commandItem = commandBars.Find(My.ThisAddIn.IDs.ArcGISAddin1, True, False)         Dim workspacePath As String = ArcMapAddin1.ArcGISAddin3.val         Dim workspaceFactory As IWorkspaceFactory         Dim workspace As IWorkspace         Try             workspaceFactory = DirectCast(Activator.CreateInstance(Type.GetTypeFromProgID("esriDataSourcesGDB.AccessWorkspaceFactory")), IWorkspaceFactory)             workspace = workspaceFactory.OpenFromFile(workspacePath, My.ArcMap.Application.hWnd)         Catch ex As Exception             MsgBox("Database Not Found")             Exit Sub         End Try         Dim rset As String = "hold"         Dim fieldcount2 As Integer         pFeat = pEF.Next         shape = ArcMapAddin1.ArcGISAddin1.val         Dim outputSignDetailTable As ITable         Dim tableBuffer As IRowBuffer         Dim row As IRow         Dim feature As IRowBuffer         Dim pEF2 As IEnumFeature = pMap.FeatureSelection         Dim enumFeatureSetup2 As IEnumFeatureSetup         enumFeatureSetup2 = pEF2         enumFeatureSetup2.AllFields = True         Dim pFeat2 As IFeature = pEF2.Next         Dim speedsigns As Integer = 0         Dim intersections As Integer = 0         Dim unpaved As Integer = 0         Dim rumble As Integer = 0         Dim paved As Integer = 0         Dim medians As Integer = 0         Dim lanes As Integer = 0         Dim lighting As Integer = 0         Dim location As Integer = 0         Do While pFeat2 IsNot Nothing             If pFeat2.Class.AliasName = "speedsigns" Then                 speedsigns += 1             ElseIf pFeat2.Class.AliasName = "intersections" Then                 intersections += 1             ElseIf pFeat2.Class.AliasName = "unpaved" Then                 unpaved += 1             ElseIf pFeat2.Class.AliasName = "rumble" Then                 rumble += 1             ElseIf pFeat2.Class.AliasName = "paved" Then                 paved += 1             ElseIf pFeat2.Class.AliasName = "medians" Then                 medians += 1             ElseIf pFeat2.Class.AliasName = "lanes" Then                 lanes += 1             ElseIf pFeat2.Class.AliasName = "lighting" Then                 lighting += 1             ElseIf pFeat2.Class.AliasName = "location" Then                 location += 1             End If             pFeat2 = pEF2.Next()         Loop         Dim iii As Integer         pEF = pMap.FeatureSelection         enumFeatureSetup = pEF         enumFeatureSetup.AllFields = True         pFeat = pEF.Next         pFeat = pEF.Next         Dim tableInsertCursor As ICursor         Dim newOID As Object         Do While pFeat IsNot Nothing             If shape = pFeat.Class.AliasName Then                 outputSignDetailTable = DirectCast(workspace, IFeatureWorkspace).OpenTable(shape)                 tableBuffer = outputSignDetailTable.CreateRowBuffer()                 row = CType(tableBuffer, IRow)                 feature = tableBuffer                 tableInsertCursor = outputSignDetailTable.InsertRow(True)                 feature.Value(0) = IDvalue                 feature.Value(1) = Ovalue                 fieldcount2 = 1                 Do Until fieldcount2 = pFeat.Fields.FieldCount                     iii = 0                     Do While iii < outputSignDetailTable.Fields.FieldCount                         ffield = outputSignDetailTable.Fields.Field(iii)                         If ffield.AliasName = pFeat.Fields.Field(fieldcount2).AliasName Then                             feature.Value(iii) = pFeat.Value(fieldcount2)                             Exit Do                         End If                         iii += 1                     Loop                     fieldcount2 += 1                 Loop                 If shape = "rumble" Then                     fieldcount2 += 1                     If rset = "hold" Then                         If MsgBox("Are these rumble strips a set?", vbYesNo) = vbYes Then                             rset = "yes"                             iii = 0                             Do While iii < outputSignDetailTable.Fields.FieldCount                                 ffield = outputSignDetailTable.Fields.Field(iii)                                 If ffield.AliasName = "Set" Then                                     feature.Value(iii) = "SET"                                     Exit Do                                 End If                                 iii += 1                             Loop                         Else                             rset = "no"                         End If                     ElseIf rset = "yes" Then                         iii = 0                         Do While iii < outputSignDetailTable.Fields.FieldCount                             ffield = outputSignDetailTable.Fields.Field(iii)                             If ffield.AliasName = "Set" Then                                 feature.Value(iii) = "SET"                                 Exit Do                             End If                             iii += 1                         Loop                     End If                 End If                 If shape <> "location" Then                     commandItem = commandBars.Find(My.ThisAddIn.IDs.Process2, True, False)                     If commandItem.Caption = "Ambiguity On" Then                         iii = 0                         Do While iii < outputSignDetailTable.Fields.FieldCount                             ffield = outputSignDetailTable.Fields.Field(iii)                             If ffield.AliasName = "Ambiguity" Then                                 feature.Value(iii) = "AMBIG"                                 Exit Do                             End If                             iii += 1                         Loop                     End If                 End If                 commandItem = commandBars.Find(My.ThisAddIn.IDs.Process3, True, False)                 If commandItem.Caption = "Double Check On" Then                     iii = 0                     Do While iii < outputSignDetailTable.Fields.FieldCount                         ffield = outputSignDetailTable.Fields.Field(iii)                         If ffield.AliasName = "Check" Then                             feature.Value(iii) = "CHECK"                             Exit Do                         End If                         iii += 1                     Loop                     tableInsertCursor.InsertRow(feature)                 Else                     tableInsertCursor.InsertRow(feature)                 End If             End If             pFeat = pEF.Next()         Loop     End Sub Josh, Are you sure you can add your own OBJECTID values, I thought it was generated automatically? ... View more

I gave this a try on ArcGIS 10 SP5 and it worked ok...  The table was an Oracle table accessed through SDE.  In the original code, I noticed a space between the "DS" and ".FullName", probably just a copy/paste issue...  When converting VBA code from 9.3 mxds to 10, originally, I noticed that many of my references where pooched.  I had to go to tools, references and remove the missing ones, then it worked ok.  It seems VBA stops loading references as soon a it gets to a missing one, so if the one you need is after that in the list, it doesn't work. Dim mxd As IMxDocument Set mxd = ThisDocument Dim map As IMap Set map = mxd.FocusMap Dim tabcoll As ITableCollection Set tabcoll = map Dim tabl As ITable Set tabl = tabcoll.Table(0) Dim DS As IDataset Set DS = tabl Dim TableName As IName Set TableName = DS.FullName Dim dsName As IDatasetName Set dsName = TableName Debug.Print dsName.Name Thanks for the suggestion, I've checked the references but nothing is missing. Here is the code im using     ' Loop through the codepoint layer     Set pDataset = pdatasets.Next     Do While Not (pDataset Is Nothing)         ' MsgBox (pDataset.Name)         Select Case pDataset.Type         Case esriDTFeatureClass             Select Case pDataset.BrowseName             Case "OS_VECTOR.OS_CODEPOINT"                 Set pName = pDataset.FullName ===========FAILS HERE ==============                 Set m_pCodePointClass = pName.Open                 'Set pFCcodepoint = pName.Open                 'MsgBox (pFCcodepoint.ShapeType)             End Select         End Select         Set pDataset = pdatasets.Next     Loop I've tried your code and it does work, so I'm confused. ... View more

Just trying out some of our old VBA code ArcGIS 10 and getting a type mismatch error where I should NOT be getting one. Here is the code: Dim DS as IDataSet Set DS = MyTable Dim TableName As IName Set TableName = DS .FullName The error is thrown at "Set TableName = DS.FullName" Where TableName is IName and DS.FullName is IName. This should not throw a Type Mismatch error but it is, and only in ArcGIS 10; all other previous versions work. Is there any solution to this, as im having the same problem. ... View more

You can't use 'sdemon' to kill Direct Connect connections -- the process lives elsewhere (which is waht the error message indicates). - V Hi Vince, I was hoping to kill the ArcSDE connections rather than the Direct Connections (I don't think we have  DC's, all connections that we use go through ArcSDE). I'm puzzled as it has only recently been telling me that there are no users connected. ... View more

FYI: 10.1 clients are not able to connect to pre-9.3 ArcSDE geodatabases: Client and geodatabase compatibility The workflow you describe is not possible. Mine does.....:confused: ... View more

Is it possible to make H3Viewer the default help, when I hit F1 within VS2010? Edit - Never mind, found the option in H3. ... View more

Thanks Ken! ... View more

I was having the same problem, I'm glad I found this post. ... View more

Halil, Looking at your sample code I believe the sample you have found is specific to MS Access. If you want to open a website using VBA in ArcMap 9.3 use this code instead: Dim iE As Object Set iE = CreateObject("InternetExplorer.Application") iE.navigate "www.rivex.co.uk" iE.Visible = True Duncan Perfect, thanks Duncan. ... View more

I know this is an old thread, but I am having the exact same problem, I have tried the code above this post, but I still get the automation error message. any ideas? ... View more

Hi Vince, i know about "sdelayer", what I was hoping for was UserA has read/ write / edit metadata  on layer1 and then compare that layer with layer2 in essence. Halil ... View more