NextButton
on mouseUp
  global gTB
  set errCode = gItemsTable(mGoNext)
  if (errCode = 0) then
    put gItemsTable(mGetField, "name") into field "theName"
    put gItemsTable(mGetField, "category") into field "theCategory"
    put gItemsTable(mGetField, "description") into field "description"
    put gItemsTable(mGetField, "catalog number") into field "catalog nbr"
    put gItemsTable(mGetField, "price") into field "price"
  else
    beep -- e.g., errCode=4 would mean that we hit the end of the selection
  end if
end mouseUp 





Prev Button
on mouseUp
  global gItemsTable
  set errCode = gItemsTable(mGoPrevious)
  if (errCode = 0) then
    put gItemsTable(mGetField, "name") into field "theName"
    put gItemsTable(mGetField, "category") into field "theCategory"
    put gItemsTable(mGetField, "description") into field "description"
    put gItemsTable(mGetField, "catalog number") into field "catalog nbr"
    put gItemsTable(mGetField, "price") into field "price"
  else
    beep -- e.g., errCode=3 would mean that we hit the top of the selection
  end if
end mouseUp