Re: [usuarios OOo] BASE - MENSAGEM AO EXCLUIR REGISTRO.

Sun, 13 Jul 2008 06:24:44 -0700 

'eu começaria assim
sub ConfirnaExclusao
    dim k,BTN_SIM_NAO, RESP_SIM, RESP_NAO as integer
    BTN_SIM_NAO=4
    RESP_SIM=6
    RESP_NAO=7
    k=msgbox("deseja realmente excluir", BTN_SIM_NAO, "Pergunta")
    if(k=RESP_SIM) then
        'faça o que tiver que ser feito pra excluir registro
        abra-ca-dabra(Form.Columns().GetByName("id").Value)
    else
      msgbox("exclusao cancelada pelo usuário")
    end if
end sub

'depois faria a sub abra-ca-dabra

sub abra-ca-dabra(id as string)
    'insira aqui o código que exclui o registro id
    msgbox("Registro "+id+" excluido com sucesso!")
end sub

2008/7/10 Julio Franco <[EMAIL PROTECTED]>:
> Creio que deva ser através de Macro, mas não faço idéia de como criá-la.
> Há algum modelo, tipo Copiar e Colar?
>
> Muito obrigado pessoal!
>
> Atte.
> Júlio
>
>>>> [EMAIL PROTECTED] 10/07/2008 18:31 >>>
>
> Pessoal, boa noite.
>
> Como faço para exibir uma mensagem com a opção sim ou Não para excluir um 
> registro de uma tabela, isso através de um formulário com aquela barra de 
> navegação inserida?
>
> Obrigado,
> Júlio Franco
>
>
>
>



-- 
home rig:
E2160 [EMAIL PROTECTED] (9*333/1.42V)|XFX 8600GT 620Mhz GPU/1.6Ghz GDDR3|2*2Gb
Viper 1.066Ghz @5-5-5-15|Asus P5K SE|Zalman ZM360BAPS
mobile:
HP Pavillion DV6230BR|Turion MK-36 2Ghz|2*1Gb DDR2-667|802.11g Wi-Fi
work:
Celeron 2.4Ghz|256Mb DDR|{40Gb PATA, 680Gb network shares} disk
--> check jm.freeshell.org/dl - bash and Cell/BE programs! <--

---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Responder a