Add Text with Command button

[FrankM]

I have a Form, I'll call it "4". Within this Form is a sub-Form, I'll call it
"4a". I have a couple different buttons on Form "4" which effect Form "4a" in
different ways.

One of the fields on Form "4a" has the name "comments". I want to add a
Command Button to Form "4" that when clicked puts text in the "comments"
field. Since "comments" is a text field Users will be able to enter whatever
they like but if they just want to enter the default text they can just click
the Command Button and the text will be entered.

I'm certain this is easy but for some reason I can't think of it.

Thank you!

 

[FrankM]

I should mention I tried the following in the OnClick of the Command Button
....

Forms![4]![4a]![comments] = Me.[Verified]

but that gave me an error message ... can't find the field "4a". I tried
removing the [4] and just have Forms![4a] but then I get an error mesasage
.... can't find the Form "4a".

 

[Marshall Barton]

I have a Form, I'll call it "4". Within this Form is a sub-Form, I'll call it
"4a". I have a couple different buttons on Form "4" which effect Form "4a" in
different ways.

One of the fields on Form "4a" has the name "comments". I want to add a
Command Button to Form "4" that when clicked puts text in the "comments"
field. Since "comments" is a text field Users will be able to enter whatever
they like but if they just want to enter the default text they can just click
the Command Button and the text will be entered.

Me.subformcontrol.Form.Comments = "the default text"

 

[Linq Adams via AccessMonster.com]

As Marsh said

Private Sub YourButton_Click()
Me!FourA.Form!Comments = "Default Text"
End Sub

will do the job. Using form/subform names of 4 and 4a may have been a simple
way to describe your situation to us, but if tthey are, in fact, your
form/subform names, I should warn you that the VBA gnomes don't like object
names that begin with a numeric character. Notice that I changed the
subform's name from

4a

to

FourA.

The above code will work, but

Private Sub YourButton_Click()
Me!4A.Form!Comments = "Default Text"
End Sub

using 4A instead of FourA as the name of the subform will cause the code to
throw a sytax error and fail.

 

[FrankM]

I did use "4" and "4a" just to describe the situation. I used the following
exact text but received an error.

Private Sub Command113_Click()
Me!frmamtcommentv4asub.Form!comments = "Verified"
End Sub

"4a" is really "frmamtcommentv4asub" and "4" is really "frmamtcommentv4a"

The error message I receive says, "Run-time error '2465': ... can't find
the field 'frmamtcommentv4asub' referred to in your expression."

Did I enter something incorrectly?

 

[fredg]

I did use "4" and "4a" just to describe the situation. I used the following
exact text but received an error.

Private Sub Command113_Click()
Me!frmamtcommentv4asub.Form!comments = "Verified"
End Sub

"4a" is really "frmamtcommentv4asub" and "4" is really "frmamtcommentv4a"

The error message I receive says, "Run-time error '2465': ... can't find
the field 'frmamtcommentv4asub' referred to in your expression."

Did I enter something incorrectly?

This part of Marsh's reply > subformcontrol <
refers not to the name of the subform but rather to the name of the
subform control on the main form into which you have placed your sub
form. By default, when you add a subform control to your main form,
Access names it "Childx". You may have changed that name. Whatever the
name is, that's the name you place in the syntax Marshall gave you.

 

[FrankM]

I completely missed that ... that made all the difference in the world. Thank
you!

 

[Marshall Barton]

I did use "4" and "4a" just to describe the situation. I used the following
exact text but received an error.

Private Sub Command113_Click()
Me!frmamtcommentv4asub.Form!comments = "Verified"
End Sub

"4a" is really "frmamtcommentv4asub" and "4" is really "frmamtcommentv4a"

The error message I receive says, "Run-time error '2465': ... can't find
the field 'frmamtcommentv4asub' referred to in your expression."

Did I enter something incorrectly?

Double check that the subform ***control*** is named
frmamtcommentv4asub. The subform control name can be
different from the name of the form object it displays.

 

[FrankM]

Thank you, this worked perfectly (once I realised I had a different control
name).

Now something interesting has been posed as I'm finishing the program and
I'm not certain how this will work.

Comments may be entered in the field prior to entering the default text. The
default text should not replace the existing text but just be an addition to
it. Any thoughts?

 

[fredg]

Thank you, this worked perfectly (once I realised I had a different control
name).

Now something interesting has been posed as I'm finishing the program and
I'm not certain how this will work.

Comments may be entered in the field prior to entering the default text. The
default text should not replace the existing text but just be an addition to
it. Any thoughts?

Me!FourA.Form!Comments = Me!FourA.Form!Comments & vbNewLine & "Your
Text"

Will place the "Your Text" on the next line at the end of your
existing data.

 

[FrankM]

Dang, that was so easy, I should have realised it. Thank you.