Msg Box In Report to open a specific form

[Derrick T. Davidson]

I have a report [rptReport1] that summarizes transactions from [frmTransaction1] which in turn is controlled by a table [tblTransactions] which use's trID autonumber as a field
What I want to do is to place either a button or combo box on the Report.

IF A Button
When clicked I would like a Yes/No message box with an input area that I can enter an ID number.
When Yes open the detailed form with the corresponding ID number entered.
When No Cancel Event

IF A COMBO BOX


Enter an ID number in the combo box when I hit Enter
The detailed form with the corresponding ID number opens.

Is this possible?

[cyanidem]

Both are possible.

In first case you need InputBox, not MsgBox.

Dim txtTrID As String
    txtTrID = InputBox("Please enter ID (0 cancels)")
    If txtTrID = 0 Then
        DoCmd.OpenForm YourFormName, acNormal, , "trID=" & txtTrID & """", acFormReadOnly, acWindowNormal
    Else
        Exit Sub
    End If

Similar with combo box. Use select query selecting trIDs from your table as row source for combo box. Use on change event to check trID number selected in combo box and to open your detailed form.

[Derrick T. Davidson]

Thanks however if I enter a number it gives me an error message "Run-time error 2494" "The action or method requires Form Name argument" I put the name of my form after DoCmnd. OpenForm.

??

[Derrick T. Davidson]

Here is the code I entered

Private Sub trID_Click()
Dim txtTrID As String
    txtTrID = InputBox("Please enter ID (0 cancels)")
    If txtTrID = 0 Then
        Exit Sub
    Else
        DoCmd.OpenForm (frmTransactionsFinance), acNormal, , "trID=" & txtTrID & """", acFormReadOnly, acWindowNormal
    End If
End Sub

[cyanidem]

Should be:

DoCmd.OpenForm "frmTransactionsFinance", acNormal, , "trID=" & txtTrID & """", acFormReadOnly, acWindowNormal

Also, read about DoCmd.OpenForm arguments so you know, what any of them means and you can choose ones, that you need for what you want to achieve.

[Derrick T. Davidson]

I replaced with the above code now I get "Run-time error '3075':" " Syntax error in string query expression 'trID=23". "
23 is the number I typed inti the Input box?????

[CJ_London]

..."trID=" & txtTrID & """",...

should be

..."trID=" & txtTrID,...

Read up on the ways different datatypes are treated (string, numeric, date) in code

Also I think you should have 3 commas between the name of the form and the where parameter so as cyanidem suggests read up on docmd.openform