How to Create a Message Box for Fields in a Browse Window

Last reviewed: April 30, 1996
Article ID: Q108614
The information in this article applies to:
  • Microsoft Visual FoxPro for Windows, version 3.0
  • Microsoft FoxPro for Windows, versions 2.5, 2.5a, and 2.5b
  • Microsoft FoxPro for MS-DOS, versions 2.0, 2.5, 2.5a, and 2.5b

When you are using the BROWSE command, you can use a message box to explain what information is to be put in a field.

The program below, which uses the CUSTOMER.DBF file in the TUTORIAL subdirectory, tells the user what information to put into a field in a Browse window.

   USE customer
   BROWSE FIELDS cno :w=xxx(), company :w=xxx(), contact :w=xxx()

   PROCEDURE xxx
   DO CASE
      CASE VARREAD()='Cno'
         WAIT WINDOW NOWAIT 'Enter Company Number'
      CASE VARREAD()='Company'
         WAIT WINDOW NOWAIT 'Enter Company Name'
      CASE VARREAD()='Contact'
         WAIT WINDOW NOWAIT 'Enter Company Contact'
   ENDCASE

The ":w" is a when clause for each field. When the user moves to a field, the procedure xxx is called and the correct wait window is shown on the screen.


Additional reference words: VFoxWin 3.00 FoxDos FoxWin 2.00 2.50 2.50a
2.50b
KBCategory: kbprg kbcode
KBSubcategory: FxprgBrowse


THE INFORMATION PROVIDED IN THE MICROSOFT KNOWLEDGE BASE IS PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND. MICROSOFT DISCLAIMS ALL WARRANTIES, EITHER EXPRESS OR IMPLIED, INCLUDING THE WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. IN NO EVENT SHALL MICROSOFT CORPORATION OR ITS SUPPLIERS BE LIABLE FOR ANY DAMAGES WHATSOEVER INCLUDING DIRECT, INDIRECT, INCIDENTAL, CONSEQUENTIAL, LOSS OF BUSINESS PROFITS OR SPECIAL DAMAGES, EVEN IF MICROSOFT CORPORATION OR ITS SUPPLIERS HAVE BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. SOME STATES DO NOT ALLOW THE EXCLUSION OR LIMITATION OF LIABILITY FOR CONSEQUENTIAL OR INCIDENTAL DAMAGES SO THE FOREGOING LIMITATION MAY NOT APPLY.

Last reviewed: April 30, 1996
© 1998 Microsoft Corporation. All rights reserved. Terms of Use.