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


2 participantes

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

    avatar
    messias.cadete
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  messias.cadete 6/5/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
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Silvio 6/5/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.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    messias.cadete
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  messias.cadete 6/5/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
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Silvio 6/5/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.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    messias.cadete
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  messias.cadete 6/5/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
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Silvio 6/5/2015, 17:35



    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    messias.cadete
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  messias.cadete 6/5/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
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Silvio 6/5/2015, 19:18

    O fórum agradece o retorno.
    Sucesso !


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/11/2024, 03:17