Print buttons arent working now.

[dmon2010]

Hi, I was using this access project and everything was fine and working correctly. However, I needed to add a couple of new forms and some buttons and now my print buttons are not working. Can someone take a look if possible?

Thanks for any help...Order Entry.zip

[ranman256]

A couple of things..
1..
I assume you mean the default form "ORDER ENTRY"
all buttons seem to be coded correctly...I dont see any problems. They should work.
now, it could be the REPORT connected to the print button
Try running the report manually to see if you get results.

2...
BUT your various info boxes on the form:
administered by
payment
ship to
they are using DLOOKUPs (not good..could get slow)
The BEST method is they should each be a query (faster) to retrieve the data.

BUT IF IT WORKS...GO WITH GOD.

[dmon2010]

When I click a button I get this error msg: Compile Error Invalid Outside Procedure.

Edit:

I get this code:

Option Compare Database


Dim strWhere As String


If Me.Dirty Then 'Save any edits.
Me.Dirty = False
End If


If Me.NewRecord Then 'Check there is a record to print
MsgBox "Select a record to print"
Else
strWhere = "[ID] = " & Me.[ID]
DoCmd.OpenReport "BoL", acViewPreview, , strWhere
End If




End Sub


Where the first "Me" is highlighted...

[ranman256]

Those damn dirty Me.Dirty could never work right for me.
TAKE'EM OUT!

All of them.

[dmon2010]

Take out anything that says "Me.Dirty"? Or any entire line that contains "
Me.Dirty"?

EDIT:

Take out all of these?:

If Me.Dirty Then 'Save any edits.
Me.Dirty = False
End If

[ranman256]

Yes. that whole block.
Dont know why they keep adding them...they keep failing

[dmon2010]

Took it out, but it still doesn't work. Now it gets caught on this:

If Me.NewRecord Then 'Check there is a record to print
MsgBox "Select a record to print"
Else
strWhere = "[ID] = " & Me.[ID]
DoCmd.OpenReport "BoL", acViewPreview, , strWhere
End If

Where the first "Me" is highlighted again...

[ranman256]

Ah...its a misdirection. The error is that the code has no SUB NAME.

Sub Bob()
Dim strWhere As String
'    If Me.Dirty Then    'Save any edits.
'        Me.Dirty = False
'    End If
    'If Me.NewRecord Then    'Check there is a record to print
    '    MsgBox "Select a record to print"
    'Else
       strWhere = "[ID] = " & Me.[ID]
        DoCmd.OpenReport "BoL", acViewPreview, , strWhere
    'End If
End Sub

The name of the SUB was missing...I added sub BOB(). You can add whatever...then it worked.

[dmon2010]

ok, what would I change Bob() to?

[dmon2010]

This is what the code looks like now:

Private Sub Command87_Click()
Dim strWhere As String
If Me.NewRecord Then 'Check there is a record to print
MsgBox "Select a record to print"
Else
strWhere = "[ID] = " & Me.[ID]
DoCmd.OpenReport "DD250", acViewPreview, , strWhere
End If
End Sub

But when I click the button I get the error msg and the code that I posted earlier...

[ranman256]

Hmmm...My copy works...what button did you click?

All that's needed for a print button to work is:

strWhere = "[ID] = " & Me.[ID]
DoCmd.OpenReport "DD250", acViewPreview, , strWhere

But I cant find Me.[ID] field.
you can replace it with whatever the control contains the ID. This is weird!

[dmon2010]

I deleted the button and created a new one. I only used this:

strWhere = "[ID] = " & Me.[ID]
DoCmd.OpenReport "DD250", acViewPreview, , strWhere

But still not working. Now I'm still getting compile error and stuck on:
"[ID] = "

EDIT:

Okay, I deleted the very last form that I had created, before this started acting up, and now my buttons are working again. Everythings good. That form only had 2 other buttons on it... thoughts?

[ranman256]

I never figued out where Me.[ID] was. It wasnt on the form. ??!!

[dmon2010]

no, it wasnt. this was weird. I really appreciate you time and help though. Thanks!