[ DarioBH @ 13.12.2007. 11:01 ] @
Treba mi pomoc oko ubacivanja i pregleda slika u formi.
Situacija je slijedeca, imam par artikala koji mjenjaju izgled sa vremenom i trebao bih napraviti bazu u kojoj bi se unosili ti artikli sa datumum i slikom tog artikla tako da mogu poslije kad izaberem neki artikal otvori formu u kojoj se nalazi combo box sa izborom datuma, da mogu mjenjanjem vrijednosti u njemu pratiti progres tog artikla.
Odnosno da vidim kako je taj artikal izgledao na odredjeni dan

Hvala
[ Getsbi @ 13.12.2007. 14:44 ] @
Slike se mogu unositi ili u polje tabele tipa OLE Object ili u tekstalno polje kao Apsolutna putanja na disku. Ovi primeri su obrađivani u zadnjih par meseci na forumu. Samo upotrebi ključne reči i polje za pretragu.
[ DarioBH @ 14.12.2007. 07:55 ] @
Hvala na odgovoru, vec sam pregledao forum i nisam nasao ono sto mi treba, mozda nisam dobro formulisao pitanje ono sto nisam znao napraviti je button koji ce imati funkciju browse tako da klikom na njega mogu ucitati sliku sa neke lokacije, al sam se snasao i napravio sam nesto. Hvala jos jednom
[ Trtko @ 14.12.2007. 10:51 ] @
OVO TI JE DOLJE DA TI SE OTVORI BROWSER I DA ODABEREŠ SLIKU
ako ti javi grešku nisi uključio neku referenci (office10)


Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)
Dim vrtSelectedItem As Variant
With fd
.Filters.Clear
.Filters.Add "All files", "*.*"
.Filters.Add "Images", "*.gif; *.jpg; *.jpeg", 1
If .Show = -1 Then
For Each vrtSelectedItem In .SelectedItems
Slika.Picture = vrtSelectedItem
Imeslike = vrtSelectedItem
Next vrtSelectedItem
Else
End If
End With
Set fd = Nothing