[Resolvido]Consulta Eliminar

Boa tarde Amigos

Tenho este comando ao fechar um formulário.

Private Sub Form_Close()
DoCmd.SetWarnings False
MsgBox "Atenção Movimento Não Foi Registado " & vbCrLf & "Motivo Falta de campos Obrigatórios", vbExclamation, "Gestão Bancária"
DoCmd.OpenQuery ("EliminarLançamentos") 'Executa a consulta eliminar registos da tabela lançamentos
DoCmd.OpenQuery ("EliminarLançamentosdatados") 'Executa a consulta eliminar registos da tabela lançamentosDatados
DoCmd.SetWarnings True
End Sub

Mas a mensagem aparece sempre que o formulário é fechado.
Quero que a mensagem só apareça se ao executar o respetivo Comando nas ConsultasEliminar tenham sido eliminadas linhas.

Obrigado

Olá Assis

Se vc tem a mensagem dentro do Private Sub Form_Close() ela irá aparecer sempre que ele for fechado? Não é correto?
Creio que deverias criar um procedimento de comparação para que a mensagem fosse executada se uma condição não fosse verdadeira.

Boa tarde, Assis
Coloca
dim MostraMsg as boolean
With currentdb
.Execute "CódigoSQLEliminarLançamentos"
if .RecordsAffected>0 then MostraMsg=true
.Execute "CódigoSQLEliminarLançamentosdatados"
if .RecordsAffected>0 then MostraMsg=true
End With
if MostraMsg then MsgBox "Atenção Movimento Não Foi Registado " & vbCrLf & "Motivo Falta de campos Obrigatórios", vbExclamation, "Gestão Bancária"

Alexandre


Fica a amarelo esta linha

.Execute "CódigoSQLEliminarLançamentos"

Substituiste pelo código SQL que tens na consulta?

Alexandre fiz assim


Private Sub Form_Close()
Dim MostraMsg As Boolean
With CurrentDb

DoCmd.SetWarnings False
DoCmd.OpenQuery ("EliminarLançamentos") 'Executa a consulta eliminar registos da tabela lançamentos
DoCmd.OpenQuery ("EliminarLançamentosdatados") 'Executa a consulta eliminar registos da tabela lançamentosDatados
DoCmd.SetWarnings True

.Execute "CódigoSQLEliminarLançamentos" ' Aqui fica a amarelo
If .RecordsAffected > 0 Then MostraMsg = True
.Execute "CódigoSQLEliminarLançamentosdatados"
If .RecordsAffected > 0 Then MostraMsg = True
End With
If MostraMsg Then MsgBox "Atenção Movimento Não Foi Registado " & vbCrLf & "Motivo Falta de campos Obrigatórios", vbExclamation, "Gestão Bancária"
End Sub

Tinha sugerido colocar a expressão SQL das consultas directamente no código do botão e eliminar as consultas.
Assim, coloca
Private Sub Form_Close()
Dim MostraMsg As Boolean
With CurrentDb
.Execute "CódigoSQLEliminarLançamentos" ' Aqui fica a amarelo
If .RecordsAffected > 0 Then MostraMsg = True
.Execute "CódigoSQLEliminarLançamentosdatados"
If .RecordsAffected > 0 Then MostraMsg = True
End With
If MostraMsg Then MsgBox "Atenção Movimento Não Foi Registado " & vbCrLf & "Motivo Falta de campos Obrigatórios", vbExclamation, "Gestão Bancária"
End Sub

Alexandre
Eis o erro

Ó Assis, o código SQL é o que está na consulta em modo SQL

Obrigado Alexandre

Hoje quase não chegava lá, foi preciso o " Ó Assis " então aí parei e repensei. rsrsrsrssr

Obrigado Amigo