Как скопировать данные изображения из одного изображения в другое?

Question

У меня есть два элемента управления изображением.Я хочу, чтобы один из элементов управления изображением содержал то же изображение, что и другое.Мне нужно сделать это во время выполнения, используя VBA.

Me("Option" & RST![ItemNumber]).PictureData = Me("img" & intImage).PictureData

По какой-то причине эта строка кода не работает.Это не дает ошибок, но вместо этого оставляет изображение управления пустым.Любая помощь будет высоко ценится.

Answer 1

Если вы используете Microsoft Access 2010 или новее, вы можете добавить изображение в Access Image Gallery.

После добавления в галерею вы можете переименовать ее там, если хотите.

Это имя, которое вы затем можете использовать, чтобы вставить его в свойство Picture элемента управления изображением, чтобы присвоить его.

Одним из преимуществ является то, что вы можете ссылаться на эти изображения для многих элементов управления изображениями, но они используют память только один раз для хранения в базе данных.

Другое преимущество заключается в том, что вы можете назначать их следующим образом (не имея исходного файла на диске):

Image1.Picture = Image2.Picture