A
Allen Yap
I have 18 forms, all having identical controls. In each form module I have
the following codes examples
''''
Private Sub lbl1_DblClick(Cancel As Integer)
Dim noshow
noshow = Me!lbl1eg.Value
If IsNull(noshow) Then
MsgBox "No example", , "EG"
Exit Sub
End If
Me!lbl1.FontSize = 8
Me!lbl1.Height = 220
Me!lbl1.Move 1500, 550
Me!lbl1eg.Visible = True
End Sub
Private Sub lbl1eg_DblClick(Cancel As Integer)
DoCmd.GoToControl "lbl1"
Me!lbl1.FontSize = 16
Me!lbl1.Height = 800
Me!lbl1.Move 900, 800
Me!lbl1eg.Visible = False
End Sub
.............
................
The above is obviously not the best way. How do I create a Public Sub so
that each form can read from it. Please help
Thanks
the following codes examples
''''
Private Sub lbl1_DblClick(Cancel As Integer)
Dim noshow
noshow = Me!lbl1eg.Value
If IsNull(noshow) Then
MsgBox "No example", , "EG"
Exit Sub
End If
Me!lbl1.FontSize = 8
Me!lbl1.Height = 220
Me!lbl1.Move 1500, 550
Me!lbl1eg.Visible = True
End Sub
Private Sub lbl1eg_DblClick(Cancel As Integer)
DoCmd.GoToControl "lbl1"
Me!lbl1.FontSize = 16
Me!lbl1.Height = 800
Me!lbl1.Move 900, 800
Me!lbl1eg.Visible = False
End Sub
.............
................
The above is obviously not the best way. How do I create a Public Sub so
that each form can read from it. Please help
Thanks