Ovaj članak će vam otkriti kako možete da prikažete bitmap slike na vašim formama, samo uz pomoć putanja i naziva fajlova iz Microsoft Access tabele. Ponekad nije praktično cele slike čuvati u Access tabelama. Ukoliko imate veliki broj slika koje treba da skladištite, ili ako imate manji broj slika velike veličine, skladištenje ovakve vrste podataka može da rapidno poveća veličinu baze podataka. U sledećim primerima moći ćete da vidite, kako prikazati Windows bitmap slike na Access formi, bez smeštanja slika u tabele.
Za primer ćemo iskoristiti ugrađenu bazu podataka „Northwind“ koja dolazi uz Access i bitmape koje se instaliraju uz Windows:
- Otvorite „Northwind.mdb“ bazu, koja se najčešće nalazi na putanji „C:Program filesMicrosoft officeOfficeSamples“.
- Kreirajte novu tabelu i nazovite je „tblSlike“, i u novoj tabeli dodajte samo jedno polje – „Putanja“.
- Otvorite tabelu „tblSlike“ u datasheet modu i u polje „Putanja“ unesite putanje i nazive bitmap fajlova za svaki slog. U narednim redovima možete videti primer unetih podataka:
c:windowscircles.bmp
c:windowswaves.bmp
c:windowstiles.bmp
c:windowsbubbles.bmp
- Iskoristite čarobnjak „AutoForm:Columnar Wizard“ za kreiranje nove forme na osnovu tabele „tblSlike“, te je nazovite „frmSlike“.
- Otvorite formu „frmSlike“ u Design modu i sa palete alatki dodajte jednu Image kontrolu. Ako je uključen čarobnjak, bićete upitani za putanju i naziv izvora, pa selektujte kao izvor bilo koju bitmapu na računaru. Ovu kontrolu nazovite recimo „imgOkvir“.
- Unutar događaja „OnCurrent“ forme „frmSlike“ dodajte sledeći programski kod:
Private Sub Form_Current()
On Error Resume Next
Me![imgOkvir].Picture = Me![Putanja]
End Sub
- Unesite zatim i programski kod unutar događaja „AfterUpdate“ tekst polja „Putanja“:
Private Sub txtPutanja_AfterUpdate()
On Error Resume Next
Me![imgOkvir].Picture = Me![Putanja]
End Sub
- Otvrite formu „frmSlike“ u Form modu i uverite se da se za svaki uneti slog prikazuje korektna bitmapa.
Pratite Krstaricu na www.krstarica.com