I have a form (it's a sub-form actually) that includes a combobox where property choices are shown as pertains the contents of an image. The form ("frmImSample") that contains ONLY an image control has that control's Picture property set to the current records image name and the intent here is to simply make the image visible while the user makes his/her choice among the property options. The "image form" is then made invisible when the combobox looses the focus. The "make visible" statement is not working and I've not figured out why that is. (I verified the image form is open in Debug)
Code:
Private Sub cboHowPic_GotFocus()
'*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*
' Combo box shows the available list of properties for the Directory image.
' Popup the image itself so that the user can see who's in the image.
' (Open the image form first if it's not already open.)
'*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*
Call ShiftPB
If Not IsNull(FamilyImageID) Then
Me.cboHowPic.Dropdown
If CurrentProject.AllForms("frmImSample").IsLoaded = False Then _
DoCmd.OpenForm "frmImsample", , , , , acHidden
Forms!frmImSample!ImSample.Picture = TMSClientPath & TMSClientImages & FamilyImageID & ".jpg"
Forms!frmImSample.Visible = True '<<<<<<<<<<<<<<<<<<<<
End If
End Sub
Private Sub cboHowPic_LostFocus()
Forms!frmImSample.Visible = False
End Sub