Hi. Thanx for letting me into this forum. I have neck prolapse and want to make a "pain diary". I would love to have the ability to have an image of a silhouette body. Then - I can pick different Places on the body by the mouse - and by that - adding values to a table cell. Say, for instance; I have severe pain in my neck one day. At the same time I can feel radiation out to my arm. Is it possible to embed a Picture of a human, splitting the part of the "image" into parts that can be written to a table if selected? Hope for a quick answer as this pain is killing me. Thanks a lot. Best.
Is it possible to connect parts of image to cell values? Bind a picture to cells/tabl (1 Viewer)
- Thread starter MadMads
- Start date
isladogs
MVP / VIP
- Local time
- Today, 02:51
- Joined
- Jan 14, 2017
- Messages
- 18,209
Cross posted here: http://www.accessforums.net/showthread.php?t=70061
If you do cross-post, please state you have done so & provide the link
If you do cross-post, please state you have done so & provide the link
Yes, sort of. A button can display an image, so if you cut up an image into rectangles you could then reconstruct the image via buttons. Add an onclick event to the buttons to add data to the database.
To get more grainular, I believe you can capture the x\y position on the mouse via VBA. That would allow you to use an actual image object and define body areas non-rectangularly and down to the pixel level.
To get more grainular, I believe you can capture the x\y position on the mouse via VBA. That would allow you to use an actual image object and define body areas non-rectangularly and down to the pixel level.
Thanx. I am quite New to this - could you help me a bit on the coding? I found this for Excel, but does not seem to work for Access?
Private Sub UserForm_Initialize()
Application.ScreenUpdating = False
Dim fA()
Dim i%, n%
Dim dName$
ChDrive "c"
ChDir "C:\Photographs\Zelda"
dName = Dir("*.jpg")
Do While dName <> ""
n = n + 1
ReDim Preserve fA(1 To n)
fA
= dName
dName = Dir()
Loop
For i = 1 To n
ComboBox1.AddItem fA(i)
Next
ComboBox1.ListIndex = 0
Application.ScreenUpdating = True
End Sub
Sub ComboBox1_Change()
Image1.Picture = LoadPicture(ComboBox1.Value)
End Sub
Private Sub UserForm_Initialize()
Application.ScreenUpdating = False
Dim fA()
Dim i%, n%
Dim dName$
ChDrive "c"
ChDir "C:\Photographs\Zelda"
dName = Dir("*.jpg")
Do While dName <> ""
n = n + 1
ReDim Preserve fA(1 To n)
fA
= dNamedName = Dir()
Loop
For i = 1 To n
ComboBox1.AddItem fA(i)
Next
ComboBox1.ListIndex = 0
Application.ScreenUpdating = True
End Sub
Sub ComboBox1_Change()
Image1.Picture = LoadPicture(ComboBox1.Value)
End Sub
But isnt this syntax for Excel? Works there - but not in Access? The path is not correct, as it is in my downloads - or do I need to add the path? I also get index errors?
Would be so Grateful for someone who could help me "tranlsate" this syntax to Access VBA.
Would be so Grateful for someone who could help me "tranlsate" this syntax to Access VBA.
My mistake - I have just pasted the code I found on the interenet. I have changed the paths - but not in the functions. I am also not sure about where to put the codes - and if "Form_initalize" is a proper syntax? Best Mads
Similar threads
