Updating Hyperlink Addresses in VBA (MS Access)

Hi,

I am making a database which uses labels to link to external files. I have the path of the file defined in a table and there is a test box on the form that displays it also. On the form load event the hyperlink address is set to whatever is in that text box:

Me.txtgroundFloorPlan100.Visible =True Me.txtgroundFloorPlan100.SetFocus groundFloorPlan100 =Me.txtgroundFloorPlan100.Text Me.cmdRefresh.SetFocus Me.txtgroundFloorPlan100.Visible =False Me.lblgroundFloorPlan100.HyperlinkAddress = groundFloorPlan100 IfMe.lblgroundFloorPlan100.HyperlinkAddress = ""Then Me.lblgroundFloorPlan100.ForeColor = RGB(204, 204, 204) Me.lblgroundFloorPlan100.ControlTipText = "Drawing Unavailble" Else Me.lblgroundFloorPlan100.ForeColor = RGB(0, 0, 255) Me.lblgroundFloorPlan100.FontUnderline =True Me.lblgroundFloorPlan100.ControlTipText = "Clickto open drawing" EndIf

I have added navigation buttons onto the form and have added this code to them also:

Me.txtgroundFloorPlan100.Visible =True Me.txtgroundFloorPlan100.SetFocus groundFloorPlan100 =Me.txtgroundFloorPlan100.Text Me.cmdRefresh.SetFocus Me.txtgroundFloorPlan100.Visible =False Me.lblgroundFloorPlan100.HyperlinkAddress = "" Me.lblgroundFloorPlan100.HyperlinkAddress = groundFloorPlan100 IfMe.lblgroundFloorPlan100.HyperlinkAddress = ""Then Me.lblgroundFloorPlan100.ForeColor = RGB(204, 204, 204) Me.lblgroundFloorPlan100.ControlTipText = "Drawing Unavailble" Else Me.lblgroundFloorPlan100.ForeColor = RGB(0, 0, 255) Me.lblgroundFloorPlan100.FontUnderline =True Me.lblgroundFloorPlan100.ControlTipText = "Clickto open drawing" EndIf

The problem is that the Hyperlink address doesn’t update, it links to the path in the first record.

Can anybody help?

Thanks

Lewis

[3954 byte] By [lewiscobley] at [2008-3-1]