Ja sam imao slican problem pa sam ga rijesio tako sto slike nisam ubacivao kao ole nego sam u tabeli samo cuvao link do slike a ne sliku. I to mi super radi.

Napravio sam jedno tekstualno polje koje sam nazvao Put (visable=No, control source=*naziv polja u tabeli koje je rezervisano za slike*polje u tabeli mora biti text 255 karaktera, promjeni ako je ole object)

I jednu sliku koju sam nazvao Slika (Picture=(none), Picture type=Linked)

I dugme Ubaci

Na formi:

Private Sub Form_Open(Cancel As Integer)
On Error GoTo Err_Form_Open

If IsNull(Me!Put) Or Me!Put = "" Then
' do nothing
Else
Me!Slika.Picture = Me!Put
End If
Exit_Form_Open:
Exit Sub

Err_Form_Open:
MsgBox Err.Description
Resume Exit_Form_Open

End Sub

Na dugmetu "Ubaci"

Private Sub Ubaci_Click()
On Error GoTo err_cmdBrowse

Me![Put] = GetOpenFile_CLT("C:\", "Select the File")
Me![Put] = LCase(Me![Put])
Me!Slika.Picture = Me!Put

exit_cmdBrowse:
Exit Sub

err_cmdBrowse:
MsgBox Error$
Resume exit_cmdBrowse

End Sub


I u modules importuj prikaceni fajl

Ovo sam nasao negdje na netu i radi super

Svakako hvala Vam na trudu i zelji da mi pomognete. Ja vec imam slicne kodove za uvoz slike kada je u tabeli polje definisano kao text, i to mi nije problem.
Meni iskljucivo treba resenje za uvoz slike u OLE object preko dugmeta, odnosno kod za dugme pomocu koga cu ubaciti sliku u OLE.

To nije problem ali zapamti baza sve vise i vise raste i raste,a u 100mb vec koci i pravisranja. Da tebi treba da slike ako se obrisu iz foldera ostaju u acces-u.

Evo cod :[On Error GoTo Err_CmdLoad_Click


Dim jpg_scale As Long
Dim strfName As String
strfName = m_cDib.FileDialog(True)
If Len(strfName) & vbNullString = 0 Then Exit Sub


jpg_scale = 1

If LoadJPG(m_cDib, strfName, jpg_scale) Then
Call m_cDib.DIBtoPictureData(Me.Image0)
Else
MsgBox "Unable to Load Jpeg Image", vbCritical
Exit Sub

End If

Me.cmdSaveBlob.Enabled = True

Me.FrameSize.Enabled = True

Exit_CmdLoad_Click:
Exit Sub

Err_CmdLoad_Click:
MsgBox Err.Description
Resume Exit_CmdLoad_Click
]

_{[Ovu poruku je menjao Air Live dana 20.12.2007. u 00:45 GMT+1]}

U stvari evo ti primer jer cisto sumnjam da ces se snaci sa ovim kodom.

Uzivaj :

Hvala na primeru i ukapirao sam kako radi i primenio sam u mojoj bazi, ali sad imam drugi problem kada se slika snimi u tabeli ona je u polju OLE Long binary data što meni ne odgovra, da sad ne davim zašto. Meni treba da se slika zapisuje tabelu u polje OLE kao Bitmap Image
Nadam se da možda imate rešenje
Hvala još jednom

_{[Ovu poruku je menjao Cuplinger dana 26.12.2007. u 12:44 GMT+1]}

Ti taj long binary file po istom principu možeš iskopirati u temp folder i ubaciti je kao controlsource za neki imagebox, a možeš koristiti i bound object frame koji će ti prikazati sliku direktno iz tabele

Evo ti sad pa probaj !

Samo pazi : Ovo nije najbolje rjesenje zbog rasta baze podataka ! A baza sve dobro radi do 100 MB.

Ali za tebe je ovo rjesenje, pa izvoli !


Enjoy !

Ne upisuje u tabelu Bitmap Imege, već Package. Izgleda da je ovo isuviše komplikovano