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


    Abrir Relatorio mas esta lento

    jamesacdc
    jamesacdc
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 155
    Registrado : 09/04/2012

    Abrir Relatorio mas esta lento Empty Abrir Relatorio mas esta lento

    Mensagem  jamesacdc 26/7/2013, 01:28

    olá a todos..

    o relatorio esta funcionando mas esta muito lento pra abrir 7 registros.
    o evento esta no formatar..

    Código:

    Private Sub Detalhe_Format(Cancel As Integer, FormatCount As Integer)
    Dim emptyImg As String
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim contaReg As Integer


     On Error Resume Next

     emptyImg = Application.CurrentProject.Path & "\Fotos\" & "SemFoto(Nao Remover).jpg"
           
        If [imagemAtivaOS] = 1 Then
           
            If IsNull(Me.imagemAdesivo) Then
                Me.imagemAdesivo1.Picture = emptyImg
            ElseIf Not FileExists(Application.CurrentProject.Path & "\Fotos\" & Me.imagemAdesivo) Then
                Me.imagemAdesivo1.Picture = emptyImg
            Else
                Me.imagemAdesivo1.Picture = Application.CurrentProject.Path & "\Fotos\" & Me.imagemAdesivo
            End If


            If IsNull(Me.imagemArte) Then
                Me.imagemArte1.Picture = emptyImg
            ElseIf Not FileExists(Application.CurrentProject.Path & "\Fotos\" & Me.imagemArte) Then
                Me.imagemArte1.Picture = emptyImg
            Else
                Me.imagemArte1.Picture = Application.CurrentProject.Path & "\Fotos\" & Me.imagemArte
            End If
           
           
            If IsNull(Me.imagemFaca) Then
                Me.imagemFaca1.Picture = emptyImg
            ElseIf Not FileExists(Application.CurrentProject.Path & "\Fotos\" & Me.imagemFaca) Then
                Me.imagemFaca1.Picture = emptyImg
            Else
                Me.imagemFaca1.Picture = Application.CurrentProject.Path & "\Fotos\" & Me.imagemFaca
            End If
           
       
      Else
       
        If IsNull(Me.imagemAdesivo2) Then
                Me.imagemAdesivo1.Picture = emptyImg
            ElseIf Not FileExists(Application.CurrentProject.Path & "\Fotos\" & Me.imagemAdesivo2) Then
                Me.imagemAdesivo1.Picture = emptyImg
            Else
                Me.imagemAdesivo1.Picture = Application.CurrentProject.Path & "\Fotos\" & Me.imagemAdesivo2
            End If



            If IsNull(Me.imagemArte2) Then
                Me.imagemArte1.Picture = emptyImg
            ElseIf Not FileExists(Application.CurrentProject.Path & "\Fotos\" & Me.imagemArte2) Then
                Me.imagemArte1.Picture = emptyImg
            Else
                Me.imagemArte1.Picture = Application.CurrentProject.Path & "\Fotos\" & Me.imagemArte2
            End If
           
           
            If IsNull(Me.imagemFaca2) Then
                Me.imagemFaca1.Picture = emptyImg
            ElseIf Not FileExists(Application.CurrentProject.Path & "\Fotos\" & Me.imagemFaca2) Then
                Me.imagemFaca1.Picture = emptyImg
            Else
                Me.imagemFaca1.Picture = Application.CurrentProject.Path & "\Fotos\" & Me.imagemFaca2
            End If
         
       
      End If
       
     
       
              Set db = CurrentDb()
              Set rs = db.OpenRecordset("tbAdesivos")
              contaReg = rs.RecordCount
         
         
       


       
     
    End Sub

      Data/hora atual: 22/11/2024, 01:57