MaximoAccess

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

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 : 69
    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.
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3705
    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 : 69
    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.
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3705
    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 : 69
    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
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3705
    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 : 69
    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
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3705
    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 16 Dez 2017, 09:18