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") }
|