Olá a todo o forum
estou com um problema que não encontro solução mesmo depois de muito procurar
ao gerar um relatório baseado numa consulta, com resultado de 2791 registos, quando uso o código para aparecer as fotos de cada funcionário, dá run-time error 3035 Recurso Sistema Excedido
se na consulta pedir menos registos, já não acontece o erro e as fotos aparecem
se não usar o código para aparecerem as fotos também funciona direito e apresenta o resultado de 2791 resgistos
penso assim que será por pesar demasiado com as fotos, será que tem solução
o código é este
Option Compare Database
Private Sub CabeçalhoDoGrupo3_Format(Cancel As Integer, FormatCount As Integer)
!Me!Imagem.Picture = IIf(IsNull(Me!Localização), "", Me!Localização)
End Sub
Private Sub PageHeader_Format(Cancel As Integer, FormatCount As Integer)
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("Select Distinct [Nº ORDEM] FROM qryRubricasSalariais")
Me.TotalGeral.Value = rs.RecordCount
rs.Close
Set rs = Nothing
End Sub
José Silva
estou com um problema que não encontro solução mesmo depois de muito procurar
ao gerar um relatório baseado numa consulta, com resultado de 2791 registos, quando uso o código para aparecer as fotos de cada funcionário, dá run-time error 3035 Recurso Sistema Excedido
se na consulta pedir menos registos, já não acontece o erro e as fotos aparecem
se não usar o código para aparecerem as fotos também funciona direito e apresenta o resultado de 2791 resgistos
penso assim que será por pesar demasiado com as fotos, será que tem solução
o código é este
Option Compare Database
Private Sub CabeçalhoDoGrupo3_Format(Cancel As Integer, FormatCount As Integer)
!Me!Imagem.Picture = IIf(IsNull(Me!Localização), "", Me!Localização)
End Sub
Private Sub PageHeader_Format(Cancel As Integer, FormatCount As Integer)
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("Select Distinct [Nº ORDEM] FROM qryRubricasSalariais")
Me.TotalGeral.Value = rs.RecordCount
rs.Close
Set rs = Nothing
End Sub
José Silva