MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Erro em Código VBA de Impressão

    Compartilhe

    messias.cadete
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 65
    Registrado : 04/05/2012

    [Resolvido]Erro em Código VBA de Impressão

    Mensagem  messias.cadete em Qua 06 Maio 2015, 15:14

    Bom dia,

    Gostaria mais uma vez da ajuda de vocês, estou utilizando este código abaixo mais ele esta dando erro quando clico em imprimir que a ordem não esta autorizada (Erro: A execução deste aplicativo foi interrompida devido a um erro em tempo de execução, o programa será encerrado), quando ela esta autorizada ela funciona perfeitamente. meu banco de dados esta no formato accdr.

    Código:
    Private Sub Imprimir_relatório_Click()
       
    If Me.Autorizo = 0 Then
    If MsgBox("Ordem não Autorizada? ", vbQuestion + vbNo, "Aviso!") = vbNo Then

    DoCmd.OpenReport "ROrdemDeCompra", acPreview
    DoCmd.PrintOut
    Else
    End
    End If
    End If
    DoCmd.OpenReport "ROrdemDeCompra", acPreview
    DoCmd.PrintOut
       
    End Sub

    Desde já agradeço a tenção de todos.

    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3227
    Registrado : 20/04/2011

    Re: [Resolvido]Erro em Código VBA de Impressão

    Mensagem  Silvio em Qua 06 Maio 2015, 15:37

    Bom dia...

    A grosso modo, vejo que tem um erro de lógica.

    Acho e penso que possa ser feito assim:

    Private Sub Imprimir_relatório_Click()

    If Me.Autorizo = 0 Then
    If MsgBox("Ordem não Autorizada? ", vbQuestion + vbNo+vbyes, "Aviso!") = vbNo Then
    exit sub
    else
    DoCmd.OpenReport "ROrdemDeCompra", acPreview
    DoCmd.PrintOut
    end if
    end if

    End Sub



    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    messias.cadete
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 65
    Registrado : 04/05/2012

    Re: [Resolvido]Erro em Código VBA de Impressão

    Mensagem  messias.cadete em Qua 06 Maio 2015, 16:13

    Olá Silvio, obrigado pela retorno, mais não esta funcionando, a mensagem de erro saio, só que a ordem autorizada não esta imprimindo e a não autorizada da a o aviso e depois imprime normal.

    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3227
    Registrado : 20/04/2011

    Re: [Resolvido]Erro em Código VBA de Impressão

    Mensagem  Silvio em Qua 06 Maio 2015, 17:08

    Para autorizar a ordem, qual número está usando...0 ou 1 ?


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    messias.cadete
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 65
    Registrado : 04/05/2012

    Re: [Resolvido]Erro em Código VBA de Impressão

    Mensagem  messias.cadete em Qua 06 Maio 2015, 17:21

    Silvio, já resolvi eu fiz essa outra e ela ficou funcionando perfeitamente, eu estava usando o número errado para autorizar, eu só queria mais uma ajuda no lugar dela imprimir direto queria que ele abrisse a caixa de dialogo para agente colocar a quantidade de cópias desejadas (Ex.: tipo quela quando agente preciosa Ctrl + P).

    Código:
    Private Sub Imprimir_relatório_Click()

    If Me.Autorizo = -1 Then
      DoCmd.OpenReport "ROrdemDeCompra", acPreview
      DoCmd.PrintOut
     
      Else
        MsgBox "Ordem não Autorizada?", _
              vbExclamation, "Acesso Negado"
    End If

    End Sub

    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3227
    Registrado : 20/04/2011

    Re: [Resolvido]Erro em Código VBA de Impressão

    Mensagem  Silvio em Qua 06 Maio 2015, 17:35

    Ok....

    De uma olhada nesse link:
    [Você precisa estar registrado e conectado para ver este link.]


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    messias.cadete
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 65
    Registrado : 04/05/2012

    Re: [Resolvido]Erro em Código VBA de Impressão

    Mensagem  messias.cadete em Qua 06 Maio 2015, 18:44

    Ok ajudou bastante, já está tudo resolvido, vou postar o código aqui como ele ficou casso alguém precise.

    Código:
    Private Sub Imprimir_relatório_Click()

    If Me.Autorizo = -1 Then
      Dim bytVias, bytLoop As Byte
          bytVias = InputBox("Digite o número de cópias", "Imprimir", 1)
        If bytVias <> "" And bytVias <= 8 Then
          For bytLoop = 1 To bytVias
    DoCmd.OpenReport "ROrdemDeCompra"
    DoCmd.OpenReport "ROrdemDeCompra", acPreview 'para visualizar a ordem após impressão se não quiser é só remover esta linha'
        Next
        End If
      Else
        MsgBox "Ordem não Autorizada?", _
              vbExclamation, "Acesso Negado"
    End If
    End Sub

    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3227
    Registrado : 20/04/2011

    Re: [Resolvido]Erro em Código VBA de Impressão

    Mensagem  Silvio em Qua 06 Maio 2015, 19:18

    O fórum agradece o retorno.
    Sucesso !


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

      Data/hora atual: Sab 03 Dez 2016, 19:38