Form - apertar um botao

Form - apertar um botao

post(Event:Accepted,?boton)

Como forcar validacao de um campo

Como forcar validacao de um campo

Control events - Selected - Generated Code (pr-4000)

?campo{prop:touched} = true

Onde colocar codigo para validar em um campo form

Onde colocar codigo para validar em um campo form

Control Events - Accept - Generated Code (pr-7000)

if condicao
beep
message('Texto com erro','Texto ventada',&ICON:EXCLAMATION,BUTTON:CANCEL,BUTTON:CANCEL,1)
select(?)
cycle
end

se quizer testar todos botoes

case message('texto','texto1',icon:question,button:yes+button:no,button:no,1)
of button:no
select(?)
cycle
of button:yes
end

Colocar Codigos depois do form - inclusao-alteracao-exclusao

Colocar Codigos depois do form - inclusao-alteracao-exclusao

Window Manager - Takecompleted (pr-5001)

if sef.request = insertREcord
if sef.request = changeREcord
if sef.request = DeleteREcord

Colocar Codigos antes do form - inclusao-alteracao-exclusao

Colocar Codigos antes do form - inclusao-alteracao-exclusao

Window Manager - Takecompleted (pr-5000)

if sef.request = insertREcord
if sef.request = changeREcord
if sef.request = DeleteREcord

Saber modo - inclusao/alteracao/exclusao

Antes de abrir saber qual modo

ADD-CHANGE-DELETE-VIEW

Window Manager - Init - Open the window(pr-8000)

IF SELF.REQUEST = INSERTRECORD
IF SELF.REQUEST = CHANGERECORD
IF SELF.REQUEST = VIEWRECORD
IF SELF.REQUEST = DELETERECORD

Igualar duas tabelas

Igualar os registros de duas tabelas

tb1:record :=: tb2:record

iguala duas tabelas indepedente das posicoes dos campos

Excluir Registro

Clear(tbl:record)
tbl:campo=xxx
access:tabla.fetch(tbl:chave)
if error()
access:Tabla:deleterecord()
relate:tabla.delete(0)
delete(tabla)
end

Alterar - Registro

Clear(tbl:record)
tbl:campo=xxx
access:tabla.fetch(tbl:chave)
if error()
tbl:campo=xxx
access:Tabla:update()
end

Incluir - Registro

Clear(tbl:record)
tbl:campo=xxx
access:tabla.insert()
if error()
end

Acessa a um registro

clear(tbl:record_
tbl:campo=xxx
access:tabla.fetch(tbl:chave)
if not error()
end