Restreindre la taille du fichier de pièce jointe Access 2007

Question

Actuellement, j'ai un système de base de données conçu pour enregistrer les appels entrant dans un département.Pour aider d'autres agents sur le système téléphonique avec des informations que j'ai autorisés pour les pièces jointes afin que des photographies, des lettres, etc. Pour que les pièces jointes soient ajoutées, il existe une commande de pièces jointes sur le formulaire pour permettre une documentation supplémentaire à ajouter ci-dessus.

Le problème est que j'ai trouvé beaucoup de gens utilisent le système pour stocker de grandes copies de manuels.Qui provoque la taille de la base de données de la taille de la base de données de manière exponentielle.

Ce que j'aimerais savoir, c'est qu'il est possible de limiter la taille du fichier d'une pièce jointe via VBA?Par exemple, restreignez-le à 6 Mo.

Answer 1

Pour répondre à votre question, le code suivant reviendra la taille du fichier, mais comme les autres mentionnées ci-dessus, je ne pense pas que je voudrais stocker des pièces jointes dans une base de données d'accès Votre base de données se développera rapidement et peut devenir instable.

Private Sub CheckFileSize(strMyFile)
  Dim objFileSys As Scripting.FileSystemObject
  Dim objMyFile As File
  Set objFileSys = CreateObject("Scripting.FileSystemObject")
  Set objMyFile = objFileSys.GetFile(strMyFile)
  If objMyFile.Size > 6000000 then
    MsgBox "File is too big.", vbokonly
  Else
    MsgBox "File is OK.", vbokonly
  End If
  Set objFileSys = Nothing
  Set objMyFile = Nothing
End Sub