ایجاد گالری در فرم اکسس

Access Attachment Gallery

MultipleImage

  img()                array :  Store Image name

Redim Preserve : Store Image  Name In Array  Through  Loop In Image Folder Using Dir

( image.Tag ( Store Img Number

Loop In Image Control And Set Picture Property To Specified Path And Image Name 

First Imaging Then Executing

ImageControl: Image0 Till Image4

ImageCount :In Folder icofolder=13

Next : Tag=Tag+1

1-5

2-6

3-7

4-8

5-9

6-10

7-11

8-12

Previous : Tag=Tag-1

7-11

6-10

5-9

4-8

3-7

2-6

1-5

0-4

 Last : Tag=(ImageCount-1)-4+i

8-12 

 First : Tag=I

0-4

For Each Ctl In Me.Detail.Controls

.

.

.

i=i+1

Next

ImageCount=i

ایمپورت تصویر داخل دیتابیس و اضافه کردن به مجموعه ی ShareResources