How to build an ODBC Connection

Anonymous

Now that we have a folder with all of the images, How do I connect to it;

Use the query Wizard?

Where do I find the Data Connection Wizzard?

The name of my folder on the C: Drive is NEPhotos

Can I do it with a SQL statement

I have searched around for where and how to do it, but so far got nowhere.

Thanks Again Guys.

Old NASA Kid

Locked Question. This question was migrated from the Microsoft Support Community. You can vote on whether it's helpful, but you can't add comments or replies or follow the question.

0 comments

Answer accepted by question author

Duane Hookom 26,935 Volunteer Moderator

In all honesty we have never been made aware of project requirements, statement of purpose, scope, number of users, security, how the application needs to be updated and distributed, how data changes will be handled, etc. I have asked but never been answered. How can we get you somewhere when we really have no idea of where you are going. It's like we are in the back seat of a car offering directions without a clear understanding of our final destination. We know full well how to drive and shift and obey traffic laws and navigate but the drive often makes the same mistakes, doesn't seem to hear, plays the radio too loud and doesn't respond. Apparently the driver knows how to drive a tractor in a field but we are in a nearly self-driving car.

I have also suggested several times that based on your need for distributing this application across many locations with limited resources and who knows what age of computer, you should consider a web based application. This would allow for instant updates to all users worldwide, You could restrict access if needed. There would be absolutely no cost to any end user unless you wanted to charge a subscription. Images would be available to all users as long as they had a computer, tablet, or phone connected to the internet. No installing anything anywhere.

If you want to continue down the Access path, please consider creating one new thread with the information I suggested in the first sentence above. Also provide what you currently have which I believe is thousands of images.

0 comments

Answer accepted by question author

Anonymous

I re-vitalized an old form, with two jpg-files:

For future use, you can even enlarge the pictures using the Zoom+ button:

So, in principle it works, but only with a valid file-specification.

Imb.

0 comments

Answer accepted by question author

Anonymous

Me.Image25.Picture = strFile ?????????????

Hi T.Z.,

If strFile contains the full filespecification, including drive and filetype, it should work

Imb.

0 comments

74 additional answers

Anonymous

2023-07-25T07:54:54+00:00

Looking around for four days I finally found this:\

https://learn.microsoft.com › en-us › office › vba › api › Access.Image.ImageWidth Image.ImageWidth property (Access) | Microsoft LearnJan 21, 2022ImageWidth expression A variable that represents an Image object. Remarks This property is read-only in all views. Use the ImageWidth property together with the ImageHeight property to determine the size of a picture in an image control. I do not know why, but all three of us seem to be fighting with syntax problems, but just getting out of school I am still learning SQL

^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

We have to declare that a variable is an Image

So I added

Dim BldImg As Image

Now I am having trouble with the script:

The Name of the table is MstrPhts

The Field Name for the Image Path is Location: Example C:\NEPhotos\AnegBpos

However the line below, that I have worked with for hours keeps giving me errors; So what am I doing wrong?

Set rst = cdb.OpenRecordset("SELECT TOP 1 Location(BldImg), imageWidth FROM MstrPhts")

Thanks, once again,

T. Z.
Was this answer helpful?

0 comments No comments
Anonymous

2023-07-25T21:39:10+00:00
However the line below, that I have worked with for hours keeps giving me errors; So what am I doing wrong?

Set rst = cdb.OpenRecordset("SELECT TOP 1 Location(BldImg), imageWidth FROM MstrPhts")

Hi T.Z.,

The ImageWidth is the number of horizontal pixels in the original photo. You cannot (and will not) change that. This is different from the width of the display of the photo in a control.

How can you zoom the photo?

Make a form with a "picture control", Photo1_ctl.

Assign a picture to that control:
```
Me.Photo1\_ctl.Picture = C:\NEPhotos\AnegBpos.jpg

Me.Photo1\_ctl.SizeMode = acOLESizeZoom
```
The constant acOLESizeZoom ensures that there is no distortion of the photo when the aspect ratio's of photo and control differ.

Now make two buttons on the form: Zoom_plus and Zoom_min.

In the Click-events of the buttons you use:
```
Sub Zoom\_plus\_Click()

    Me.Photo1\_ctl.Width = Me.Photo1\_ctl.Width + 567

    Me.Photo1\_ctl.Heigth = Me.Photo1\_ctl.Heigth + 567

End Sub
```
The same for Zoom_min_Click, but use subtraction instead of addition.

The dimensions of controls are expressed in "twips" with 1440 per inch, or 567 per cm. I prefer cm's over inches, but you can choose for any increment/decrement.

Can you see the picture zooming in and zooming out?

If this principle works, you are ready to let your phantasy do its work.

Imb.
Was this answer helpful?

0 comments No comments