Ko će kome ako neće svoj svome. Lepo je sresti nekoga ko je iz Kragujevca kao ja.

Bio si blizu rešenja, falio ti je samo jedan redić. Implementirao sam tvoj kod i dodao malo svog i dobio konačno rešenje. Dodao sam polje Velicina u koje treba upisati Velicinu fajla da bi se isti takav mogao izvuci iz ole field.

Pozdrav i javi ako vam zatreba radnik

Evo prosirenje zadatka za Nikolu: daj obrnutu operqaciju, sliak iz tabele da ide na disk (valjda se samoGetChunk promeni u PutChunk ili tako nesto, ima u BooksOnLine za MS SQL server).

Jos jedno moguce prosirenje: sta ako je tabela gde se slike smestaju linkovana ODBC tabela (MS SQL, ORACLE), da li ce kod da radi?

Kad sve to zavrsis, da dodas post u Bazu Znanja. Unapred hvala.

A ovi iz Zastave zaista ne znaju sta gube. Nikola je jedan od glavnih majstora na forumu i gubitak je za svaku firmu koja ga nema na spisku zaposlenih.

Nikola,
Hvala na pomoci i ovo ce mi mozda koristiti. U principu nije mi bitno kako cu razlicite slike da unosim u tabelu(insert object on form,copy paste ili naredbom na dugme(pomocu koda),ali je bitno da su to razlicite slike(do 10 slika) i odgovarajuci text u polju opis. Treba da pozivam text i sliku i da ih direktno saljem na power point slajd.Polazi se od prvog sloga u tabeli i prikazuje sadrzaj (text + slika) sve dok ima slogova u tabeli.evo kako to otprilike funkcionise sa textom i tabelom.Molim te da probas i nadjes resenje za pozivanje slike (po id-u iz tabele). Ima li veze sto sam slike insertovao kao jpg i to insert object na formi. Ako treba u tabelu da ih ubacim sa dogadjajem on click i ckodom -napisi da mora tako. Javi cu ti za posao,a ti javi znas li internet programiranje jer jedan moj drugar non stop trazi programere i lepo placa.

U slobodno vreme radim na rešavanju problema koji sam uočio tek kada sam i ja instalirao Microsoft Photo Editor. Problem je u tome što kada se to učini Access doda gomilu podataka za renderovanje slike u OLE field (overhead data), tako da ne znam od kog offseta treba da snimim sliku u file. Biće ti jasnije kada klikneš na dugme i pogledaš Immediate Window, tamo sam napisao koliko prostora zauzima slika na disku, a koliko u OLE field.

Svejedno je kako dodaješ sliku u Access, trenutno moramo da se zadovoljimo sledećom improvizacijom. Kada prevučeš sliku na formu u polje Slika, popuni TAČNO polje velicina.

Kada sliku ubaciš jednom, napravi kopiju slike na HDD sa izmenjenom extenzijom (umesto NekaSlika.jpg snimi file kao NekaSlika.jp) i ubaci je u polje obeleženo kao SlikaRAW. To je polje iz koga će se slika snimiti na HDD, a promena extenzije slike će sprečiti Access da u to polje ubaci taj Overhead (pogledaj Immediate Window pa će ti biti jasnije).

Znaci da ponovim, sliku ubacuješ DVA puta, jednom sa ekstenzijom .JPG (.BMP) u polje Slika i Access će je prikazati na formi. Drugi put je ubaci sa ekstenzijom .JP (.BM) u polje SlikaRAW.

Dok ne smislim nešto bolje pozdrav

_{[Ovu poruku je menjao domaci_a_nas dana 03.06.2008. u 12:03 GMT+1]}

Hvala na pomoci! Tek sada pregledam mejl posto sam bio odsutan. Primer koji si mi ti poslao prvi put funkcionise,ali samo za tri slike koje si ti ubacio u tabelu.prihvata da na slajdu pokaze i sliku iz tabele koju menjam(tvoje slike),ali kada u tabelu na tom mestu ubacim novu sliku sa istim nazivom i odgovarajucom velicinom kaze da ne moze da nadje fajl. molim te provali ovu glupost i veliko HVALA za dosadasnju pomoc. VELIKI POZDRAV

Pošalji mi bazu sa slikama koje si ti ubacio pa ću probati nešto da iskombinujem. Kada se slika insertuje u bazu preko koda koji ću okačiti čim ga nađem onda nema problema da se snima direktno iz OLE polja. Kada Access insertuje sliku preko OLE objekta onda dodaje overhead data za renderovanje, treba samo razgraničiti šta je slika a šta overhead data. Jesi li snimio sliku dva puta, jednom sa promenjenom extenzijom?

izvini sto se tek sada javljam.Bio sam na odmoru,a i pokusavao sam da resim problem sam.Okacicu ti bazu.kod za smestanje slike u tabelu(click na dugme sam nasao i nije mi problem da tabelu napunim na taj nacin). treba mi resenje kako da sliku koja je u tabeli ole object pozovem i posaljem na slajd. Kako da ovaj deo koda

With .Shapes(2).TextFrame.TextRange


.Text = CStr(rs.Fields("opis").Value)
.Characters.Font.Color.RGB = RGB(255, 0, 255)
.Characters.Font.Shadow = True
End With

kojim se poziva tekstualno polje iz tabele primenim na pozivanje slike. unapred velikop hvala i veliki pozdrav za zemu.

Izvini, ali ti ne koristiš kao osnovu bazu koju si dobio od mene, ne znam kako očekuješ da kod radi ?

Tabela Table1 iz tvog poslednjeg attacha ima kolone :

1) id
2) slika
3) opis
4) opise

Tabela Table1 iz mog poslednjeg attacha ima kolone :
1) id
2) slika
3) SlikaRAW
4) opis
5) opise
6) Velicina

Znači, DVA POLJA VIŠE. Ja odavno sumnjam da ti i ne gledaš detaljno bazu koju ja okačim, što me iskreno pomalo i vređa i neću ti više pomagati oko ovog projekta, posebno zato što sam ubeđen da već imaš rešenje.

Pozdrav.

Ne znam zasto se ljutis. Ja se sa VB sada srecem prvi put posle 10 godina,a i tada sam radio nesto najosnovnije. Mnogo gresis ako mislis da imam resenje i da ne koristim tvoju pomoc,ali mozda nisam najvestiji u primeni. Koristio sam tvoju bazu -Baza sa slikama u kojoj imas dva modula,ali nisam uspeo da u tabelu ubacim svoju sliku i velicinu,a da to posle radi na slajdu. Resenje sa ubacivanjema polja slikaRaw nisam primenio jer mi je bitno da slike ne moram da cuvam na hardu. Poslao sam ti bazu sa slikama koje sam ja ubacio jer sam tako shvatio iz tvojg prethodnog odgovora(Pošalji mi bazu sa slikama koje si ti ubacio pa ću probati nešto da iskombinujem. Kada se slika insertuje u bazu preko koda koji ću okačiti čim ga nađem onda nema problema da se snima direktno iz OLE polja. ) .Ako sam pogresio izvini i molim te pomozi. Kod za ubacivanje slike u tabelu sam nasao na internetu(ali je ubacivanje sa putanjom sto bih izbegao ako moze),ali ne umem da pozovem sliku kao ole object iz tabele. Ima li sanse da se pozivanje slike kao ole objecta iz tabele uradi na slican nacin kao i pozivanje teksta

With .Shapes(2).TextFrame.TextRange


.Text = CStr(rs.Fields("opis").Value)
.Characters.Font.Color.RGB = RGB(255, 0, 255)
.Characters.Font.Shadow = True
End With


unapred hvala

veliko izvinjenje

zemo,ajmo na pivo i ne ljuti se jer nisam covek koji bi bilo koga zezao i gnjavio da imam resenje,a nisam ni nezahvalan da ne pokusam da primenim jedinu pomoc koju dobijam.

VELIKI POZDRAV