Programatically returning a label number

I have a form that has an image as the main item on it. th image is an
exploded schematic of an appliance with parts references on it.

The problem is that I have placed labels over the parts references and on
the click event of the label the following code runs.

Private Sub Label4_Click()
On Error GoTo Err_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Part"
stLinkCriteria = "Partid =" & Me.Label4.Caption
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Click:
Exit Sub

Err_Click:
MsgBox Err.Description
Resume Exit_Click
End Sub

The caption contains the PartID
This works fine, however, the seven forms like this seem to have so much
code that the database is blowing up to 85 meg. I have used compact and the
image itself is under 250K.

What I want to try to do is to convert this to a function but have so far
been unsuccessful at being able to return the label number into the code
programatically. Each form may have up to 70 labels with events attached.


Thanks in advance.
.

Relevant Pages

  • Re: How to avoid MouseEvent recursion?
    ... a number of folks suggest I handle this by placing labels ... picture box to fire *only* when I'm physically moving the mouse cursor. ... Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As ... Private Declare Function CombineRgn Lib "gdi32" (ByVal hDestRgn As Long, ...
    (microsoft.public.vb.general.discussion)
  • Re: Cannot save Form changes with VBA
    ... If the form and textbox are bound to a field in a table then the ... Private Sub Form_Load ... I use labels on the form to record which file was last loaded. ... Public Function adhIsFormOpenAs Boolean ...
    (comp.databases.ms-access)
  • Re: Release of RosAsm V.2.025a
    ... not how it's implemented (RosAsm). ... somewhere in the symbol table are the labels. ... > Each time you compact a jump, the labels elsewhere in the code move. ... It also manages a References Table, ...
    (alt.lang.asm)
  • Re: Problems with charts, VBA and series...
    ... Here's a format that will use the first row as series labels and the ... and blank cell, and make your chart. ... Sub SeriesNameAssigner() ... Dim oSrs As Series ...
    (microsoft.public.excel.charting)
  • Re: Userform SetFocus with Exit and Cancel
    ... The labels look like textboxes with a grey background. ... >> Private Sub CommandButton1_Click ... >> Private Sub SymbolBox_Exit(ByVal cancel As MSForms.ReturnBoolean) ... >> Dave Peterson ...
    (microsoft.public.excel.programming)