Latest Contributions by GarethWalters

Hi Suzanne, These extra tabs are Query Forms that are generated automatically for users. If you open the shapefiles' APL file in ArcPad you will see under the forms that there is a Query form. You can delete it and then it will not appear in ArcPad. I hope this helps. ... View more

Hi John, The best way I can think of is to: rename your custom form APL export the symbology to another APL In ArcPad Studio or notepad combine the best bits from both Save that a customone.APL somewhere then in the data manager, use customone.apl as a template for the layer and it will always have the symbology and form you defined. To use a template in the data manager, you click the tick box twice on the layers part of the wizard. This will open a dialog that you can select existing APL's Hope this helps. ... View more

Hi James, I am going to make the assumption that all of these fields are on the same page within the form. If not please let me know. there are two things we need to do: 1. write the calculation so that it reads the correct fields and 2. use a button or have something execute the calculation. Firstly, if all of the inputs are on one page then that makes things a little easier. If you add a button to the same page and call it btnCalculate, go to the events of the button and where it says OnClick - write: Call myCalculation(). So when you click the button it will look for the routine we are about to write. Press Ok to everything so you are interacting with the Layer Definition of the feature. Click on the scripting button to load a new script window. Now If you have vbScript as your default language the window should have Option Explicit written at Line 1. Under that write: sub myCalculation() So taking your formula: (Pole_Ft_Power_1 + Pole_In_Power_1) - sum of ( Pole_Ft_CATV_1 + Pole_In_CATV_1) = Pole_Separation_1 the script could look something like this: sub myCalculation() 'Initiate some objects to store the measurements in dim Pole_Ft_Power_1, Pole_In_Power_1, Pole_Ft_CATV_1, Pole_In_CATV_1, Pole_Separation_1 'This long path is how you read values from a form. There are shorter methods you can write but this hopefully explains itself. Pole_Ft_Power_1 = Application.Map.Layers("yourPoleLayer").Forms("EDITFORM").Pages("PAGE1").Controls(txtPole_Ft_Power_1).Value Pole_In_Power_1 = Application.Map.Layers("yourPoleLayer").Forms("EDITFORM").Pages("PAGE1").Controls(txtPole_In_Power_1).Value Pole_Ft_CATV_1 = Application.Map.Layers("yourPoleLayer").Forms("EDITFORM").Pages("PAGE1").Controls(txtPole_Ft_CATV_1).Value Pole_In_CATV_1 = Application.Map.Layers("yourPoleLayer").Forms("EDITFORM").Pages("PAGE1").Controls(txtPole_In_CATV_1).Value 'This line now sets the calculation to another text box that is on your form. Application.Map.Layers(yourPoleLayer).Forms("EDITFORM").Pages("PAGE1").Controls(txtPole_Separation_1).Value = (Pole_Ft_Power_1 + Pole_In_Power_1) - ( Pole_Ft_CATV_1 + Pole_In_CATV_1) end sub I hope this helps. ... View more

Hi Richard, I would: apply snapping to my feature classes, so the points are "connected" to the drain line. write a script to to find the nearest drain, using a very small buffer distance or even 0. You could then use the findnearestXY method: This could take your points location and can find the closest record in a different dataset. When it finds that feature (recordset) you can read the fields and get the drain ID, then pass that to your forms page. I would also suggest that you do this on the PageActivate event rather than the Form Onload. You could also have a button on your page that executes it. Here is some pseudo code that might help. dim myX, myY, lyrDrain, recDrain, fldDrainID myX = map.Layers("Points").Forms("editform").fields.shape.x myY = map.Layers("Points").Forms("editform").fields.shape.y lyrDrain = Map.layers("DrainLines") recDrain = lyrDrain.records recDrain.findnearestXY(myX, myY,[buffer],[envelope]) fldDrainID = recDrain.fields("DRAINID").value map.layers("points").Forms("editform").fields("DRAIN_ID").Value = fldDrainID _________ Another way might be to manually select the drain line before you capture the point, then that way you know specifically which drain id will be passed as the user selected it. Hope this helps. Cheers, Gareth ... View more

Hi Gareth, I would assume that the above is only true when you keep to having only one path defined in your applets tag in the config file and not as below   <PATHS public="C:\Users\Public\Documents\ArcPad" data="C:\Temp\Data" applets="C:\Temp\Applets1;C:\Temp\Applets2" styles="" extensions="" templates=""/> Rolf Hi Rolf, As the property is indexed, I could use Preferences.Properties("AppletsPath",2) to get to a specific folder. Standard ArcPAd Data Path reads: C:\Users\Gareth\Documents,C:\Users\Public\Documents\ArcPad Preferences.Properties("DataPath",2) would give me: C:\Users\Public\Documents\ArcPad Cheers, Gareth ... View more

Hi Josh, Also if you already have existing forms that you want to attach to a new check out, you can use them as a template during the Check out process. It is the little tick box next to the layer name. Once you have finished the steps, it will save that configuration for the next time you do a check out and you will get them every time. Hope this helps, Gareth ... View more

Hi all, Esri UK have developed an extension for ArcPad called OSTN02. Click Here to read about it. You could build your own extension using C++. Also, you could potentially build an applet, if you had a polygon layer that was the grid , where each cell has the corrections as attributes, you could calculate the corrected position using isPointIn. For example: if gps point  is inside cell A add the point run the calculation set the coordinates to correct location Could this be appropriate? ... View more

Hi Faith, I am just wondering if you could post the .apl and shapefiles up to have look at? I am wondering if query filters would help. It kind of sounds like the black features are being rendered on top and I wonder if changing their order in the APL/legend might do anything for you. Cheers, Gareth ... View more

I am not sure if you are aware but this is all out of the box functionality for ArcPad, those guys have been integrating forms with the data for years. They allow the user to customize them just using vbscript, jscript or even Python now. This is all available on the desktop too, not just mobile devices. Maybe Esri could learn from that product or just integrate the forms from ArcPad, as they are really easy to create. ... View more

Hi Robert, The issue with that CQ will be supported in the new release of 10.0.3. In fact there should be a build going up on the ArcPad Beta site this week that you can try. I would suggest that you have unique DataSource, counters, recordsets and bookmark variables per layer. This way you can keep track of them indivually. Sign up for the beta if you haven't already and if possible can you upload your project or atleast some of the code? Cheers, Gareth ... View more

Hi Robert, Can I clarify a couple of things with your dataset? Do you have a related table scenario? Related by a GlobalID and the GUID you are trying to update? Or a single feature class with a globalID and another column in that which is a GUID? I also assume that the data is in an AXF. How about trying updating the rows through the Datasource object, then you can pass SQL queries through. This works well for me. Cheers, Gareth ... View more

Hi Brooks, Here is a quick sample to have a look at what I mean. This sample will create a buffer at the GPS location, find the features within that buffer and for each one open the editform. The ellipse can be created as a feature or a graphic, you just have to pass it to the desired layer. Dim gpsX, gpsY, pBuffer, pPoint, polySymbol gpsX = gps.X gpsY = gps.Y set pBuffer = Application.CreateAppObject("Ellipse") set pPoint =  Application.CreateAppObject("Point") set polySymbol = Application.CreateAppObject("Symbol") polySymbol.LineWidth = 3 pPoint.X = gpsX pPoint.Y = gpsY set pBuffer = pPoint.Buffer(10) Call Map.AddFeature(pBuffer,false) 'Call Map.Drawshape(pBuffer, polySymbol) dim pointRS, ptCount, pBookmark set pointRs = Map.Editlayer(1).Records 'Your sign layer pointRS.MoveFirst ptCount = 0 While not pointRS.EOF if pBuffer.IsPointIn(pointRS.Fields.Shape) = true then   Map.EditLayer(1).edit(pointRS.Bookmark)   ptCount = ptCount +1 End if pointRS.MoveNext Wend Yes you may need to manage the amount you search through as the less is going to be faster. There are several ways you could look into. Maybe your workflow could be that you do just take less data out there. Or you could try the find method. Perhaps a new thread for this conversation 🙂 Let me know how you go. Cheers, Gareth ... View more

Hi Brooks, As you mentioned you are trying to find things within a buffer zone and the findnearestXY only finds a single record. I would suggest that you turn the thinking around a little, and use the geometry object. If you create a circle/buffer of your location, you can then iterate through a list of features using the IsPointIn method. Everytime it is true you can open the editform. Hope this a good start for you. Cheers, Gareth ... View more