set data of text box (1 Viewer)

[Dovidg]

I want to click on button on form and based on which button set text in text box.
If I click on button Jon = Jon will be in text box

 

[theDBguy]

Where is "Jon" on the button? Is it in the Caption?

 

[DHookom]

This is the Report forum but you mention only Form in your question. Can you please share more specific details or requirements?

 

[Dovidg]

I have a form that I open a report. I have two buttons that filter the report depending on which button is clicked. I want to have at the top of report a title or text box that will show which button was clicked I tried openargs in the onclick of the button and set the source of text box to be =openargs but that doesn't work

 

[The_Doc_Man]

Note that while it is relatively easy to do what you want, reports tend to make command buttons more difficult due to timing of multiple events that fire repeatedly for report detail and header and footer sections. In forms, this is a trivial question. In theory you can do it in a report, but the question becomes "when does it take effect?" OR "when do you WANT it to take effect?" That, among other things, is certainly implied in DHookum's question.

 

[The_Doc_Man]

Your post crossed mine, apparently.

You have half the battle if you can make the OpenArgs hold the right value. The other half is that in the Report_Open event code, you can do something simple like

Me.TheTextBox = Me.OpenArgs

 

[DHookom]

The simple way to display openargs is with a text box with a control source of:
=[OpenArgs]

Private Sub cmdOpenReport_Click()
    Dim strOpenArgs As String
    strOpenArgs = "Open Args Value"
    DoCmd.OpenReport "rptTestOpenArgs", acViewPreview, , , , strOpenArgs
    
End Sub

 

[Dovidg]

code for button on form
on click
Dim strOpenArgs As String
strOpenArgs = “jon”
DoCmd.OpenReport "RptRList", acViewPreview, , , , OpenArgs = "strOpenArgs"

Textbox in report
control source =[OpenArgs]

did not work, what am I doing wrong
thank you very much

 

[DHookom]

Your code doesn’t match mine. I didn’t have an “=“ or "strOpenArgs" (in quotes) in my OpenReport code.

 

[Dovidg]

The simple way to display openargs is with a text box with a control source of:
=[OpenArgs]

Private Sub cmdOpenReport_Click()
    Dim strOpenArgs As String
    strOpenArgs = "Open Args Value"
    DoCmd.OpenReport "rptTestOpenArgs", acViewPreview, , , , strOpenArgs
   
End Sub

View attachment 118137

perfect, I was lazy
how do you do this chart of open args value.
where do you put it
thank you again, very helpful
dg

 

[Dovidg]

Your code doesn’t match mine. I didn’t have an “=“ or "strOpenArgs" (in quotes) in my OpenReport code.

I had left the original code that I had used in my trial an error before I posted and when I changed it, I didn't pay attention.
thank you again

 

[Gasman]

If it had worked you would have had strOpenArgs in that textbox, as you used it as a string and not a variable.

 

[Dovidg]

The simple way to display openargs is with a text box with a control source of:
=[OpenArgs]

Private Sub cmdOpenReport_Click()
    Dim strOpenArgs As String
    strOpenArgs = "Open Args Value"
    DoCmd.OpenReport "rptTestOpenArgs", acViewPreview, , , , strOpenArgs
   
End Sub

View attachment 118137

How do you set the values for this table. It would help me by choosing number when the open report is clicked and set textbox in report to the company name.
thank you

 

[DHookom]

"choosing number" is a matter of using a control such as Pat Hartman suggested. Set the strOpenArgs to the value of the control.
This is a form with a combo box to select a value for the OpenArgs and a text box to enter a filtering value.

The code in the form which provides the control names

Private Sub cmdOpenReport_Click()
    Dim strOpenArgs As String
    Dim strWhere As String
    
    strOpenArgs = Me.cboOpenArgsValue.Column(1)
    strWhere = "CompanyID< " & Me.txtWhere
    DoCmd.OpenReport "rptTestOpenArgs", acViewPreview, , strWhere, , strOpenArgs
    
End Sub

The report has no code. There are a couple text boxes bound to the report properties of OpenArgs and Filter

This is the result