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

    Compartilhe
    avatar
    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 841
    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.
    avatar
    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 841
    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.
    avatar
    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 841
    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.
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6254
    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
    avatar
    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 841
    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: Sab 22 Jul 2017, 05:42