ImageFrame and file extensions (1 Viewer)

[sailinxtc]

I am trying to work with some sample code cause I am NEW to this and been struglin on this last part I want to change.

I have things working if I manually enter the file name and extension into the appropriate field but want to modify the code so I don't have to add the file exentions ".bmp" into my field for every file name and record.

Is there a way to modify the following code to add the .bmp extension when it opens the file in the imageframe and do this with ease ? Am I missing something simple ?

Module:
Option Compare Database
Option Explicit

Public Function DisplayImage(ctlImageControl As Control, strImagePath As Variant) As String
On Error GoTo Err_DisplayImage

Dim strResult As String
Dim strDatabasePath As String
Dim intSlashLocation As Integer

With ctlImageControl
If IsNull(strImagePath) Then
.Visible = False
strResult = "No image name specified."
Else
If InStr(1, strImagePath, "\") = 0 Then
' Path is relative
strDatabasePath = CurrentProject.FullName
intSlashLocation = InStrRev(strDatabasePath, "\", Len(strDatabasePath))
strDatabasePath = Left(strDatabasePath, intSlashLocation)
strImagePath = strDatabasePath & strImagePath
End If
.Visible = True
.Picture = strImagePath
strResult = "Image found and displayed."
End If
End With

Exit_DisplayImage:
DisplayImage = strResult
Exit Function

Err_DisplayImage:
Select Case Err.Number
Case 2220 ' Can't find the picture.
ctlImageControl.Visible = False
strResult = "Can't find image in the specified name."
Resume Exit_DisplayImage:
Case Else ' Some other error.
MsgBox Err.Number & " " & Err.Description
strResult = "An error occurred displaying image."
Resume Exit_DisplayImage:
End Select
End Function


code:
Option Compare Database
Option Explicit

Private Sub Form_AfterUpdate()
CallDisplayImage
End Sub

Private Sub Form_Current()
CallDisplayImage
End Sub

Private Sub txtImageName_AfterUpdate()
CallDisplayImage
End Sub

Private Sub CallDisplayImage()
Me!txtImageNote = DisplayImage(Me!ImageFrame, Me!txtImageName)
End Sub

 

[boblarson]

First of all, you have, in your After Update and Current code:

CallDisplayImage

And that should be

Call DisplayImage(Me.ImageFrame, Me!txtImageName & ".bmp")

 

[boblarson]

Oh, and Welcome to Access World Forums (sorry - forgot to put that first )

 

[sailinxtc]

Wow! that was quick and it works.

Thanks much!

 

[boblarson]