corrigindo minha mensagem anterior, abra-ca-dabra não é um nome de
função válido o certo é abra_ca_dabra. e complementando, para
efetivamente excluir um registro coloca este código dentro de
abra_ca_dabra:
Form= ThisComponent.DrawPage.Forms.getByIndex(0)
consulta = "delete from tabela where id='"+id+"';"
'conecta banco de dados...
RowSet = createUnoService("com.sun.star.sdb.RowSet")
'... na mesma conexão do subformulário e
RowSet.ActiveConnection = Form.ActiveConnection
'configura para ser comando sql
RowSet.CommandType = com.sun.star.sdb.CommandType.COMMAND
'altera o comando para a consulta do cpf do administrador...
RowSet.Command = consulta
'... e a executa
RowSet.execute()
tem que colocar a linha
Form= ThisComponent.DrawPage.Forms.getByIndex(0)
no começo da sub ConfirmaExclusao também
2008/7/13 Juari Muller <[EMAIL PROTECTED]>:
> '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! <--
>
--
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]
