MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


3 participantes

    [Resolvido]Impressão Baseado em Forms! Fechamento

    APJesus
    APJesus
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 367
    Registrado : 21/09/2010

    [Resolvido]Impressão Baseado em Forms! Fechamento Empty Impressão Baseado em Forms! Fechamento

    Mensagem  APJesus 19/11/2010, 01:55

    Boa noite, galera, venho mais uma vez solicitar ajuda de todos. estou criando agora alguns relatórios e estou com uma dúvida. Vamos lá: Tenho diversos forms que usarei a mesma base que for colocada aqui. Vou falar de um em específico: Tenho um FORM_FUNCIONARIOS, que quando clico no ícone de impressão da ficha, abre um pequeno form ( cx de diálogo ), com um campo não acoplado que puxa o nome do funcionario em questão (O que estiver aberto no FORM_FUNCIONARIOS),para executar uma consulta que foi criada com critérios baseado neste nome da cx de diálogo. clico executa, imprime, tudo certinho. Funfa que é uma beleza. Retirei o exemplo do NorthWind (faturas) e adaptei ao meu projeto, e queria que ao imprimir o relatório o form (Cx de diálogo) fosse fechada, mas não estou conseguindo encaixar o comando no código: o que estou usando é este:

    Private Sub ImprimeFichaFunc_Click()
    ' Este código foi criado baseado no modelo northwindOn Error GoTo Err_ImprimeFichaFunc_Click

    Dim strNomeDoc As String

    strNomeDoc = "rpt_Funcionarios"
    ' Imprime o relatório Funcionarios usando a consulta filtro de funcionarios
    ' para imprimir o funcionário da ficha atual baseado em caixa de diálogo confirmando operação.
    DoCmd.OpenReport strNomeDoc, acViewNormal, "qryFuncionarios"

    Exit_ImprimeFichaFunc_Click:
    Exit Sub

    Err_ImprimeFichaFunc_Click:
    ' Se a ação foi cancelada pelo usuário, não exibe uma mensagem de erro. Const conErrDoCmdCancelled = 2501
    If (Err = conErrDoCmdCancelled) Then
    Resume Exit_ImprimeFichaFunc_Click
    Else
    MsgBox Err.Description
    Resume Exit_ImprimeFichaFunc_Click
    End If

    End Sub

    Onde entraria o comando no código acima que funfa esperto?
    Desde já agradeço.
    Dilson
    Dilson
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1743
    Registrado : 11/11/2009

    [Resolvido]Impressão Baseado em Forms! Fechamento Empty Re: [Resolvido]Impressão Baseado em Forms! Fechamento

    Mensagem  Dilson 19/11/2010, 02:38

    Nesse pequeno formulário (cx de diálogo) vá no intervalo do cronometro coloque 0 depois vá no Timer e escreva DoCmd.Close

    No código abaixo coloque TimerInterval = 1000

    Private Sub ImprimeFichaFunc_Click()
    ' Este código foi criado baseado no modelo northwindOn Error GoTo Err_ImprimeFichaFunc_Click

    Dim strNomeDoc As String

    strNomeDoc = "rpt_Funcionarios"
    ' Imprime o relatório Funcionarios usando a consulta filtro de funcionarios
    ' para imprimir o funcionário da ficha atual baseado em caixa de diálogo confirmando operação. DoCmd.OpenReport strNomeDoc, acViewNormal, "qryFuncionarios"
    TimerInterval = 1000


    Exit_ImprimeFichaFunc_Click:
    Exit Sub

    Err_ImprimeFichaFunc_Click:
    ' Se a ação foi cancelada pelo usuário, não exibe uma mensagem de erro. Const conErrDoCmdCancelled = 2501
    If (Err = conErrDoCmdCancelled) Then
    Resume Exit_ImprimeFichaFunc_Click
    Else
    MsgBox Err.Description
    Resume Exit_ImprimeFichaFunc_Click
    End If

    End Sub

    Entendendo:
    Quando clicar ele aciona o relógio, que no Timer possui o comando DoCmd.Close que fecha o formulário cx de diálogo.





    APJesus
    APJesus
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 367
    Registrado : 21/09/2010

    [Resolvido]Impressão Baseado em Forms! Fechamento Empty Re: [Resolvido]Impressão Baseado em Forms! Fechamento

    Mensagem  APJesus 19/11/2010, 10:22

    Bom dia! Dilsão. Fico agradecido pelo rápido retorno.Vou adaptar testar e respondo ou dou como resolvido o tópico. No momento estou sem accesso, tão logo o tenha respondo.
    Desde já agradeço
    APJesus
    APJesus
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 367
    Registrado : 21/09/2010

    [Resolvido]Impressão Baseado em Forms! Fechamento Empty Re: [Resolvido]Impressão Baseado em Forms! Fechamento

    Mensagem  APJesus 19/11/2010, 16:09

    Dilson, como diz o mestre não Funfou! Fiz todo o ptocedimento e o form (cx Diálogo) continua aberto na frente do FORM_FUNCIONARIOS.

    APJesus
    APJesus
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 367
    Registrado : 21/09/2010

    [Resolvido]Impressão Baseado em Forms! Fechamento Empty Re: [Resolvido]Impressão Baseado em Forms! Fechamento

    Mensagem  APJesus 19/11/2010, 16:21

    Dilson, fiz uma modificação no intervalo, e alterei para outro valor diferente de zero, por exemplo 5000 (5seg), aí funciona. Mas se eu não clicar em cinco segundos ele feche automaticamente, forçando ao clique novamente para imprimir.
    se conseguir me dar um dica para somente fechar ao imprimir fico agradecido.

    Valeu.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    [Resolvido]Impressão Baseado em Forms! Fechamento Empty Re: [Resolvido]Impressão Baseado em Forms! Fechamento

    Mensagem  JPaulo 19/11/2010, 16:24

    Um pitaco apenas...

    Teste por favor...

    Private Sub ImprimeFichaFunc_Click()
    ' Este código foi criado baseado no modelo northwindOn Error GoTo Err_ImprimeFichaFunc_Click

    Dim strNomeDoc As String

    strNomeDoc = "rpt_Funcionarios"
    ' Imprime o relatório Funcionarios usando a consulta filtro de funcionarios
    ' para imprimir o funcionário da ficha atual baseado em caixa de diálogo confirmando operação.
    DoCmd.OpenReport strNomeDoc, acViewNormal, "qryFuncionarios"

    DoEvents

    DoCmd.Close

    ' Se a ação foi cancelada pelo usuário, não exibe uma mensagem de erro. Const conErrDoCmdCancelled = 2501
    If (Err = conErrDoCmdCancelled) Then
    Resume Exit_ImprimeFichaFunc_Click
    Else
    MsgBox Err.Description
    Resume Exit_ImprimeFichaFunc_Click
    End If
    End Sub


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Impressão Baseado em Forms! Fechamento Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Impressão Baseado em Forms! Fechamento Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Impressão Baseado em Forms! Fechamento Folder_announce_new Instruções SQL como utilizar...
    APJesus
    APJesus
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 367
    Registrado : 21/09/2010

    [Resolvido]Impressão Baseado em Forms! Fechamento Empty Re: [Resolvido]Impressão Baseado em Forms! Fechamento

    Mensagem  APJesus 19/11/2010, 16:57

    Amigão. deu erro de compilação. Rótulo não definido. na linha em destaque abaixo:
    Só recaptulando: FORM_FUNCIONARIOS, contem um botão de impressão que após este me abre um FORM_DIALOGO_FUNC, neste form pequeno(DIALOGO) existe a pergunta. Deseja realmente imprimir a ficha do funcionário selecionado? Contém 2 botões (sim e não), neste mesmo FORM tem uma cx de texto não acoplada baseado em uma consulta com critérios que puxa a informação do nome do funcionario do FORM_FUNCIONÁRIO, afim de evitar cliques e digitação desnecessárias. Clicando em Sim, o comando que estava imprime baseado no nome que estava na cx texto, etc..., mas após imprimir queria que fechasse o FORM_DIALOGO_FUNC automaticamente. Obs: este form DIALOGO, foi criado somente para não haver impressão direta! solicita uma confirmação, porque existem usuarios curiosos, que só porque tem um icone legal quer clicar para ver o que é, gerando custo de papel, etc... E a camada de ozônio com mais queda de árvores para fazer papel. (rsrsrsr)

    Private Sub ImprimeFichaFunc_Click()
    ' Este código foi criado baseado no modelo northwindOn Error GoTo Err_ImprimeFichaFunc_Click

    Dim strNomeDoc As String

    strNomeDoc = "rpt_Funcionarios"
    ' Imprime o relatório Funcionarios usando a consulta filtro de funcionarios
    ' para imprimir o funcionário da ficha atual baseado em caixa de diálogo confirmando operação.
    DoCmd.OpenReport strNomeDoc, acViewNormal, "qryFuncionarios"

    DoEvents

    DoCmd.Close

    ' Se a ação foi cancelada pelo usuário, não exibe uma mensagem de erro. Const conErrDoCmdCancelled = 2501
    If (Err = conErrDoCmdCancelled) Then
    Resume Exit_ImprimeFichaFunc_Click
    Else
    MsgBox Err.Description
    Resume Exit_ImprimeFichaFunc_Click
    End If
    End Sub


    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    [Resolvido]Impressão Baseado em Forms! Fechamento Empty Re: [Resolvido]Impressão Baseado em Forms! Fechamento

    Mensagem  JPaulo 19/11/2010, 17:08

    Logico rsrsrs o On Error GoTo Err_ImprimeFichaFunc_Click estava à frente do comentario.


    Private Sub ImprimeFichaFunc_Click()
    ' Este código foi criado baseado no modelo northwind

    On Error GoTo Err_ImprimeFichaFunc_Click

    Dim strNomeDoc As String

    strNomeDoc = "rpt_Funcionarios"
    ' Imprime o relatório Funcionarios usando a consulta filtro de funcionarios
    ' para imprimir o funcionário da ficha atual baseado em caixa de diálogo confirmando operação.
    DoCmd.OpenReport strNomeDoc, acViewNormal, "qryFuncionarios"

    DoEvents

    DoCmd.Close

    ' Se a ação foi cancelada pelo usuário, não exibe uma mensagem de erro.
    Const conErrDoCmdCancelled = 2501
    If (Err = conErrDoCmdCancelled) Then
    Resume Exit_ImprimeFichaFunc_Click
    Else
    MsgBox Err.Description
    Resume Exit_ImprimeFichaFunc_Click
    End If
    End Sub




    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Impressão Baseado em Forms! Fechamento Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Impressão Baseado em Forms! Fechamento Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Impressão Baseado em Forms! Fechamento Folder_announce_new Instruções SQL como utilizar...
    APJesus
    APJesus
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 367
    Registrado : 21/09/2010

    [Resolvido]Impressão Baseado em Forms! Fechamento Empty Re: [Resolvido]Impressão Baseado em Forms! Fechamento

    Mensagem  APJesus 19/11/2010, 17:25

    Amigo. Não estava não, foi somente na hora de colar no tópico. Após o erro de compilação ele marca a linha que descrevi acima e depois destaca o cabeçalho:
    Private Sub ImprimeFichaFunc_Click().

    Sinceramente. adoro fazer tabelas, forms, relacionamentos, mas quando chega ao relatórios fico meio desanimado, não sei explicar porque? Vou ver se arrumo alguma parceria para fazer esta parte!

    Abraços
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    [Resolvido]Impressão Baseado em Forms! Fechamento Empty Re: [Resolvido]Impressão Baseado em Forms! Fechamento

    Mensagem  JPaulo 19/11/2010, 17:28

    Copie este ultimo que está no meu post, não tem erros.

    Logico, não copie o Private Sub ImprimeFichaFunc_Click()
    nem o End Sub

    Isso já pertence ao seu botão.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Impressão Baseado em Forms! Fechamento Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Impressão Baseado em Forms! Fechamento Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Impressão Baseado em Forms! Fechamento Folder_announce_new Instruções SQL como utilizar...
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    [Resolvido]Impressão Baseado em Forms! Fechamento Empty Re: [Resolvido]Impressão Baseado em Forms! Fechamento

    Mensagem  JPaulo 19/11/2010, 17:41

    Alessandro, só uma dica.

    DoEvents passa o controlo para o sistema operacional do seu HD.
    O controlo é devolvido ao código, após o sistema operacional tenha concluído o processamento dos eventos.

    Daí após a impressão o formulario tem de fechar.


    Abraço e bom final de semana.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Impressão Baseado em Forms! Fechamento Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Impressão Baseado em Forms! Fechamento Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Impressão Baseado em Forms! Fechamento Folder_announce_new Instruções SQL como utilizar...
    APJesus
    APJesus
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 367
    Registrado : 21/09/2010

    [Resolvido]Impressão Baseado em Forms! Fechamento Empty Re: [Resolvido]Impressão Baseado em Forms! Fechamento

    Mensagem  APJesus 19/11/2010, 17:49

    Tá tudo certinho amigo! será que não pode ser algum nome do form, botão, etc...

    No código: Tem o nome do botão que clico para imprimir: ImprimeFichaFunc,
    tem o nome do relatório que vai ser aberto: rpt_funcionarios, tem o nome da consulta que contém o critério: qryFuncionarios, mas não observo o nome do form que tem que ser fechado. Sei que DoCmd.close já faz no form esta função, mas não teria que colocar o nome do form Dialogo no código? Já queimei a mufa!!! e continua dando pau!!!
    Mais uma vez agradeço a preocupação e desculpe o transtorno compartilhando este problema que parece ser simples , mas tá dificil, hein...(rsrs)
    APJesus
    APJesus
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 367
    Registrado : 21/09/2010

    [Resolvido]Impressão Baseado em Forms! Fechamento Empty Re: [Resolvido]Impressão Baseado em Forms! Fechamento

    Mensagem  APJesus 19/11/2010, 18:03

    João Paulo, vou deixar a cabeça esfriar um pouco rever passo a passo e se novamento não conseguir vou deixar no intervalo do cronômetro, conforme Dilson colocou ou faço via macro Função:

    Abrir Relatório
    Nome:rpt_funcionarios
    Imprimir
    Fechar
    DIALOGO_FUNC
    Fechar
    rpt_funcionarios

    Desde já agradeço a todos...
    Dilson
    Dilson
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1743
    Registrado : 11/11/2009

    [Resolvido]Impressão Baseado em Forms! Fechamento Empty Re: [Resolvido]Impressão Baseado em Forms! Fechamento

    Mensagem  Dilson 19/11/2010, 19:39

    Alessandro,
    Fiz uma simulação aqui é funciona no perfeito.

    Mas, vamos atraz da solução:

    Veja como coloquei aqui

    Dim stDocName As String

    stDocName = "rpt_Funcionarios"
    DoCmd.OpenReport stDocName, acPreview 'Visualiza na tela
    DoCmd.OpenReport stDocName, acNormal 'Manda para a impressora
    TimerInterval = 1000 'Inicia o cronometro que em 1 segundo fechará o formulário


    Por que você direciona a visualização para rpt_Funcionarios e a impressão para qryFuncionarios?

    Se ambos os caminhos levarem ao mesmo montante de dados, então da forma que fiz lá em cima é melhor, dê uma olhada.

    Lembrando que terá que ir no form "cx de diálogo" colocar o intervalo do cronometro igual a zero e no Ao Timer digitar DoCmd.Close

    A dica do DoEvents do João Paulo testei também, mas, ela está agindo só no report, é muito bom esse comando por sinal, que desconhecia, vou usá-lo bastante daqui para frente.









    Dilson
    Dilson
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1743
    Registrado : 11/11/2009

    [Resolvido]Impressão Baseado em Forms! Fechamento Empty Re: [Resolvido]Impressão Baseado em Forms! Fechamento

    Mensagem  Dilson 19/11/2010, 19:45

    Testei e funcionou sem precisar do relógio, veja:

    Dim stDocName As String

    stDocName = "rpt_Funcionarios"
    DoCmd.OpenReport stDocName, acPreview
    DoCmd.OpenReport stDocName, acNormal
    DoCmd.Close acForm, "CxDialogo" 'Fecha o formulário depois dos eventos
    APJesus
    APJesus
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 367
    Registrado : 21/09/2010

    [Resolvido]Impressão Baseado em Forms! Fechamento Empty Re: [Resolvido]Impressão Baseado em Forms! Fechamento

    Mensagem  APJesus 20/11/2010, 00:40

    Dilsão! Aleluia! Aleluia! Já estava me incomodando este assunto, não conseguia raciocinar outra situação e andar com nosso projeto. Agradeço imensamente a vc e a João Paulo por se dedicarem e ter paciência a resolver situações como esta, que nos faz ainda acreditar que existem pessoas boas neste mundo.Se um dia puder ajudar em alguma coisa estarei sempre a disposição. Obs. Quando crescer quero ser igual a vcs.

    Super grato e até a próxima.
    Dilson
    Dilson
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1743
    Registrado : 11/11/2009

    [Resolvido]Impressão Baseado em Forms! Fechamento Empty Re: [Resolvido]Impressão Baseado em Forms! Fechamento

    Mensagem  Dilson 20/11/2010, 00:50

    Alessandro,

    A satisfação também é minha por você ter conseguido.

    O fórum agradece a tua resposta [Resolvido]!

    Conteúdo patrocinado


    [Resolvido]Impressão Baseado em Forms! Fechamento Empty Re: [Resolvido]Impressão Baseado em Forms! Fechamento

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 08:49