I finally got a Sesame database on several user's desktops and it is in active use. YAY ME! It's our personnel database.
On its one-and-only form there is a tab with two check boxes, one for "Medical on file?" and one for "Violation record on file?" (these are personnel records for our truck drivers).
Some of the records have one or both of these checked, some do not. When I do a retrieve (of any kind) and move through the records using the navigation bar at the top of the screen, the checks that are present show up just fine.
However, when I move through the records using a command button I have placed on my form, the boxes with checks in them do not show the checks until I hover over the check box. Then they magically appear.
The code for my command button is as follows. Any ides on what might be happening?
Save_Continue :: On Element Entry
// Saves the record and moves to the next
var NextRecord as int
IF @IsBlank(LASTNAME) // Prevents saving of records with no Last Name
Then
{
NotifyForm(1)
@MsgBox("Employee Name cannot be blank.","Please enter required data.","")
ThrowFocus(LASTNAME)
}
Else IF @IsBlank(FIRSTNAME) // Prevents saving of records with no First Name
THEN
{
NotifyForm(1)
@MsgBox("Employee name cannot be blank.","Please enter required data.","")
ThrowFocus(FIRSTNAME)
}
ELSE If @Mode() = 1
// Saves and advances in Update mode, Prevents entering Extended Mode from Search-Update
THEN
{
IF @ResultSetCurrentPosition() = @ResultSetTotal()
THEN
{
NotifyForm(2)
}
ELSE
{
NotifyForm(0)
NextRecord = @selecttreeitem("Search Update Menu!Navigation!Advance Record (F10)")
}
}
ELSE If @Mode() = 0
// Saves and advances in Add mode
THEN
{
NotifyForm(0)
NextRecord = @selecttreeitem("Add data menu!Navigation!Advance Record (F10)")
}