A
alpapak via AccessMonster.com
Image and form (preview)
------------------------------------------------------------------------------
--
Hi
i have a table
Photo
PhotoID
PhotoLink
PhotoDetails
PhotoDate
I want to make a form from this table where :
at the left side to preview the images and when i focus on one image to see
it at the center of the form.
And what is better:
to link to the photo
or to insert (the file is jpeg)
Please if you have seeing something similar post link
thxs
i foubd this code but i can find a solution
Private Sub cmdNewImage2_Click()
On Error GoTo ErrorHandler
Dim sPictureName As String
Dim gfni As FILENAME_INFO
With gfni
..lngFlags = 5
..strFilter = "Image Files (*.gif, *.jpg, *.bmp)|*.gif;*.jpg;*.bmp|All Files
(*.*)|*.*"
End With
Call OfficeGetFileName(gfni, 1)
sPictureName = Trim(gfni.strFile)
Me.OLEMyObjectName.Action = acOLEInsertObjDlg check here(i want to
connect OLEMyObjectName with sPictureName
ExitProcedure:
Exit Sub
ErrorHandler:
Select Case Err.Number
Case 2001 'You cancelled the previous operation.
Resume ExitProcedure
Case Else
MsgBox "Error " & Err.Number & ": " & Err.Description
Resume ExitProcedure
End Select
End Sub
------------------------------------------------------------------------------
--
Hi
i have a table
Photo
PhotoID
PhotoLink
PhotoDetails
PhotoDate
I want to make a form from this table where :
at the left side to preview the images and when i focus on one image to see
it at the center of the form.
And what is better:
to link to the photo
or to insert (the file is jpeg)
Please if you have seeing something similar post link
thxs
i foubd this code but i can find a solution
Private Sub cmdNewImage2_Click()
On Error GoTo ErrorHandler
Dim sPictureName As String
Dim gfni As FILENAME_INFO
With gfni
..lngFlags = 5
..strFilter = "Image Files (*.gif, *.jpg, *.bmp)|*.gif;*.jpg;*.bmp|All Files
(*.*)|*.*"
End With
Call OfficeGetFileName(gfni, 1)
sPictureName = Trim(gfni.strFile)
Me.OLEMyObjectName.Action = acOLEInsertObjDlg check here(i want to
connect OLEMyObjectName with sPictureName
ExitProcedure:
Exit Sub
ErrorHandler:
Select Case Err.Number
Case 2001 'You cancelled the previous operation.
Resume ExitProcedure
Case Else
MsgBox "Error " & Err.Number & ": " & Err.Description
Resume ExitProcedure
End Select
End Sub