Access - Prikaz bitmapa, bez skladištenja u tabelama

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:

1. Otvorite "Northwind.mdb" bazu, koja se najčešće nalazi na putanji "C:\Program files\Microsoft office\Office\Samples".
2. Kreirajte novu tabelu i nazovite je "tblSlike", i u novoj tabeli dodajte samo jedno polje - "Putanja".
3. 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:\windows\circles.bmp
         c:\windows\waves.bmp
         c:\windows\tiles.bmp
         c:\windows\bubbles.bmp 
   

4. Iskoristite čarobnjak "AutoForm:Columnar Wizard" za kreiranje nove forme na osnovu tabele "tblSlike", te je nazovite "frmSlike".
5. 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".
6. 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 
   

7. 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 
   

8. Otvrite formu "frmSlike" u Form modu i uverite se da se za svaki uneti slog prikazuje korektna bitmapa.