添付ファイルファイルサイズAccess 2007を制限します

Question

現在、私は部署に入るコールを記録するように設計されたデータベースシステムを持っています。添付ファイルを許可した電話システムの他のエージェントを助けるために、添付ファイルを追加するために添付ファイルを追加することを許可するために、上記のように追加のマニュアルを追加することを可能にするためのフォーム上の添付ファイルがコントロールされます。

問題は、マニュアルの大規模なコピーを保存するために、多くの人がシステムを使用していることを発見しました。これは、データベースのファイルサイズを指数関数的に撮影しています。

私が知りたいことは、VBAを介して添付ファイルのファイルサイズを制限することが可能ですか？たとえば、6MBに制限します。

Answer 1

あなたの質問に答えるために次のコードはファイルサイズを返しますが、上記の他の人が私はアクセスデータベースに添付ファイルを保存したいと思うのは、データベースがすぐに成長し、不安定になる可能性があります。

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

.