I have a need to isolate certain records in one of my database files.  I've been playing with the programming below to make all the elements in certain records invisible.  This has the desired effect   The key line is "visibility(ThisElement,0).

This works great for all the elements, but it leaves behind all the command buttons.  Is there a similar command i can use?  Like "ThisCommandButton"?

Thanks for your help!



I'm using the programming below to

vElements = @StringArrayElementList()
           vCnt = @CountStringArray(vElements)
           vLoop = 0
           While vLoop < vCnt
           {
                 vLoop = vLoop + 1
                   vName = @AccessStringArray(vElements, vLoop)
                   SetThisElement(vName)
                 vNN = @ElementType(ThisElement)
                 If (vNN > 999 and vNN < 1009)
                 {
                       Visibility(ThisElement,0)
                 }
           }

The file I'm working on has so many command buttons and elements it became too difficult to use the programing as previously discussed.  The reason was that after I hid everything, the programming became difficult to turn on the appropriate command buttons and elements appropriate for each user or group.

I came up with a solution that is much simpler and does the same thing.  I created a tab set and made it large enough for all my command buttons and elements to fit on the first tab.  Now, instead of hiding all the elements and command buttons, I simply use throwfocus() to move to an element on the second tab.  By clicking on Hide Tab Labels in my design programming, the first tab is not accessible.

I ran into one slight problem while testing it.  I have one file that has an @MsgBox command attached to a certain file condition.  I set this file to be blocked as described above using the ThrowFocus command as the first line in my programming.  However, the file opens with the first tab visible and the message box on the screen.  This leaves everything visible that I'm trying to hide!

Is there some way to make my ThrowFocus() command activate before any of the other programming occurs?

Ray,

I have too many elements and command buttons that are on/off depending on the user.  I started using the visibility condition but it got too complicated.

The use of the tabs and the throwFocus() command works great.  I think I can develop a work around for the @MsgBox command.

However, I've run into another problem!  I have two command buttons for "Next Record" and "Prior Record" to move through the records.  The programming is below.  If I go into a record that is hidden (via Search mode), the "hiding" works fine.  BUT, if I click on either of those two command buttons, the record is now visible!

Why is this happening?

/* Move to the previous record IF there is one or present a message if there is not
You must select the proper Menu Tree Item based on where you currently are in the
application */

Var vNav as Int

     visibility(ViewQualityAlert0,0)
     Visibility(VSP,0)
     Visibility(VEC,0)
     Visibility(VFC,0)
     Visibility(VFL,0)
     visibility(VPF,0)
     visibility(VMD,0)
     visibility(VTR,0)
     visibility(VTW,0)
     visibility(VIS,0)
     visibility(VAS,0)      

// SET ALL TAB COLORS TO THE BASIC SETUP

//      INSP
           RGBColor(TABPAGE9,0,0,0,204,204,204)
           RGBColor(Print Final I_P Process,0,0,0,204,204,204)      
           RGBColor(le3, 0, 0, 0, 204, 204, 204)
           RGBColor(le24, 0, 0, 0, 204, 204, 204)
           RGBColor(le10, 0, 0, 0, 204, 204, 204)


If @ResultSetCurrentPosition()>1 and @Mode()=1 
     {
     vNav = @SelectTreeItem("Search Update Menu!Navigation!Previous Record (F9)")

           If @Group<>"Master" and Itar="Yes" then
           {
                 ThrowFocus(DCNumberDuplicate)
           }
           Else
           {
                 ThrowFocus(Certs)
           }

     }
If @ResultSetCurrentPosition()<2 and @Update Then
     {
     @Msg("There are No Previous Records In This Set")

           If @Group<>"Master" and Itar="Yes" then
           {
                 ThrowFocus(DCNumberDuplicate)
           }
           Else
           {
                 ThrowFocus(Certs)
           }

     }

If @ResultSetCurrentPosition()>1 and @Mode()=0 
     {
     vNav = @SelectTreeItem("Add Data Menu!Navigation!Previous Record (F9)")
     }
If @ResultSetCurrentPosition()<2 and @Add Then
     {
     @Msg("There are No Previous Records In This Set")
     }