how to pass label captions to a textbox in another form?

[Paul T. Rong]

Hello there,

I have tried all day but in vain....here is the problem:

Form1: there are 50 labels (so far, the number is subject to change), each
label caption is a fruit or a vegetable, for example, label1's caption is
apple, label2's caption is banana, label3 citron, etc.

Form2: one textbox txt0.

Action: double click label1, open Form2 and fill txt0 "apple",
double click label2, open Form2 and fill txt0 "banana",
double click label3, open Form2 and fill txt0 "citron" etc.

Is is possible, How to do it?

Thank you.

Paul from Slovakia

[fredg]

On Thu, 23 Sep 2004 19:48:39 GMT, Paul T. Rong wrote:

Hello there,

I have tried all day but in vain....here is the problem:

Form1: there are 50 labels (so far, the number is subject to change), each
label caption is a fruit or a vegetable, for example, label1's caption is
apple, label2's caption is banana, label3 citron, etc.

Form2: one textbox txt0.

Action: double click label1, open Form2 and fill txt0 "apple",
double click label2, open Form2 and fill txt0 "banana",
double click label3, open Form2 and fill txt0 "citron" etc.

Is is possible, How to do it?

Thank you.

Paul from Slovakia

In the Double-click event of each of the labels on form1:
DoCmd.OpenForm "Form2"
forms!Form2!Tex t0 = Me![Labelx].Caption

where the x in Labelx is the label number double-clicked.

--
Fred
Please only reply to this newsgroup.
I do not reply to personal email.

[Paul T. Rong]

Thank you, fred

but I would like to some other way. because there are 50 labels (and the
number is subject to change according to the user), I can not to make it
manually in your way 50 times or even more.

Is it possible to by vba

1. to select all labels
2. to write in their "double click" property something like "=labelclic k"
3. to add something like:

Private Function labelclick()
dim labelcap as string

' what is needed here is a vba function to get back the value of the
caption of the label we just double clicked
Docmd.OpenForm "Form1"
Forms![Form1].txt0 = labelcap

End Function

this is what i thought, anybody can help?

many thanks,

Paul

Bratislava, Slovakia
"fredg" <fg******@examp le.invalid>
??????:14****** *************** *******@40tude. net...

On Thu, 23 Sep 2004 19:48:39 GMT, Paul T. Rong wrote:

Hello there,

I have tried all day but in vain....here is the problem:

Form1: there are 50 labels (so far, the number is subject to change), each label caption is a fruit or a vegetable, for example, label1's caption is apple, label2's caption is banana, label3 citron, etc.

Form2: one textbox txt0.

Action: double click label1, open Form2 and fill txt0 "apple",
double click label2, open Form2 and fill txt0 "banana",
double click label3, open Form2 and fill txt0 "citron" etc.

Is is possible, How to do it?

Thank you.

Paul from Slovakia

In the Double-click event of each of the labels on form1:
DoCmd.OpenForm "Form2"
forms!Form2!Tex t0 = Me![Labelx].Caption

where the x in Labelx is the label number double-clicked.

--
Fred
Please only reply to this newsgroup.
I do not reply to personal email.

[rkc]

"Paul T. Rong" <et***@hotmail. com> wrote in message
news:Tc******** *************@n ews.chello.at.. .

Thank you, fred

but I would like to some other way. because there are 50 labels (and the
number is subject to change according to the user), I can not to make it
manually in your way 50 times or even more.

Is it possible to by vba

1. to select all labels
2. to write in their "double click" property something like "=labelclic k"
3. to add something like:

Private Function labelclick()
dim labelcap as string

My favorite way to add function to multiple controls of the same type
is through a class using WithEvents.

<clsLabelCaptio n>
Option Compare Database
Option Explicit

Private WithEvents m_label As Access.Label
Private m_targetForm As String

Public Sub init(lbl As Access.Label, formName As String)
m_targetForm = formName
Set m_label = lbl
m_label.OnDblCl ick = "[Event Procedure]"
End Sub

Private Sub m_label_DblClic k(Cancel As Integer)
DoCmd.OpenForm m_targetForm, acNormal, , , , , m_label.Caption
End Sub
</clsLabelCaption >

<calling form code>
Option Compare Database
Option Explicit

Dim colFruitLbls As VBA.Collection
Private lbc As clsLabelCaption
Private Sub Form_Load()
Set colFruitLbls = New VBA.Collection
Dim ctl As Access.Control
For Each ctl In Me.Controls
'use the tag property to identify which labels
'should have the behaviour
If ctl.ControlType = acLabel And _
ctl.Tag = "true" Then
Set lbc = New clsLabelCaption
lbc.init ctl, "target"
colFruitLbls.Ad d lbc
End If
Next

Set lbc = Nothing

End Sub

Private Sub Form_Unload(Can cel As Integer)
Set colFruitLbls = Nothing
</calling form code>

<target form code>
Option Compare Database
Option Explicit

Private Sub Form_Load()
Dim s As String
s = Me.OpenArgs & ""

Me.Text0.Value = s
End Sub

</target form code>

[Paul T. Rong]

Thank you, rkc, it works, thank you very much.

Paul
"rkc" <rk*@yabba.dabb a.do.rochester. rr.bomb> дÈëÏûÏ¢ÐÂÎÅ
:Ut************ ********@twiste r.nyroc.rr.com. ..

"Paul T. Rong" <et***@hotmail. com> wrote in message
news:Tc******** *************@n ews.chello.at.. .

Thank you, fred

but I would like to some other way. because there are 50 labels (and the
number is subject to change according to the user), I can not to make it
manually in your way 50 times or even more.

Is it possible to by vba

1. to select all labels
2. to write in their "double click" property something like "=labelclic k" 3. to add something like:

Private Function labelclick()
dim labelcap as string

My favorite way to add function to multiple controls of the same type
is through a class using WithEvents.

<clsLabelCaptio n>
Option Compare Database
Option Explicit

Private WithEvents m_label As Access.Label
Private m_targetForm As String

Public Sub init(lbl As Access.Label, formName As String)
m_targetForm = formName
Set m_label = lbl
m_label.OnDblCl ick = "[Event Procedure]"
End Sub

Private Sub m_label_DblClic k(Cancel As Integer)
DoCmd.OpenForm m_targetForm, acNormal, , , , , m_label.Caption
End Sub
</clsLabelCaption >

<calling form code>
Option Compare Database
Option Explicit

Dim colFruitLbls As VBA.Collection
Private lbc As clsLabelCaption
Private Sub Form_Load()
Set colFruitLbls = New VBA.Collection
Dim ctl As Access.Control
For Each ctl In Me.Controls
'use the tag property to identify which labels
'should have the behaviour
If ctl.ControlType = acLabel And _
ctl.Tag = "true" Then
Set lbc = New clsLabelCaption
lbc.init ctl, "target"
colFruitLbls.Ad d lbc
End If
Next

Set lbc = Nothing

End Sub

Private Sub Form_Unload(Can cel As Integer)
Set colFruitLbls = Nothing
</calling form code>

<target form code>
Option Compare Database
Option Explicit

Private Sub Form_Load()
Dim s As String
s = Me.OpenArgs & ""

Me.Text0.Value = s
End Sub

</target form code>