Picture Field??

allyeric · Apr 11, 2000

I am trying to create a field in Access 2000 that will hold pictures.  I made the field an OLE object, but not quite sure how that works.  When I added the picture, it creates a package ??  How can I now access that picture using a query in a VB6 program?

DougP · Apr 11, 2000

You need Doogies Magic Picture thingy Step right this way. ---------------------- I leave the images on the hard drive, Server drive preferrably Then I use this code to load it in an Image on a form This does 2 things allows you to view different formats i.e. .gif or .jpg And keeps your database small because your are not adding images which wil bloat it in a hurry. 1. So create a form whose record source is connected to your table 2. Add an Image to the form 3. Properties of Imageas follows Picture (none) Picture Type linked 4. Put this code in the On_Current event of the form Private Sub Form_Current()     If Me![ID] <> 0 Then                     Me!Image14.Picture = "p:\ViewPhotos\Photos\" & Me![ID] & ".jpg"         Label20.Caption = "File: " & " p:\ViewPhotos\Photos\" & Me![ID] & ".jpg"     End If         End Sub Also I used a unique ID for the Pictures name so when I click the naviagation buttons it would get the unique ID from the database and then load that picture. I also added a label so you know which image it was trying to load (for troubleshooting)

allyeric · Apr 11, 2000

so in your database field, it is a text field?  And the only information you have in there is a picture name?  And, when I created an image on the form, I didn't find a picture type in the properties (sorry, pretty new to this)

DougP · Apr 11, 2000

in the Table there is no picture field Just a unique ID field In may case it was "ID" referrdto in the code as Me![ID] Then on your form add an "Image" So the Image is blank until you open the form. Then the On_current event loads a picture into it when you move back and forth in the records using the navigation buttons.

allyeric · Apr 11, 2000

I am using the ADO to connect, and my code is a little bit different than yours.  I will copy it here, but I have a compile error, as marked in the code for you.  I hope you can help me through the fog here.  The line in bold is the error line, and the error is with the ampersand as shown in red.  The error states Compile Error:  Type Mismatch  my PictureID field in my table is a text field. Private Sub Form_Load() Dim con As ADODB.Connection Dim rs As ADODB.Recordset Dim strSQL As String Dim lQuestionNumber As Long Dim sQuestion(24), sAnswers(24) As String Dim sPictureID(24) As String Dim intNumber As Integer intNumber = 0 For lQuestionNumber = 1 To 6     strSQL = "SELECT * FROM Exam_SRHEX44 where Question_No =" & lQuestionNumber     Set con = New ADODB.Connection     con.Open "DSN=Training;UID=;PWD=;"     Set rs = con.Execute(strSQL)     While Not rs.EOF         sAnswers(lQuestionNumber - 1) = rs("Answer_Text&quot

sQuestion(lQuestionNumber - 1) = rs("Question_Text&quot

sPictureID(lQuestionNumber - 1) = rs("PictureID&quot

rs.MoveNext      Wend Next Pass = frmPassword.txtPassword.Text For C = 1 To Len(Pass)         R = R + Asc(Mid$(Pass, C)) Next lblQuestion.Caption = sQuestion(intNumber) imgExamPic.Picture = "C:\exam pics\" & sPictureID(intNumber) & ".jpg" Text1.Text = "File:  " & "C:\exam pics\" & sPictureID(intNumber) & ".jpg" chkOptionA.Caption = sAnswers(intNumber) End Sub

DougP · Apr 11, 2000

What is "sPictureID(intNumber)"? Is that that a field on your form then you need "me!" in fron of it If its a field in the ADODB recordset then you need "rs" in front of it. Whatever you put in there has to print out to a valid String name using Debug.print while the code is paused for your error Press ctrl-G to bring up the debug window then type ?sPictureID(intNumber) and hit the Enter key it should print out a valid name (whatever the image name your want to load) To test the theory of the Ampersand being the problem or not. Hard code a valid .JPG image name in there temporarily. like: "C:\exam pics\XYZ.jpg" and see if you still get the same error.

allyeric · Apr 12, 2000

sPictureID(intNumber) is an array into which I put all the data from the picture ID field from the database  - which are the picture names.   Ok, I got it now, we both had it a little off, correct code is: imgExamPic.Picture = LoadPicture("C:\exam pics\" & sPictureID(intNumber) & ".jpg&quot

thanks for your help!

DougP · Apr 12, 2000

Not sure why you are putting the picture field into an array you could think of a table as an array. Then get your answer using a SQL statement.

allyeric · Apr 12, 2000

I am putting it into an array because I will be randomizing the pictures before putting it on the form.  This is for an exam, and they don't want the questions coming up in the same order every time its run.

jascoh · Oct 25, 2005

Hello:
How do I layer pictures in MS Access 2002? What I mean is, I have an embedded .jpg and I want everything else to be in front of it. Watermark or text box transparency doesn't work. The picture (.jpg) still covers the text boxes in my report. I want to be able to select 'send to back' or 'send to front' like in other MS programs but those menus don't seem to appear in Access. I've reset all user commands and still don't see it.
Ideas?
-Jason

anaguib · Oct 25, 2005

Hello Jason,
Highlight the control you want to bring in front of the picture, then cut it (Ctrl+X) and right away paste it (Ctrl+V) and place it in the same place it was in, you will find that it will be placed on top of the picture ...
It will keep the same name, values and properties. I hope this will work fine for you ....

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Picture Field??

allyeric

Programmer

DougP

MIS

allyeric

Programmer

DougP

MIS

allyeric

Programmer

DougP

MIS

allyeric

Programmer

DougP

MIS

allyeric

Programmer

jascoh

Technical User

anaguib

MIS

Similar threads

Part and Inventory Search

Sponsor