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]BD em rede

    Compartilhe
    avatar
    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    [Resolvido]BD em rede

    Mensagem  toyebom em Dom 18 Jan 2015, 21:30

    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
    avatar
    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    BD em rede

    Mensagem  toyebom em Ter 20 Jan 2015, 03:53

    Consegui resolver sozinho

    Apaguei

    DoCmd.Save

    e ficou resolvido.


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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4291
    Registrado : 15/03/2013

    Re: [Resolvido]BD em rede

    Mensagem  ahteixeira em Ter 20 Jan 2015, 05:16

    Ola, ainda bem que resolveu, obrigado pelo retorno.

      Data/hora atual: Dom 20 Ago 2017, 14:30