Have a database that stores information about jewelry. The user wants each record to have a picture of the item. No matter what I try I can’t put a picture field in my table. All help is appreciated. tillessal@yahoo.com :confused:
View Replieshi i am building a basic database for a friend. she collects stamps and this database is used to store some of the stamps that she wants.
i have it all setup so that she can type the name and all the info about the stamps, she can print it off and its all very user friendly.
now what i want is a button she can click to add a picture of the stamp onto the form used to put the data in.
how will i got about doing this? i ahve no idea where to start except i think i will have to make a macro???
thanks if anyone can help!!
Josh
I use the botton code for save image in SQL
Dim fDialog As Object
Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
Dim varFile As Variant
Set Cn = New ADODB.Connection
Cn.Open "Provider=SQLOLEDB;data Source=.;" & _
[Code] ....
But I have a problem when my database more than 2000 record. I think my problem in
rs.Open "Select * from Table_2", Cn, adOpenKeyset, adLockOptimistic
because select all record in Table_2
I decided to use bottom code
strSQL = "INSERT INTO Table_2(image_v,sabt,filetype_v,imageid) Values (mstream.Read,'" & [kodimage] & "','" & [file_type] & "','" & Me.Text8 & "');"
Cnxn.Execute strSQL
But I get an error with mstream.Read!!!!
In form I want to put a command where we can browse a picture and insert it...how to do ...
View 5 Replies View RelatedI need codes to browse pictures from desktop or folder and insert into access DB.
I am using Access 2010.
I also want the code to only insert the name of the picture and then link its folder through the ID or some text,ok?
I am at work, and I have acquired a database that prints labels. They now want the database to be coded so that after certain labels are printed the database will print a blank label. I have the code figured out as a Do While statement in order to print the blank label. The problem I am having is that I am trying to use the Insert Into command to insert the filepath into the table that adds the blank label.
|DoCmd.RunSQL "INSERT INTO Rod_tmakLabels ( Print, [Order] ) SELECT Yes AS Expr1, 'Rods Labels' AS Expr2"|
If I run the above command, it just adds the text "Rods Labels" at the end of the table. Is there anyway with the INSERT INTO command that I can insert the new label between the 2nd and 3rd row and add another row? Or is the command designed only to add a new row to the end? I haven't had any luck searching for this yet.
Table TBL_NEWDATA is used to append new data to table TBL_PERSON_ALLOCATIONS.
TBL_NEWDATA { Person_ID, Department_ID }
TBL_PERSON_ALLOCATIONS { Person_ID, Department_ID, ... }
I need to devise a query to append data for a particular Department_ID from TBL_NEWDATA to TBL_PERSON_ALLOCATIONS where that data does not already exist there. i.e. for Department_ID 'Research', I would want to append 'Person_ID', 'Department_ID' (in this case: 'Research') to TBL_PERSON_ALLOCATIONS for any tuples not already held.
INSERT INTO TBL_PERSON_ALLOCATIONS (Person_ID, Department_ID)
SELECT Person_ID, Department_ID
FROM TBL_NEWDATA
WHERE TBL_NEWDATA.Department_ID='Form...'
[code]...
This Query takes a single argument from a control (Forms!Main!IN_Department), and this is the Department_ID to be updated.Is there any way to do this using a single query or will I have to use sub queries? I'd hoped not to as to keep the database as concise as possible.
I'm just wondering, is it possible to put a graphics in the code? the reason I want to know is that I will put a sad face on each customer every time they call. so if they will call me 5 times i will see a 5 sad smiley face on the customer information. Can you please help me with this one. or if you know any way to do just let me know. thank you so much.
View 6 Replies View RelatedHere is my situation. I have a database with a table in which contains all of the names and members of our club. Every member in our club has a rank, the rank is held in a field called "rank". I also have a form which is used to add and edit the information into this table. The form that i have create is a bog standard form with nothing special on it. What i would like to be able to do is when the form loads and the information from the table populates it, i would like a picture box to hold a picture that represents there position like an avatar. I have tried doing this myself however my attempts just resulted in errors about not have the form focus. I use the code editor to do this. I know this is possible to do as i have seen it on some other projects.
If any one has any idea or hints about how i can do this please reply.
As an added thing i would prefer if it was done in the code editor as the machine it has to run on has macros disabled.
Hi guys.
I have been told to make my database look 'sexier' but I am a bit worried that the pictures may slow it down or increase it's size unneccesarily.
Speed is an issue because we have some offices that dial in and access it that way and as such are limited to their connection speed.
So what I want to do is created a few images, link to them, and put in code that can 'turn them on'.
The question is how?
I have created a new image object. Changed it's properties to linked.
Now I need some code that reads:
If myvalue = "Yes" then
myImage.visible = true
Else
'code to delete image
End If
I am a bit worried because that means that the images will always be there on load up, so loading the form will be just as slow because the images are there.
Or maybe I can do
If myvalue = "Yes" then
'code to create image
End If
Please help.
Edit - Part two to this question is: How do I use relative links for images? I have a folder of images and I want them to work no matter where the database sits.
Edit again - Just another question: Is it possible to have Images appear and disappear depending where the mouse is?
I have a form which brings up another form like this
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "frmImage"
stLinkCriteria = "[ProductID]=" & "'" & Me![txtProductID] & "'"
Me.Visible = False
DoCmd.OpenForm stDocName, , , , , , "SELECT ProductID, Description, Path FROM tblProducts WHERE " & stLinkCriteria & ";"
However, on the frmImage there is also an ImageControl that may or may
not have a picture. The name of the path and filename is stored in a field
in a table (not OLE).
I do not want the frmImage to open at all if no image can be found under the path and name specified. The file/picture name is exactly the same as the ProductID in the link criteria above.
Perhaps a message to say that no image was found.
At the moment the form opens up regardless.
By the way, the Me.Visible = False refers to the form that opens the
frmImage form, so will have to become True if no image found.
Thanks
I have set up a bound object frame on a form, everything works good, only problem i have is the picture doesn't display but the name of the picture does, ie...picture.jpg. if i click on this the picture is displayed in microsoft office picture manager, I think I'm close..maybe just a shove away..
Please help if you can,,
Thanks,
Jerry
I need very very urgent help in database forms. I have 2 pictures. Active and Inactive. How do I go about where when there is no record, the inactive pictures shows, but when there data is entered into the db, the active pictures appear. Can someone please help me??
View 6 Replies View RelatedIn everyones opinion what is the best way to handle picture uploads in an Access database?
One picture for one employee, where should I store the pictures. I know that keeping pictures in the database eats up space and really can slow ya down. Make a new folder just for pictures??
Thanks fellas and ladies.
i have a folder called photos and i have all the pictures named properly, and i would like to be able to creat a table with each picture in this folder and have there picture name be the fields unique Id. im not sure how to import so many pictures and how to give there name.
View 14 Replies View RelatedI have searched (not knowing what to search for), tried Access help and most importantly experimented, but alas no luck.
I have a header section and body/main section of a form.
I want the background image to fill the body/main section only, but instead it seems to cover the whole form, including the header section.
Is it possible to limit an image to the body section of a form only.
Thank you in advance
Hello.
Please help.
In form I want to see picture from another table and In form On Current i put sub:
Dim picPhotoString As Variant
Dim str1 As String
picPhotoString = Me!txtBox.value
sstr1= DLookup("[Field] ", "table", "[ID]= ' " & picPhotoString & " ' ")
Me!ObjectBoundFrame.value = str1
Me!ObjectBoundFrame.Requery
When table contain Photo, it shows, when no - I recieve error: "Invalide Use of Null".
Where is mistake?
I was unable to find a satisfactory answer to this problem in the forum plz answer asap:
How can I add different pictures as background on different pages of a tabulated form such that each tab if clicked loads a new page with a different bkgrnd pic?
i m able to do this for entire forms but not each tabulated page portion
Please reply fast
hopefully the attachment will be here
sorry did not notice a 2mg limit I had to omit all the pictures but you should get the jest of it.
Thank You again
roborro
I was wondering if anyone could let me know how to do the following:
I have a form with a subform in it. I based the subform on a combo box that gets its info from a table seperate from the form(This works fine) when an item is selected from the combo box it retrieves the correct subform accordingly. I need to know if it is possible if when a selection is made from the combo box it could select the correct picture from the tab folder i have on the form aswell as the correct subform. The picture of my form I have attached may explain better than i can.
I appreciate any feedback whatsoever.
Thank you
I have a form that is part of an auction application, and displays a picture of an item when the record is retrieved (OnCurrent event).
That works fine, but (presumably when the server is slow) I get a popup box informing me that it is "Importing Picture", often flashing too quickly to be read, let alone cancelled.
How can I turn this warning off?
If this is a duplicate posting, my apologies - my machine's playing up.
I have a form that is part of an auction application, and displays a picture of an item when the record is retrieved (OnCurrent event).
That works fine, but (presumably when the server is slow) I get a popup box informing me that it is "Importing Picture", often flashing too quickly to be read, let alone cancelled.
How can I turn this warning off?
I have created a db with a picture linked to every form as a background.
The mdb file and the jpeg file are on the server but if it is open and someone else tries to open it it will give an error and the bg won't be linked to the forms.
If the picture is embedded the db becomes sooo large (from 700 kb to 43 mb!!!!) so that's also not the solution.
Hope that someone can help.
Wendi:)
Is there a way to merge a picture or object to the background so i can put fields over it.
Here's is what I'm doing, I have a picture of a tool and need to measure it in certain spots. I have my pic, but when I try to put my fields in place they disappear to underneath the pic. I need an suggestions
Hey to all. I have this form in which I need according to a user selection to assign a picture and display it on the same form. Is this possible? How do I do this? Or can I display the picture to another form or a report based on the first form?
Thanks in advance.
Hi, I have finally managed to create a button wich add a photo with the code below, what I need now is to create a button DELETE wich will remove the photo I have loaded !
Private Sub cmdBrowse_Click()
On Error GoTo err_cmdBrowse
Me![txtPicture] = GetOpenFile_CLT("C:Documents and SettingsMarcoDocumentiB MedCrew SchedulerPhotos", "Select the File")
Me![txtPicture] = LCase(Me![txtPicture])
Me!Picture.Picture = Me!txtPicture
exit_cmdBrowse:
Exit Sub
err_cmdBrowse:
MsgBox Error$
Resume exit_cmdBrowse
End Sub