USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  ###Sobre mensagem no ACCESS###
Dário Cardoso
não registrado
Postada em 08/11/2006 11:04 hs   
Olá!!!
 
Estamos em um forum VB, mas como a galera VB tambem saca de access então:
 
TENHO RELATORIOS NO ACCESS QUE PUXO VIA VB MAS QUANDO NÃO TEM NADA PRA VISUALIZAR O ACCESS ME DÁ ESSA MENSAGEM "Ação Open Report Cancelada" DAÍ TENHO QUE CLICAR EM "OK" PARA FECHAR O RELATORIO (O QUE PODERIA SER AUTOMATICO).
 
ALGUEM SABE COMO FAÇO PARA PARAR DE RECEBER A MENSAGEM DO ACCESS "Ação Open Report Cancelada"  Emoções
     
Alfterra
Pontos: 2843 Pontos: 2843
SÃO PAULO
SP - BRASIL
Postada em 08/11/2006 17:23 hs            
no vb vc poe uma condicao ..IF...then  se tiver algo chamo o relatorio e se nao tiver nem chama.............
     
PH1959
Pontos: 2843
SÃO JOSÉ DOS CAMPOS
SP - BRASIL
Postada em 09/11/2006 12:37 hs            
eu faço +- a mesma coisa só q eu verifico a qtde de registros e SE for 0 não entra no procedure do relatorio
     
Dário Cardoso
não registrado
Postada em 09/11/2006 14:15 hs   
Obrigado a todos, mas vejamos.... 
Eu ja coloquei uma mensagem no proprio access quando não tem nada pra mostrar....
Como seria esse metodo PH1959? dê mais detalhes por favor....
     
PH1959
Pontos: 2843
SÃO JOSÉ DOS CAMPOS
SP - BRASIL
Postada em 10/11/2006 15:27 hs            
vc faz o seu select da consulta..por ex:
selecao= "select * from tabela where cpf=" & CPFcliente
 
Daí, ANTES de mandar executar o seu relatório, vc vai verificar se existem dados para serem impressos...
set tabela = banco.openrecordset (selecao,dbopensnapshot)
do until tabela.eof
tabela.movenext
loop
N=tabela.recordcount
tabela.close
If N=0 then
     'SE VC QUISER bota uma mensagem aki CASO CONTRARIO o EXIT SUB AÍ DEBAIXO já vai sair fora do relatório
       Msgbox  'Blablabla"
      exit sub
else
endif
' SE CHEGOU ATÉ AKI , significa q existem dados para imprimir  O RELATÓRIO
     
Dário Cardoso
não registrado
Postada em 10/11/2006 15:33 hs   
Valeu PH!!!!!
 
Brigaduuuuuuuuuuuu!!!!Emoções
     
Página(s): 1/2      PRÓXIMA »


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2025   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página