Accessが画像データでパンク

質問

画像データを取り込むとあっという間に
1Gを越えてしまいパンク。
なんとかならないもんでしょうか？
怪しげな対策ソフトがあるようですが･･･

回答No.4

ARC

えっと、他の皆さんがおっしゃるように、実際のところは画像ファイルをデータベースの外に置いたほうが使いやすそうですね。

商品ID　商品名　　　　イメージファイル名
1 　　　あんぱん　　　Image\AN-Pan.jpg
2 　　　ジャムぱん　　Image\Jam-Pan.jpg
3 　　　クリームぱん　Image\CreamPan.jpg

上のようなテーブルを作って

フォームにイメージコントロール[画像]を配置してやり、下記のようなコードを書けば、うまく作動するはずです。(実際の画像はImageフォルダに置いておく)

ちなみに、この方法は帳票フォームでは不具合をきたすので(連帳レポートはＯＫ)、連帳フォームを使う際には、別途 [サムネイル]フィールド(OLE型)を付加してやったほうが良いかもしれません。
サムネイル(縮小画像)のサイズを1枚10KB以下程度に抑えれば、実用上は問題無いのではないかと思います。

Private Sub Form_Current()
　　On Error Resume Next
　　ChDir GetDir(CurrentDb.Name)
　　Me.画像.Picture = Me![イメージファイル名]
　　If Err > 0 Then
　　　　Me.画像.Picture = ""
　　　　Err.Clear
　　End If
End Sub

Private Function GetDir(PathName As String) As String
　 Dim i As Long
　 Dim C As String * 1
　　For i = Len(PathName) To 1 Step -1
　　　　C = Mid(PathName, i, 1)
　　　　If C = "\" Or C = ":" Then
　　　　　　GetDir = Left$(PathName$, i)
　　　　　　Exit For
　　　　End If
　　Next i
End Function

PS.
が～ん!! 行頭の半角スペースは強制削除されるのね(T^T)
何とかしてよ～>OKWeb

補足

古い話になって申し訳ありません。今一度よろしいでしょうか？
LAN上のほかのPCからでもうまく動作しますか？
よろしくお願いします。