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]Problema com Vba e Módulo

    Compartilhe

    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 820
    Registrado : 18/07/2012

    [Resolvido]Problema com Vba e Módulo

    Mensagem  toyebom em Qui 04 Ago 2016, 13:29

    Este sempre funcionou:

    Código:
    Private Sub Comando570_Click()
    On Error GoTo Err_Comando570_Click
    Dim strArquivo As String
    Dim strLocal As String
    Dim fso As Object
    Dim strDocumento As String
    Dim bytVias, bytLoop As Byte

      bytVias = InputBox("Quantas vias deseja imprimir? ", "Impressão", 1)
      If bytVias <> "" And bytVias <= 6 Then
        For bytLoop = 1 To bytVias
          If bytLoop = 1 Then MsrVersao = "ORIGINAL"
          If bytLoop = 2 Then MsrVersao = "DUPLICADO"
          If bytLoop = 3 Then MsrVersao = "TRIPLICADO"
          If bytLoop = 4 Then MsrVersao = "QUADRUPLICADO"
          If bytLoop = 5 Then MsrVersao = "QUINTUPLICADO"
          If bytLoop = 6 Then MsrVersao = "SEXTUPLICADO"
    Select Case MsgBox("COLOCAR CUMPRIMENTOS?", vbInformation + vbYesNoCancel, [cam7] & [SIGLAS])
    Case vbYes
    Me.t11 = "Com os melhores cumprimentos"
    DoCmd.RefreshRecord
    DoCmd.OpenReport "OficioNovo", acViewPreview, , "[001] = " & [001]
    DoCmd.Maximize
    strArquivo = Replace(Me!cam7, "/", "_") & Replace(Me!CaixaCombinação720, "/", "_") & " _ " & Me![001] & ".pdf"
    strLocal = CurrentProject.Path & "\Oficios\Oficios Expedidos\" & strArquivo
    DoCmd.OutputTo acOutputReport, "OficioNovo", acFormatPDF, strLocal
        DoCmd.PrintOut
    DoCmd.Close
    Case vbNo
    Me.t11 = ""
    DoCmd.RefreshRecord
    DoCmd.OpenReport "OficioNovo", acViewPreview, , "[001] = " & [001]
    DoCmd.Maximize
    strArquivo = Replace(Me!cam7, "/", "_") & Replace(Me!CaixaCombinação720, "/", "_") & " _ " & Me![001] & ".pdf"
    strLocal = CurrentProject.Path & "\Oficios\Oficios Expedidos\" & strArquivo
    DoCmd.OutputTo acOutputReport, "OficioNovo", acFormatPDF, strLocal
        DoCmd.PrintOut
    DoCmd.Close
    Case vbCancel
    End Select
    Next
    End If
    Exit_Comando570_Click:
        Exit Sub
    Err_Comando570_Click:
        MsgBox Err.Description
        Resume Exit_Comando570_Click
        
    End Sub

    Agora tive de criar um formulário com hiperlink com os códigos:

    Código:
    Private Sub Comando2_Click()
    On Error Resume Next
    wzGetFileName
    DoCmd.RunCommand acCmdSaveRecord 'salva o resgistro atual
    Me.Texto8 = Me.Arquivo
    Dim strDemo As String
    strDemo = Replace(Me.Texto8, "D:\PARTILHA POSTO", "\\Ctfarodapc003\partilha posto")
    Me.Texto8 = strDemo
    MsgBox strDemo
    End Sub

    se utilizo o primeiro código funciona bem, mas quando vou ao formulário de hiperlink e uso o segundo código e a seguir fecho e abro o outro formulário do primeiro código, ao usar a bd dá erro e fecha.

    Alguém tem uma ideia como resolver o erro ou maneira de alterar o primeiro código?

    No primeiro código necessito que me pergunte quantas vias do registo actual quero imprimir e em cada uma se quero colocar "Com os melhores cumprimentos" é que é de um oficio que posso fazer com conhecimento a vários, uns com cumprimentos e outros sem.

    a parte das bytVias não e necessário mas se der para ficar tudo bem elas colocam-me o tipo de via no relatório mas não é obrigatório.

    O ficheiro é este da mensagem 16

    [Você precisa estar registrado e conectado para ver este link.]


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.

    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 820
    Registrado : 18/07/2012

    Problema com Vba e Módulo

    Mensagem  toyebom em Sab 06 Ago 2016, 22:40

    UP


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.

    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 820
    Registrado : 18/07/2012

    Problema com Vba e Módulo

    Mensagem  toyebom em Sab 13 Ago 2016, 20:13

    Já resolvi


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.

    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5889
    Registrado : 05/11/2009

    Re: [Resolvido]Problema com Vba e Módulo

    Mensagem  Alexandre Neves em Dom 21 Ago 2016, 18:01

    Lembre-se do resolvido


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 820
    Registrado : 18/07/2012

    Problema com Vba e Módulo

    Mensagem  toyebom em Dom 28 Ago 2016, 01:06

    Esqueci-me. Very Happy


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.

      Data/hora atual: Qua 07 Dez 2016, 20:07