Início
![[Resolvido]Problema com Vba e Módulo Empty](https://2img.net/i/empty.gif)
Este sempre funcionou:
Agora tive de criar um formulário com hiperlink com os códigos:
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
https://www.maximoaccess.com/t27295-resolvidoabrir-pdf-especifico
- 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
https://www.maximoaccess.com/t27295-resolvidoabrir-pdf-especifico
