Checkboxes to turn on/off tabs

Question

Hey everyone,  I am creating an ArcPad mobile application to collect information on catch basins.  The city engineer informed me that he also wants to collect the pipe directions connected to the catch basins.

My idea is, instead of having one tab for each of the cardinal and intermediary directions, to have eight checkboxes listing the directions (N, S, E, W, NE, NW, SE, SW) and the user picks which directions the pipes are traveling then the application only loads those tabs to enter the pipe information.

Has anyone created or come across a script to do this or does anyone have any ideas on how to do this?

AmenAbdou · Answer

So I implimented the code and it worked like a charm, but I changed the code just a little to shorten it up.  I also applied it to the intermediate directions as well so I changed the right command to 2 rather than one.  I just had to make sure I went back to the radiobuttons and rename the cardinal directions rbtNO, rbtSO, rbtEA, rbtWE to match up with the control names.

Sub rbt_OnClick()
Dim rbt
Set rbt = ThisEvent.Object
Dim pControl
For Each pControl in rbt.Parent.Controls
 If pControl.Type = "LABEL" Or pControl.Type = "EDIT" Or pControl.Type = "DOMAINFIELD" Then
  If Right(pControl.Name, 2) = Right(rbt.Name, 2) Then
   pControl.Visible = True
  Else
   pControl.Visible = False
  End If
 End If
Next
Set pControl = Nothing
End Sub

Thanks for all the help, my survey crew loves the new form design.

AmenAbdou · Answer

Wonderful, I was on the right track with what I was doing.  Thank you so much.

RolfBroch · Answer

Hi, if your editform looks something like this (I only did 4 of your cardinal directions) and the script you run when clicking a button looks like this Sub rbt_OnClick() Dim rbt Set rbt = ThisEvent.Object Dim pControl For each pControl in rbt.Parent.Controls If pControl.Type = "LABEL" Then If Right(pControl.Name, 1) = Right(rbt.Name, 1) Then pControl.Visible = True Else pControl.Visible = False End If ElseIF pControl.Type = "EDIT" Then If Right(pControl.Name, 1) = Right(rbt.Name, 1) Then pControl.Visible = True Else pControl.Visible = False End If End If Next Set pControl = Nothing End Sub Then all you need to do is to click the correct radiobutton, fill in the values (and it will be saved to the correct attribute since the control is already tied to the correct field), click the next radiobutton, fill in etc.. When you are finished, click ok in the editform and all you information will be saved to the correct attributes. PS. I have not tested the code so there might be some errors in it. Rolf