Filip Brnic
Programmer
Command button in the form that checks if the table is in the project, if the table doesnt exist create it, if it does then do nothing.
Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
IF FILE("YourTableName.dbf")
MESSAGEBOX("The table exists.", 0, "Table Check")
ELSE
MESSAGEBOX("The table does not exist.", 0, "Table Check")
ENDIF
IF m.EXISTING = "1.23"
SELECT 0
IF !MYFILE(CHANGE_DIR+'PROJINV.DBF')
CREATE TABLE 'PROJINV.DBF' NAME 'PROJINV' (PROJECTNO C(20) NOT NULL, ;
INVOICE_NO C(6) NOT NULL, ;
FLAG L NOT NULL)
***** Create each index for PROJINV *****
INDEX ON PROJECTNO+INVOICE_NO TAG PROJINV1
INDEX ON INVOICE_NO+PROJECTNO TAG PROJINV2
ENDIF
...