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