Make command buttons unique to a record

[RuralGuy]

All you need is a WhereCondition argument in your OpenReport command. You could use another button or just the Click or DoubleClick event of a control to launch the report. Just moving the focus to the record on the SubForm makes that record the Current record so getting to the ID field is easy.

[timmy]

thought so, i already did something similar, just have to base it on the subform using ID's now.

Thanks so much for your help.

[timmy]

ok... having trouble filtering the report by serial number.

i know how to filter it, but thats using a specific number i enter in the macro.

I need it to look at the serial number field and filter it based on that.

any help (again)?

thanks.

[RuralGuy]

Post your OpenReport code so we can see it.

[timmy]

I'm just using a macro to be honest, but heres the code when i convert it:

Function Macro11()
DoCmd.OpenReport "Meter Readings", acViewReport, "", "[Serial Number]", acNormal
End Function


All ive done is, in the WhereCondition field of the macro, i've typed [Serial Number]. I thought it would just select the records that match whatever is in the Serial Number field on the form.

[RuralGuy]

Nope...that is not how it works. You will need to expand the WhereCondition argument to something like:
"[Serial Number] = '" & [Serial Number] & "'"
...assuming the current and next form both have a field named [Serial Number] and it is a string value (which it should be as no math is ever performed on it).

[timmy]

Thanks for replying ruralguy, i tried that wherecondition and nothing happens... it just loads the report and lists all the machines regardless, it does have a filter on as the button for filter is depressed (switching on and off makes no difference).

Both tables have a Serial Number field and yes they are both string values, any idea whats going wrong?

Not sure if it matters, but a machines serial number can be a mixture of numbers and letters.

[RuralGuy]

Is your button now executing the code instead of the Macro? If so then we can insert a MsgBox to display the WhereCondition argument before calling the Report.

Function Macro11()
Dim MyWhere As String
MyWhere = "[Serial Number] = '" & [Serial Number] & "'"
MsgBox "[" & MyWhere & "]" '<-- this will display the WhereCondition
DoCmd.OpenReport "Meter Readings", acViewReport, "", MyWhere, acNormal
End Function

[timmy]

No, im using a macro and just entering "[Serial Number] = '" & [Serial Number] & "'"
into the wherecondition field. I just tried changing it to a code, but im getting errors of all sorts (im really no good at coding anything past html...)

heres my attempt at the code, the first bit im not sure what it is or why its there:

Private Sub Form_Load()
If Me.OpenArgs = "GotoNew" And Not IsNull(Me![PartID]) Then
DoCmd.DoMenuItem acFormBar, 3, 0, , acMenuVer70
End If
End Sub

Private Sub Meterreadingbut_Click()
Function Macro1()
Dim MyWhere As String
MyWhere = "[Serial Number] = '" & [Serial Number] & "'"
MsgBox "[" & MyWhere & "]" '<-- this will display the WhereCondition
DoCmd.OpenReport "Meter Readings", acViewReport, "", MyWhere, acNormal
End Function
End Sub

I would much rather use macros, if its possible.

[RuralGuy]

I have almost no experience using macros. Since you can not have a Function inside of a Sub, do the following:

Private Sub Meterreadingbut_Click()
'-- Function Macro1() <-- Rem out this line
Dim MyWhere As String
MyWhere = "[Serial Number] = '" & [Serial Number] & "'"
MsgBox "[" & MyWhere & "]" '<-- this will display the WhereCondition
DoCmd.OpenReport "Meter Readings", acViewReport, "", MyWhere, acNormal
'-- End Function n <-- and rem out this line
End Sub

[timmy]

oh wow.... it actually worked!

thank you so much ruralguy, you are a wizard

[RuralGuy]

I'm sure this can be done with a Macro as well but I'm not much help there, sorry. Maybe now that you know it can be done, you will have better success with a Macro. Thanks for posting back with your success and have fun.