Coloquei à poucos dias uma bd em rede, funciona bem o problema é quando carrego nos botões para previzualizar o relatório ou para o imprimir, se a bd estiver a ser uilizada por dois utilizadores dá erro e não deixa previzualizar o relatório nem imprimir. Um outro botão que tenho para criar um pdf do relatório já funciona.
Os botões de previzualizar estão em vba e o de pdf está com macro.
Não quero criar mais macros nem consultas porque o bd já tem 1,49gb
Como posso fazer para corrigir o erro?
O código para previzualizar é:
Private Sub Comando567_Click()
DoCmd.Save
DoCmd.OpenReport "OficioNovo", acViewPreview, , "[001] = " & [001]
DoCmd.Maximize
DoCmd.RunCommand acCmdZoom100
End Sub
O para imprimir é:
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", 2)
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"
DoCmd.Save
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
Os botões de previzualizar estão em vba e o de pdf está com macro.
Não quero criar mais macros nem consultas porque o bd já tem 1,49gb
Como posso fazer para corrigir o erro?
O código para previzualizar é:
Private Sub Comando567_Click()
DoCmd.Save
DoCmd.OpenReport "OficioNovo", acViewPreview, , "[001] = " & [001]
DoCmd.Maximize
DoCmd.RunCommand acCmdZoom100
End Sub
O para imprimir é:
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", 2)
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"
DoCmd.Save
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