[Resolvido]Verificar/Limitar tamanho de arquivo/Objeto OLE

Boa tarde,
tenho um bd no access e em uma das tabelas eu tenho que anexar arquivos, em sua grande maioria arquivos do office. Porém, como o mdb tem limite máximo de 2gb, queria limitar o tamanho máximo que um arquivo/objeto OLE pode ter. Meu objetivo é impedir que arquivos maiores que 5mb sejam inseridos na tabela .

Segue abaixo o meu código para inserção de arquivos

Código:

Private Sub bt_teste_Click()

Dim strFilter As String
Dim strInputFileName As String

strFilter = ahtAddFilterItem(strFilter, "JPEG Files (*.jpg, *.jpeg)", "*.jpg;*.jpeg")
strFilter = ahtAddFilterItem(strFilter, "bmp Files (*.bmp)", "*.bmp")
strFilter = ahtAddFilterItem(strFilter, "all Files (*.*)", "*.*")

strInputFileName = ahtCommonFileOpenSave( _
                            Filter:=strFilter, _
                            OpenFile:=True, _
                            DialogTitle:="Choose an image file...", _
                            Flags:=ahtOFN_HIDEREADONLY)


If strInputFileName <> "" Then
   Me.teste.OLETypeAllowed = acOLEEmbedded
   Me.teste.SourceDoc = strInputFileName
   Me.teste.Action = acOLECreateEmbed
  
End If
Me.teste.SetFocus

End Sub


Algum de vcs pode me ajudar? obrigado

Alguém conseguiria me ajudar com esse mistério, que me atormenta ha 1 semana ?

Antes de mais, diga-me porque está a utilizar objetos OLE e não usa apenas os caminhos e guarda os ficheiros numa pasta junto do banco ?

Uma das grandes vantagens é que aumenta a durabilidade do banco.

Aqui existem inumeros exemplos sobre esse tema, mas se mesmo assim preferir o objeto OLE, vamos tentar chekar o size do ficheiro antes de inserir,

Pode testar ae...

If strInputFileName <> "" And Round(FileLen(strInputFileName) / 1024) >= 5000 Then
   MsgBox "Ficheiro é superior a 5 Megas...", vbCritical
   Exit Sub
   Else
   Me.teste.OLETypeAllowed = acOLEEmbedded
   Me.teste.SourceDoc = strInputFileName
   Me.teste.Action = acOLECreateEmbed
End If

Jpaulo,
Primeiramente muito obrigado pela ajuda !

Bom, preciso usar objeto OLE pois o mdb do Access vai ficar numa rede interna, e será acessado por pessoas diferentes em máquinas diferentes. Nesse caso, usar o caminho para máquina de outro usuário não daria certo, caso estivesse desligada a máquina, por exemplo. Assim, não tive outra solução além dessa.

Em relação ao código que você me ajudou, toda vez que eu clicava em cancelar, ele dava erro e ia para o depurador. Assim, tive que fazer a seguinte alteração:

Código:


If strInputFileName = "" Then
      Exit Sub

   ElseIf Round(FileLen(strInputFileName) / 1024) >= 5000 Then
      MsgBox "Ficheiro é superior a 5 Megas...", vbCritical
      Exit Sub

      Else
          Me.teste.OLETypeAllowed = acOLEEmbedded
          Me.teste.SourceDoc = strInputFileName
          Me.teste.Action = acOLECreateEmbed

End If


Novamente, muito obrigado pela grande ajuda!

Obrigado pelo retorno o forum agradece.

Estou com dificuldade na inserção dos arquivos no campo objeto ole. Poderia me fornecer um exemplo pronto para mim usar de partida?

Olá a todos,
Natan, apesar de ter resolvido, voltando à sugestão do colega JPaulo, que tal colocar as imagens no mesmo local da base de dados na sua rede corporativa?
Fica a minha sugestão.

Quanto à ultima questão, efetue uma "Busca" aqui no fórum.
Não falta exemplos.
Abraço