If all your images are in the Beaufort folder in the Application folder,
you could do something like this with an image control and a value list combo box.
Code:
Private Sub Form_Load()
Me.imgBeaufort.Picture = ""
Me.cboBeaufortID = ""
sGetImages
End Sub
Private Sub cboBeaufortID_AfterUpdate()
Me.imgBeaufort.Picture = Me.cboBeaufortID.Column(1)
End Sub
Private Sub sGetImages()
'add image names and paths to the combo box
Dim fol As Object, fil As Object
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Me.cboBeaufortID.RowSource = ""
Dim strBaseFolder As String
strBaseFolder = CurrentProject.Path & "\Beaufort"
Set fol = fso.GetFolder(strBaseFolder)
For Each fil In fol.Files
Me.cboBeaufortID.AddItem fil.Name & ";" & fil.Path
Next
Set fso = Nothing
End Sub
If this helped, please click the star * at the bottom left and add to my reputation- Thanks