MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    [Resolvido]BD em rede

    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]BD em rede Empty [Resolvido]BD em rede

    Mensagem  toyebom 19/1/2015, 00: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
    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]BD em rede Empty BD em rede

    Mensagem  toyebom 20/1/2015, 06:53

    Consegui resolver sozinho

    Apaguei

    DoCmd.Save

    e ficou resolvido.


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


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]BD em rede Empty Re: [Resolvido]BD em rede

    Mensagem  Alvaro Teixeira 20/1/2015, 08:16

    Ola, ainda bem que resolveu, obrigado pelo retorno.

    Conteúdo patrocinado


    [Resolvido]BD em rede Empty Re: [Resolvido]BD em rede

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 23/11/2024, 05:21