I am trying to add three photos per record on a form. I want the path
to each photo stored in a table, each field in the table is labeld
Phot1, Photo2 and Photo 3 respectively. I then want to view each phot
in the form. The name of the Form is Doll2. Can someone please look
this over for accuracy and if it will work in OOoBase?
Thanks
REM ***** BASIC *****
Function setImagePath1()
Dim strImagePath1 As String
On Error GoTo PictureNotAvailable
strImagePath1 = Forms!Doll2.Photo1
Forms!Doll2.Photo1.Locked = True
Forms!Doll2.Photo1.Enabled = False
Forms.Doll2.ImageFrame1.Picture = strImagePath1
Exit Function
PictureNotAvailable:
strImagePath1 = "C:\NoImage.gif"
Forms.Doll2.ImageFrame1.Picture = strImagePath1
End Function
Function setImagePath2()
Dim strImagePath2 As String
On Error GoTo PictureNotAvailable
strImagePath2 = Forms!Doll2.Photo2
Forms!Doll2.Photo2.Locked = True
Forms!Doll2.Photo2.Enabled = False
Forms.Doll2.ImageFrame2.Picture = strImagePath2
Exit Function
PictureNotAvailable:
strImagePath2 = "C:\NoImage.gif"
Forms.Doll2.ImageFrame2.Picture = strImagePath2
End Function
Function setImagePath3()
Dim strImagePath3 As String
On Error GoTo PictureNotAvailable
strImagePath3 = Forms!Doll2.Photo3
Forms!Doll2.Photo3.Locked = True
Forms!Doll2.Photo3.Enabled = False
Forms.Doll2.ImageFrame3.Picture = strImagePath3
Exit Function
PictureNotAvailable:
strImagePath3 = "C:\NoImage.gif"
Forms.Doll2.ImageFrame3.Picture = strImagePath3
End Function
Sub Main
cmdAddImage1_Click()
On Error GoTo cmdAddImage1_Err
Dim strFilter As String
Dim lngflags As Long
Dim varFileName As Variant
strFilter = "All Files (*.*)" & vbNullChar & "*.*" & vbNullChar &
"All Files (*.*)" & vbNullChar & "*.*"
lngflags = tscFNPathMustExist Or tscFNFileMustExist Or
tscFNHideReadOnly
varFileName = tsGetFileFromUser( _
fOpenFile:=True, _
strFilter:=strFilter, _
rlngflags:=lngflags, _
strDialogTitle:="Please choose a file...")
If IsNull(varFileName) Then
Else
Forms.Doll2.Photo1 = varFileName
Forms.[Doll2].Form.Requery
End If
cmdAddImage1_End
On Error GoTo 0
cmdAddImage1_Err
On Error GoTo 0
cmdDeleteImage1_Click()
Forms!Doll2Photo1.Enabled = True
Forms!Doll2Photo1.SetFocus
Forms!Doll2Photo1.Locked = False
Forms!Doll2Photo1.Text = ""
Forms!Doll2Photo1.SetFocus
Forms.[Doll2].Form.Requery
Forms!Doll2Photo1.Locked = True
Forms!Doll2Photo1.Enabled = False
Exit Sub
Photo1_AfterUpdate()
setImagePath1
Forms.[Doll2].Form.Requery
Exit Sub
cmdAddImage2_Click()
On Error GoTo cmdAddImage2_Err
varFileName = tsGetFileFromUser( _
fOpenFile:=True, _
strFilter:=strFilter, _
rlngflags:=lngflags, _
strDialogTitle:="Please choose a file...")
If IsNull(varFileName) Then
Else
Forms!Doll2.Photo2 = varFileName
Forms.[Doll2].Form.Requery
End If
cmdAddImage2_End
On Error GoTo 0
Exit Sub
cmdAddImage2_Err
On Error GoTo 0
Exit Sub
cmdDeleteImage2_Click()
Forms!Doll2.Photo2.Enabled = True
Forms!Doll2.Photo2.SetFocus
Forms!Doll2Photo2.Locked = False
Forms!Doll2Photo2.Text = ""
Forms!Doll2Photo2.SetFocus
Forms.[Doll2].Form.Requery
Forms!Doll2.Photo2.Locked = True
Forms!Doll2.Photo2.Enabled = False
Exit Sub
Photo2_AfterUpdate()
setImagePath2
Forms.[Doll2].Form.Requery
Exit Sub
cmdAddImage3_Click()
On Error GoTo cmdAddImage3_Err
varFileName = tsGetFileFromUser( _
fOpenFile:=True, _
strFilter:=strFilter, _
rlngflags:=lngflags, _
strDialogTitle:="Please choose a file...")
If IsNull(varFileName) Then
Else
Forms!Doll2.Photo3 = varFileName
Forms.[Doll2].Form.Requery
End If
cmdAddImage3_End
On Error GoTo 0
Exit Sub
cmdAddImage3_Err
On Error GoTo 0
Exit Sub
cmdDeleteImage3_Click()
Forms!Doll2.Photo3.Enabled = True
Forms!Doll2.Photo3.SetFocus
Forms!Doll2.Photo3.Locked = False
Forms!Doll2.Photo3.Text = ""
Forms!Doll2.Photo3.SetFocus
Forms.[Doll2].Form.Requery
Forms!Doll2.Photo3.Locked = True
Forms!Doll2.Photo3.Enabled = False
Exit Sub
Photo3_AfterUpdate()
setImagePath3
Forms.[Doll2].Form.Requery
Exit Sub
End Sub