Go directly to Form without a browse question 1

[rleiman]

Hi Everyone,

Is it possible to call a Form procedure without going through a browse procedure? If so, can you tell me what to do to implement this?

Thanks.

Emad

 

[ShankarJ]

Hi Emad,

Set the Global Request to InsertRecord, ChangeRecord or Deleterecord and call the FORM. Make sure you have cleared the Buffer and Primed the defaults before calling to Insert. Also, make sure you have retrieved the Record before calling to Change/Delete.

Regards

 

[rleiman]

Hi ShankarJ,

By clearing the buffer do I issue somthing like this?
Get (DefaultSettings, 0)

Thanks.

Truly,
Emad

 

[ShankarJ]

Hi Emad,

No. Just CLEAR(PRE:Record) & all the MEMOs in the table as MEMOs are always outside the RECORD structure.

To Insert

CLEAR(PRE:Record) ; CLEAR(PRE:Memo1) ; CLEAR(PRE:Memo2)

PRE:Column1 = '...' ! Prime Initial Values if needed
PRE:Column2 = '...'

GlobalRequest = InsertRecord

MyForm

CASE GlobalResponse
OF RequestCompleted
...
OF RequestCancelled
...
END

To Change

CLEAR(PRE:Record) ; CLEAR(PRE:Memo1) ; CLEAR(PRE:Memo2)
PRErimKeyCol1 = '...' ! Prime Primary Key
IF NOT Access:FILE.Fetch(PRErimKey)
GlobalRequest = ChangeRecord

MyForm

CASE GlobalResponse
OF RequestCompleted
...
OF RequestCancelled
...
END
END

To Delete

CLEAR(PRE:Record) ; CLEAR(PRE:Memo1) ; CLEAR(PRE:Memo2)
PRErimKeyCol1 = '...' ! Prime Primary Key
IF NOT Access:FILE.Fetch(PRErimKey)
GlobalRequest = DeleteRecord

MyForm

CASE GlobalResponse
OF RequestCompleted
...
OF RequestCancelled
...
END
END

Regards

 

[rleiman]

Hi ShankarJ,

Wow! Thank you for all that code.

I will implement mine based on it.

Truly,
Emad