[Resolvido]como excluir dados do forms e subforms

NADIRONUNES 26/5/2012, 15:36

NADIRONUNES: Super Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 578
Registrado : 30/08/2010

Mensagem nº1

como excluir dados do forms e subforms

Mensagem NADIRONUNES 26/5/2012, 15:36

to tentando usar esse codigo do exemplo do criquio

If Is Null(Me.Código) Or Me.Código.Value = "" Then
MsgBox "Não há registros a serem excluídos", vbCritical, "Sem registros"
Exit Sub
ElseIf MsgBox("Tem certeza que quer excluir todos os registros?", vbYesNo + vbQuestion, "Excluir") = vbYes Then
CurrentDb.Execute "DELETE * FROM subos WHERE ordem=" & Me.ordem& ""
CurrentDb.Execute "DELETE * FROM ordem WHERE ordem=" & Me.ordem& ""
DoCmd.RunCommand acCmdRefreshPage
DoCmd.GoToRecord , , acNewRec
MsgBox "Resgistros excluídos com sucesso.", vbInformation, "Sucesso"
Else
End If

mas nao ta funcionando

Convidad 26/5/2012, 16:14

Convidad

Convidad: Convidado

Mensagem nº2

Re: [Resolvido]como excluir dados do forms e subforms

Mensagem Convidad 26/5/2012, 16:14

Alguma mensagem de erro?

Provável problema de Nomes de controle.

Primeiro checa se o campo Código tem um valor, mas este nome não aparece no critério do Execute.

Convidad 26/5/2012, 17:04

Convidad

Convidad: Convidado

Mensagem nº3

Re: [Resolvido]como excluir dados do forms e subforms

Mensagem Convidad 26/5/2012, 17:04

Nadiro
Uma vez que tenha verificado o que o Norberto citou e esteja tudo certo, veja também o seguinte:
Se as tabelas estão relacionadas, somente será necessário deletar o registro na primeira tabela (Ordem).
Para que isso aconteça, abra a janela de relacionamentos e clique na linha que faz o relacionamento entre as duas tabelas e escolha Editar relação.
Na janela que se abre selecione a caixa propagar a exclusão dos registros relacionados.

Pronto, assim toda vez que apagar um registro na primeira tabela, automaticamente será apagado os registros relacionado a ele na segunda tabela.

Abraços

Lupércio 27/5/2012, 01:02

Lupércio

Lupércio: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1143
Registrado : 07/05/2011

Mensagem nº4

Re: [Resolvido]como excluir dados do forms e subforms

Mensagem Lupércio 27/5/2012, 01:02

Boa noite meus amigos!

Uso assim e funciona!

If IsNull(Me.codigoFomulário) Then

MsgBox "Não há registros a serem excluídos!", vbCritical, "Prezado Operador!"
Exit Sub
ElseIf MsgBox("Tem certeza que quer excluir todos os registros?", vbYesNo + vbQuestion, "Prezado Operador!") = vbYes Then

CurrentDb.Execute "DELETE * FROM T_LeituraSubFormulario WHERE CodigoSubform=" & Me.código & ""
CurrentDb.Execute "DELETE * FROM T_LeituraFormulário WHERE codigoFormulário=" & Me.código & ""
DoCmd.RunCommand acCmdRefreshPage

MsgBox "Resgistros excluídos com sucesso!", vbInformation, "Prezado Operador!"

Else
End If

Desculpe por meter o bedelho! Very Happy