Latest Contributions by yosiwidiyanto

Dear All vba programmer I have data (.shp, .txt) dan mxd file that store in directory D, I want my application can be run in every directory without changing data address in code. Below is my code without using path Private Sub UserForm_Initialize() Dim strFile1 As String     strFile1 = "D:\APLIKASI SIL\Data Teks\LandUnit.txt" Dim strLandUnit As String  Open strFile1 For Input As #1 Do Until EOF(1)     Input #1, strLandUnit     cboSatuanLahan.AddItem strLandUnit Loop Close #1 Dim strFile2 As String     strFile2 = "D:\APLIKASI SIL\Data Teks\Kabupaten.txt" Dim strKabupaten As String Open strFile2 For Input As #2 Do Until EOF(2)     Input #2, strKabupaten     cboKabupaten.AddItem strKabupaten Loop Close #2 End Sub I have tried this way to change: strFile1 = "D:\APLIKASI SIL\Data Teks\LandUnit.txt" to strFile1 = App.Path & "\APLIKASI SIL\Data Teks\LandUnit.txt" and strFile2 = "D:\APLIKASI SIL\Data Teks\Kabupaten.txt" to strFile2 = App.Path & "\APLIKASI SIL\Data Teks\Kabupaten.txt" But .Path is unknown in vba I doo need someone help to solve this problem. Thanks a lot Yosie ... View more

Hi, Could anyone share vba code or example to rename the layer's name base on one of record's value? Thank you for anyone who help regards' Yosie ... View more

I???m writing code with vba to build tool layer order (move layer up and down), switch from data view to layout view conversely, and turn on and off layer. I have 2 layers named river and lake.  What I want is in data view: the position of layer (0) is river and lake is invisible. And in layout view: the position of layer (0) is lake and river is invisible. The result is layer only move one time every after opening file mxd, whatever the selected layer is, the 2nd run and so on only switching and turning on or off layer. And surprisingly, although the layer lake is invisible but I can see in layout view. Below are my code and no error. Could anyone please tell me where the mistake is? Thanks Yosie Private Sub MoveLayerDown_Click() Dim pDoc As IMxDocument Set pDoc = ThisDocument Dim pSelLayer As ILayer Set pSelLayer = pDoc.SelectedLayer Dim pMap As IMap Set pMap = pDoc.FocusMap Dim i As Long Dim layerIndex As Long For i = 0 To pMap.LayerCount - 1     If pMap.Layer(i).Name = pSelLayer.Name Then         layerIndex = i     End If Next i pMap.MoveLayer pSelLayer, layerIndex + 1 Call View Call OnOff End Sub Private Sub MoveLayerUp_Click() Dim pDoc As IMxDocument Set pDoc = ThisDocument Dim pSelLayer As ILayer Set pSelLayer = pDoc.SelectedLayer Dim pMap As IMap Set pMap = pDoc.FocusMap Dim i As Long Dim layerIndex As Long For i = 0 To pMap.LayerCount - 1     If pMap.Layer(i).Name = pSelLayer.Name Then         layerIndex = i     End If Next i pMap.MoveLayer pSelLayer, layerIndex - 1 Call View Call OnOff End Sub Private Sub View() Dim pDoc As IMxDocument Set pDoc = ThisDocument Dim pMap As IMap Set pMap = pDoc.FocusMap Dim pLayer As ILayer If pMap.Layer(0).Name = "Soil" Then     Set pDoc.activeView = pDoc.FocusMap Else     Set pDoc.activeView = pDoc.pageLayout End If End Sub Private Sub OnOff() Dim pDoc As IMxDocument Set pDoc = ThisDocument Dim pMap As IMap Set pMap = pDoc.FocusMap pMap.Layer(0).Visible = True pMap.Layer(1).Visible = False End Sub ... View more

Hi, I'm writing code to create layout with vba, what I want to show are map title (done), scale bar and text (done), north arrow (done), text (taken from one of field value-->not done) and only legend of the active view map (not done). - 1 have one polygon layer, shown by unique values,then I search one of them and zoom in. then I create layout to show all of the items above including the legend, but I want the list symbol of legend only show the color of active view map, not all of the symbol from the layer's unique values. - Then, I also want to show detail of the data that has been written in 1 field for each rows, so the key is base on what I choose to search. Those are really confusing, I do need help to do that. I thank you so much for everyone who help me. Thanks Yossie ... View more