Button to insert boilerplate text into field in a parent form

  • Thread starter Thread starter Toucan
  • Start date Start date
T

Toucan

Dear all.

I have a form with memo fields and it contains a subform with buttons to
insert boilerplate text into the fields in the parent form.

If the button were in the same form as the memo field, this code would work:
Private Sub Command1_Click()
Dim ctl As Control
Set ctl = Me.Field1
DoCmd.GoToControl ctl.Name
Field1.Text = Field1.Text & " " & "test text"
End Sub

But I can't get it to work from the subform. This is what I have so far:
Private Sub Command0_Click()
Dim ctl As Control
Set ctl = Forms!Form1
DoCmd.GoToControl ctl.Name
Me.Field1.Text = Field1.Text & " " & "test text"
End Sub

Any thoughts?
Toucan
 
Try this:

Private Sub Command0_Click()
Dim ctl As Control
Set ctl = Me.Parent.Field1
DoCmd.GoToControl ctl.Name
Me.Field1.Text = Field1.Text & " " & "test text"
End Sub

And you may want to dim a variable as a string, and set it equal to a text
control on the subform before moving to Field1 on the main form.
 
It works if the last line reads:
Parent.Field1.Text = Field1.Text & " " & "test text"

Thank you so much for your help!!!!

Niels
 
One more question:

Is there a way of going to the last active field in the parent form and not
to a specific field?

Thanks
Niels
 
Cool.

This is what I have so far:

Private Sub CommandWNL_Click()
Screen.PreviousControl = Screen.PreviousControl & "WNL" & " "
Screen.PreviousControl.SetFocus
End Sub

In a subform with multiple other similar items, for different boilerplate
texts.

The problem I'm having is, when I click a button for the first time, or a
different button, it gives me an error message.
Object doesn't support this property or method (Error 438)

What should I do?

Thanks!!!
Niels
 
I forgot to do what you told me before:

Dim WNL As String
strWNL = "WNL"

That does it!

Thanks!!!
 
Still having this problem, even after making the text a string....
when I click a button for the first time, or a
different button, it gives me an error message.
Object doesn't support this property or method (Error 438)

Any thoughts?

Niels
 
I have no idea what you are trying to do here. You can either use:

Screen.PreviousControl

or:

Me.ControlName.SetFocus

You cannot use Screen.PreviousControl.SetFocus. Do not use
Screen.PreviousControl, if the control is on the same form, only if on a
different form.

For a subform, if the event is on the subform use:

Me.Parent.ControlName.SetFocus

Replace ControlName with the name of your control.
--
Arvin Meyer, MCP, MVP
http://www.datastrat.com
http://www.mvps.org/access
http://www.accessmvp.com
 
Thanks!!!

Arvin Meyer said:
I have no idea what you are trying to do here. You can either use:

Screen.PreviousControl

or:

Me.ControlName.SetFocus

You cannot use Screen.PreviousControl.SetFocus. Do not use
Screen.PreviousControl, if the control is on the same form, only if on a
different form.

For a subform, if the event is on the subform use:

Me.Parent.ControlName.SetFocus

Replace ControlName with the name of your control.
--
Arvin Meyer, MCP, MVP
http://www.datastrat.com
http://www.mvps.org/access
http://www.accessmvp.com
Click to expand...
 
Back
Top