[Resolvido]Consulta selecao usando condicao para executar consulta exclusao

Preados amigos..

Tenho duas consultas...
Uma selecao: QrySelect
Outra Exclusao: QryDelete


A colsulta selecao filtra atraves do FormPrincipal o valor de uma CaixaTexto (Num_or) e conta a quantidade de Registros que tem o mesmo numero no SubFormulario (tabela Relacionada)


O que pretendo...

que no código se execute a consulta Select e se = 0, execute a QryDelete

If DoCmd.OpenQuery "QrySelect" = 0 Then
DoCmd.OpenQuery "QryDelete"

Mas assim nao esta dando certo.. Como fazer isso?

Obrigado

Não sei se entendi bem, mas se quer apenas executar a consulta Select, não seria algo assim?

DoCmd.OpenQuery "QrySelect"

Prezado Criqui.. eu tenho outro topico no forum com a mesma questao vista de outra ótica, mas ate hoje nao obtive nenhuma resposta... Ontem um amigo de brasilia me deu essa ideia... e estou tentando..

O BD Parcelas2008 que o Amigo J.Paulo me enviou, se voce ja o viu... ele cadastra parcelas de um cliente...
Ficando o Cliente e o Valor toral na Tabela Principal e as parcelas na tabela relacionada...

Ambas relacionadas pelo Campo Num_Or

eu alterei o modelo para que quando eu clieque no quitada... a parcela seja enviada para uma terceitra tabela (TabelaQuitadas) e se esxclua o registro quitado...

Entao.. supondo que o cliente tenha 2 parcelas... Quita-se a primeira, restando um registro na tabela parcelas...
ai quando quitar a ultima parcerla e esse cliente nao tiver mais parcelas,,, se exclua o cliente da tabela principal...

Entao eu pensei em usar a consulta selecao que conta os valorees de Num_or na tabela relacionada,,, e caso retorne valor = o ai sim se executa a consulta exclusao... deletando o cliente da tabela principal , usando o criterio: [Formulários]![Cadastro_Parcelas]![num_or] - para exclusao do controle ativo no formprincipal (que e o registro fa tabela principal)

Espero que tenha entendido

Talvez se usar o DCount dê certo:

If DCount("*", "Tabela", "Campo=" & ...) = 0 Then
Executa a consulta exclusão
End If

Aí precisa adaptar para o seu caso, mas mais ou menos por aí.

Esse e o outro topico visto sobre outra otica

http://maximoaccess.forumeiros.com/t2271-exclusao-de-registro-automaticamente-se-nao-houver-resgistro-em-tabela-relacionada

Mas ate hoje nao tive nenhuma resporsta nele por isso escrevi esse novo topico

ao usar o seu exemplo

If DCount("*", "Tabela", "Campo=" & ...) = 0 Then
Executa a consulta exclusão
End If

Onde constara que se exclua apenas onde nao ha oregistros Num_or ?

If Dcount,,,,, (nessa linha que escrecveu esta explicito que conte os registros Num_or do controle ativo?)

Bem, aí já não posso dizer sem conhecer a estrutura do aplicativo. O DCount vai contar registros que tenham algo em comum. Se retornar 0, então executa a consulta exclusão. Para ser mais preciso, só mesmo conhecendo como o processo é feito. São duas tabelas envolvidas, certo? Se der para colocar um exemplo de como ficam os registros nessas tabelas com seus campos em comum, talvez ajude.

Criquio.. Segue o link

O codigo esta no envento apos atualizar do campo Quitada no subForm Forma_Pgto_Cliente...

Entre no Form Cadastro parcelas e escolha o cliente na lstbox e faca uma quitacao para ver a logica..
Quando o cliente nao tiver mais parcelas preciso que o cliente seja excluido..

http://dl.dropbox.com/u/26441349/VidaNova%20-%20C%C3%B3pia%20%28Surveillance-PC%27s%20conflicted%20copy%202011-04-26%29.zip

Grato

Por que você quer excluir as vendas quitadas? E se futuramente precisar desses dados? Não seria melhor deixar tudo lá?

Eu criei uma terceira tabela onde envio as informaçoes excluidas...
porque isso?

Seguinte: Se um cliente faz 2 ou mais compras.. acumularia na tabela principal uma duplicidade de nomes de clientes o que poderia causar confusao ao usuario na hora de pesquisar ou fazer quitacoes... eu poderia ate esconder a linha na consulta cujo debitos estivessem quitados, via criterio na pesquisa (é negado sim) mas pela '
ótica de como estou criando o sistema, achei melhor assim

Olha, eu prefiro colocar um campo Status o qual ficaria vazio até quitar, e depois de quitado colocaria Quitado nesse campo, ou um campo de nome Quitado que ficaria com o Não até ser quitado e então passaria a Sim. Acho que é mais prático.

Eu entendo sua visão, mas mesmo com o campo quitada.. esse cliente ainda continuaria na tabela principal, e quando o mesmo fizer outra compra, acumularia 2 regisros com o mesmo nome...

Eu preciso que nessa tabela so tenha clientes com parcelar...

Nao tendo parcelas... se exclui...

Esse e o controle apenas das vendas parceladas...
nao usarei essa tabela para gerar relatorios.. usarei para isso a tabela Parcelas Quitadas//

Vale frisar que o registro da venda fica em outra tabela... no form de vendas...e esse form ja envia a venda pra tabela respectiva de controle de vendas...

Esse ai é so para eventuais parcelamentos...

Olha, eu ainda não tive como analisar toda a estrutura que envolve a questão, mas acredito que se você contar os registros da tabela cujo código de compra sejam iguais e que tenha todos as parcelas com o campo Pago = -1 dará certo:

If DCount("*", "NomeTabela", "Código=" & Me.Código & " And Quitada=0") = 0 Then
Corre a consulta exclusão
End If

Agora, eu faria isso por sql, usando o Delete.

Acontece que quando clico e o valor do campo passa para -1 ele e automaticamente excluido..
entao nao da pra usar esse criterio...

Teria que ser assim.. Contar os registros do campo Num_Or e comparar com o Do controle ativo no form...

se a consulta retonar = o executar o delete do registro na tabela principal...

Entendeu Amigão??

Mas essa é a ideia. Exatamente contar as prestações da venda e se todas estiverem como -1, exclui, caso contrário, não. No meu código acima tem que mudar de 0 para -1.

O que ocorre e que o cliente que sera excluido nao tera mais nenhum registro na tbl de parcelas....

entao como o codigo vai identifica-lo?

Ajuda ai amigão..
vou testar esse codigo aqui...
e em breve dou retorno

Prezado Criquio.. esta dando erro de sitaxe
Operador faltando "Num_Or=" & Me.Num_OR & " And Quitada=-1")

If DCount("*", "tbl_Parcelas_Vendas", "Num_Or=" & Me.Num_OR & " And Quitada=-1") = 0 Then
DoCmd.OpenQuery "QryDelete"
End If


Me ajude porfavor... estou dependendo apenas disto pra encerrar esse sisteminha

Grato...

Tente Assim:
If DCount("*", "tbl_Parcelas_Vendas", "Num_Or=" & Me.Num_OR & "" And Quitada=-1) = 0 Then
DoCmd.OpenQuery "QryDelete"
End If

Sds,

Charles, cumprimentando-lhe lhe darei uma breve expolicacao...

a consulta deleçao eu ja tenho, ela usa o seguinte criterio:
[Formulários]![Cadastro_Parcelas]![num_or]

Ela apaga o campo na tabela Cendas_parcelas (Num_or) condizente com o Num_or do controle ativo no form...

mas preciso que ele seja executada apenas se na tabela relacionada nao contenha registros para a tebla Principal

Ou seja

Se: Tabela principal - Cliente X ( 1 registro)
Tabela relacionada - Cliente x (5 parcelas"Registros")
entao nao exclui

mas se:
Se: Tabela principal - Cliente X ( 1 registro)
Tabela relacionada - Cliente x (0 parcelas"Registros")
exclui-se o Cliente X da tabela principal

Espero que tenha entendido

Se puder me ajudar

Acho que estamos fazendo alguma confusão. O certo é se não tiver nenhum campo Sim/Não com valor 0, ou seja, desmarcado, e não com valor -1, que significa marcado.

Nao prezado criquio...

é não ter nenhum registro em neum campo
Campos Null
Veja como excpliquei ai para o Charles porfavor

Caro Cherles.. Tentei a sua linha

Deu tipos incompativeis...

Vejamos: à medida que as prestações vão sendo pagas, você vai marcando a checkbox da referida prestação, certo? Ela que estava desmarcada, com valor 0, passa à marcada, com valor -1. Então, quando não restar nenhuma desmarcada, chegou a hora de deletar o registro, não é isso?

Bom dia Criquio,

rss, acho que vc tem razão.

Harysohn:

E que não estou entendendo é porque se vc impor integridade

referencial o cliente não vai ser deletado enquanto tiver

parcelas relacionadas a ele.

Outra coisa, vc tá com duas tabelas de parcelas? por que ?

Sds,

Nesse form charles eu quero que tenha apenas cliente com parcelas em aberto... se uma parcela é paga.. envio o registro pago pra essa terceira tabela, apagando o registro...

portanto quando o cliente nao tiver mais parcelas... ele e apagado da tabela principal...
Todo o controle de parcelas pagas, eu faco na terceira tabela (Uma tabela apenas para armazenar os valores pagos)

porque isso...?

Supondo que o cliente tenha mais de 1 compra parcelada... Ex. 3 compras....

1 Compra (sem parcelas a pagar)
2 Compra (com parcelas a pagar)
3 Compra (com parcelas a pagar)

se nao apagar o registro da primeira compra... isso acumularia o mesmo cliente desnecessariamente na tabela.. pois essa compra paga ja foi enviada para a tabela Quitadas..(que é onde faço o controle dos pagamentos)

entao se o usuario abrir o form teria 3 registros para o mesmo cliente.. sendo que um dos registros, desnecessariamente, pois nao tem parcelas a pagar.. pois estas ja foram enviadas para a tabela quitadas)

Espero ter sido claro

prezado criquio, com relacao a sua observacao

Vejamos: à medida que as prestações vão sendo pagas, você vai marcando a checkbox da referida prestação, certo? Ela que estava desmarcada, com valor 0, passa à marcada, com valor -1. Então, quando não restar nenhuma desmarcada, chegou a hora de deletar o registro, não é isso?




não e isso.. pois depois de marcada a CheckBox.. o registro é apagado e enviado copia para uma terceira tabela...
entao nao tera registros para utilizar o criterio que pretende....


OLHE ESSA EXPLICAÇÃO:

Se: Tabela principal - Cliente X ( 1 registro)
Tabela relacionada - Cliente x (5 parcelas"Registros")
entao nao exclui

mas se:
Se: Tabela principal - Cliente X ( 1 registro)
Tabela relacionada - Cliente x (0 parcelas"Registros")
exclui-se o Cliente X da tabela principal

A questão é a forma como você está montando a coisa. O certo seria não ter que apagar nada. Como eu disse a um tempo atrás, bastaria você ter um campo Status. Esse campo que controlaria o que seria exibido ou não. Mesmo que o cliente tenha mais de uma compra, seria(m) exibida(s) apenas a(s) compra(s) que ainda não foi(ram) quitada(s). Você poderia ter uma consulta para filtrar compras ainda não quitadas tambem, exibindo apenas as prestações em aberto. Alem de simplificar a coisa toda, não teria esse tanto de registros sendo movidos, apagados, etc. Isso vai inchando o banco e se torna necessário fazer Compact/Repair com muito mais frequência, aumentando consideravelmente os riscos de corromper o banco.

Eu entendo a sua ótica... e esta certo... também...

Mas para o que preciso... nao serve assim...

Prefiro como fiz... perdoe-me dar-lhe tanto trabalho

Presiso apagar os registros dessa tabela.. pois ela e temporaria.. so armazena o cliente se tiver prestacoes pendentes...

as parcelas quitadas ficam na terceira tabela...

o resultado e quase o mesmo com o campo status e o filtro de consulta que voce falou...
so que eu prefiro dessa maneira.. pois para o usoo do sistema que fiz.. sera melhor assim

Grato

A qry Delete vc pode fazer com uma sql aninhada, não tenho como testar aqui, mas é algo como:

Delete * From TblPrincipal
where Num_OR = Forms!SeuForm!CXTxtCod And Not In(Select Num_OR from TblRelacionada)

Seria para apagar o registro da tabela principal do codigo

ativo do formulario e se não existir na tblRelacionada

Sds,

ok. Vou testar

Erro de sintaxe (operador faltando)na expressão de consulta "Num_or= Forms!Cadastro_Parcelas!Num_Or And Not In(Select Num_OR from TblRelacionada)

Tente:

Delete Num_OR,* From TblPrincipal
where Num_OR = Forms!SeuForm!CXTxtCod And Not In(Select Num_OR from TblRelacionada)

Ou

Delete Num_OR, * From TblPrincipal
where Num_OR Not In(Select Num_OR from TblRelacionada)
And Num_OR = Forms!SeuForm!CXTxtCod

Gente... olha so...
Vamos tentar como o Criqui e o charles falou...
sem terceira tabela.. usando criterios para esconder os campos -1.. sem deletar...

Fiz isso...quando clico na Check Box.. ela faz a quitacao... na consulta esta criterios "0" Fiz um requery.. e deu certo... escondeu o registro da ChekBox marcada

Ate ai tudo bem...

Agora preciso que quando nao tiver mais registros "0" (na CheckBox) na tabela relacionada.. o nome do cliente nao apareca na lstbox no form....

Na consulta da list box onde tem o nome do cliente adicionei o campo Quitada e coloquei o critrio "0"
Ate ai tudo bem...
quando o cliente nao tem mais parcelas a pagar o nome do cliente fica oculto.. mas ai na lstBox quando acrescentei o campo quitada na consulta,, aparece um nome para cada parcela do cliente.. e nessa list preciso que aparecas apenas 1 nome do c liente...

Grato

Resolvi a questao acima... coloquei o criterio totais = Agrupar...

Agora para finalizar...

Preciso que quando clico na ChekBox (subformulario) faça um requery ou refresh na lst box no form principal

Apenas isso para fechar

aguardo


Estou usando essa ótica do Amigo Criquio:

A questão é a forma como você está montando a coisa. O certo seria não ter que apagar nada. Como eu disse a um tempo atrás, bastaria você ter um campo Status. Esse campo que controlaria o que seria exibido ou não. Mesmo que o cliente tenha mais de uma compra, seria(m) exibida(s) apenas a(s) compra(s) que ainda não foi(ram) quitada(s). Você poderia ter uma consulta para filtrar compras ainda não quitadas tambem, exibindo apenas as prestações em aberto. Alem de simplificar a coisa toda, não teria esse tanto de registros sendo movidos, apagados, etc. Isso vai inchando o banco e se torna necessário fazer Compact/Repair com muito mais frequência, aumentando consideravelmente os riscos de corromper o banco.

Tente o evento "Após atualizar" da checkbox:

Forms!NomeFormPrincipal!Nomelstbox.Requery

Caro Criquio.. entendeu como fiz agora...? usei sua sugestao... precisarei mudar alguns relatorios no sistema...

mas esta certo.. fica mais descomplicado mesmo...

UFA!!!!


Resolvido o caminho das pedras....


Grato Criquio.. Grato Charles pela paciência e ajuda....

Valeu. Entendi sim. Bom trabalho.

Criquio.. uma questao apenas...

Supondo que o usuario faca uma marcacao na Ckbox inadivertidamente.... e precise desmarca-la voltando a mesma ao criterio (desmarcada)

ele nao conseguiria fazer pois elas estao em oculto..

Pensei em criar um botao chamando apenas o subform condizente com o controle ativo do form (num_or)...
nesse subform que seria chamada (seria uma copia do subform contido no Form principal) so que sem o criterio oculto...

Como chamar esse sub form para que o mesmo mostre apenas o Num__or do controle ativo?

Tente algo assim:

DoCmd.OpenForm "NomeDoForm", , "Num_Ord=" & Me.Num_Ord

DoCmd.OpenForm "NomeDoForm", , "Num_Ord=" & Me.Num_Ord
Ele fala que nao localizou o objeto Num_or=7...

007 e o numero do controle ativo...

Tente criar uma consulta e coloque como critério desse campo, o mesmo campo do form:

Como Formulários!NomeForm!NomeCampo

Faça o formulário à partir dessa consulta e abra-o sem o filtro no botão:

DoCmd.OpenForm "NomeForm"

Veja se consegue corrigir essa linha...
para que eu nao precise usar consultas..


If Not IsNull(Me.Num_OR) Then GoTo Gerar
'If IsNull(Me.Num_OR) Then GoTo Mensagem
Gerar:
Dim Filtro As String

Filtro = "[Num_Or] = " & Str(Me.Num_OR)
DoCmd.OpenForm "Forma_Pgto_Cliente_Estorno", acViewNormal, , Filtro


DA MENSAGEM: a opercao OpenForm foi cancelada

tentei assim e deu: Tipo de dados incopativeis na expressao de criterios

Dim stDocName As String
Dim stLinkCriteria As String


stDocName = "Forma_Pgto_Cliente_Estorno"

stLinkCriteria = "[Num_OR]=" & "'" & Me![Num_OR] & "'"

DoCmd.OpenForm stDocName, , , stLinkCriteria

Por que não assim?

Dim Filtro As String
Filtro = "[Num_Or] = " & Str(Me.Num_OR)

If Not IsNull(Me.Num_OR) Then
DoCmd.OpenForm "Forma_Pgto_Cliente_Estorno", acViewNormal, , Filtro
Else
MsgBox "Sua mensagem",,""

Beleza Criquio... Funcionou

Muito Obrigado!!!

Ótimo! Concluído e arquivado (pelo menos por enquanto né?)

Claro... rsrsrs