Da li neko može da mi pomogne da napravi kod za dugme za uvoz slike u OLE object (isključivo za OLE), jer bih hteo da izbegnem korišćenje desnog tastera za uvoz slike.
Hvala unapred
[Ovu poruku je menjao Cuplinger dana 17.12.2007. u 12:14 GMT+1]
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
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
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