Latest Contributions by StephanieMacuga

Hi, I've gone through and created a network dataset on our servers, but now would like to share that network with an agency who is not part of our County network (nor can they be granted access to our network).  Since I'd like the end user to use our network for routing inside of ArcReader, I need to share the network with them.  I can't package the data because the network is a "non-simple feature".  Any suggestions on the best way to do this?  Can I simply export/copy the geodatabase that contains the network and associated layers to the end user, even though they do not have any ArcGIS licensing, just ArcReader? Any suggestions are greatly appreciated!  Thanks! Stephanie ... View more

Despite the fact that I am a novice, I'm looking to upgrade some coding from VBA to VB.net.  I literally have gone from 102 errors, down to 1 - and am stuck!  This small section essentially searches through a table which has multiple inspection locations and each location can have several inspection dates. I need to query that table in ArcMap to find all the unique inspection locations and the most recent inspection date for that location.  The original coding (that I had incredible help with developing thanks to the forums!!) worked beautifully for 2 years, but I'm running into an issue now with the 'Do Until IsEmpty (value)' line.  I'm getting an error message that "Name 'IsEmpty' is not declared".  Any ideas?? The original coding is as follows: Sub SelectRecordsForMaxFieldValue_Inspections() 'selects all unique inspections from "Inspections.shp" and most recent date         Dim pMxDoc As IMxDocument         Dim pFLayer As IFeatureLayer         Dim pData As IDataStatistics         Dim pCursor As ICursor         pMxDoc = My.ArcMap.Document         pFLayer = pMxDoc.FocusMap.Layer(1) 'change the index according to the layer of interest         pCursor = pFLayer.Search(Nothing, False)         'Create the new table that the selected records will populate.         pData = New DataStatistics         pData.Field = "typeAndNum" 'change to match FC attribute with multiple records         pData.Cursor = pCursor 'this is the same cursor created above         Dim pEnumVar As IEnumVariantSimple         Dim value As Object         pEnumVar = pData.UniqueValues         value = pEnumVar.Next         Dim pFeatureSelection As IFeatureSelection         pFeatureSelection = pFLayer 'QI         Dim pActiveView As IActiveView         pActiveView = pMxDoc.ActiveView         Do Until IsEmpty(value)             Dim pQF As IQueryFilter             pQF = New QueryFilter             pQF.WhereClause = "typeAndNum = '" & value & "'" 'change to match FC attribute with multiple records             Dim pFc As ICursor             Dim pTable As ITable             pTable = pFLayer             pFc = pTable.Search(pQF, False)             Dim pDataStats1 As IDataStatistics             pDataStats1 = New DataStatistics             pDataStats1.Field = "dt_stamp" 'FC attribute you want the most recent value of             pDataStats1.Cursor = pFc             Dim pDataStatResults1 As IStatisticsResults             pDataStatResults1 = pDataStats1.Statistics             'Create the query filter             Dim pQueryFilter As IQueryFilter             pQueryFilter = New QueryFilter             pQueryFilter.WhereClause = "typeAndNum = '" & value & "' AND dt_stamp = date '" & Format(pDataStatResults1.Maximum, "MM/DD/YYYY") & "'"             pActiveView.PartialRefresh(esriViewDrawPhase.esriViewGeoSelection, Nothing, Nothing) 'Flag original selection             pFeatureSelection.SelectFeatures(pQueryFilter, esriSelectionResultEnum.esriSelectionResultAdd, False) 'Perform the selection             pActiveView.PartialRefresh(esriViewDrawPhase.esriViewGeoSelection, Nothing, Nothing) 'Flag the new selection             value = pEnumVar.Next         Loop Thanks in advance for any help/ideas! Stephanie ... View more

Hi! I've had this issue in the past, and don't think I've ever come up with a great way to resolve it other than doing a manual cut/paste for each field.  I have one field of attributes that has an address and a direction (100 S Main St - 2NW; 1343 W Kimberly Rd - 3WSE; etc) and I need to calculate just the address portion (100 S Main St; 1343 W Kimberly Rd; etc) into a new field.  I know that I can use the Left/Mid/Right functions to remove a specific number of characters from a string, but my proplem is that that number will vary.  Is there any way that I can calculate only the characters to the left of the hyphen (as all attributes have the hyphen) into a new field?  Or by the same token, remove all characters to the right of, and including, the hyphen? Thanks in advance! Stephanie ... View more