Solved Code running report despite default set to not

[arnelgp]

maybe your db apps get Stoned

 

[isladogs]

The VBA library cannot be removed

 

[BlueSpruce]

However, this thought just popped into my head. Go into that app, opened for development. Uncheck the VBA library.

The VBA library cannot be removed

Nor can the obj lib be removed.

 

[isladogs]

True but not relevant in this case as the constants are part of the VBA library.

 

[BlueSpruce]

I manually examined the pub constants in all the modules, but did not find any declared as vbDefaultButton2.

 

[Minty]

What if you declare it separately as the correct value e.g.

Public Const vbDefaultButton2 = 256

Then compile, compact and repair, and check it's value again?
Then remove the declaration and see if the correct value sticks?

 

[xavier.batlle]

BlueSpruce,
Out of curiosity, only for testing, have you tried to delete all the database objects the except the form with the button with that issue? or Import only this form in a new database? (I know you've said if you import all the objects in a new database the behaviour is the same)

 

[BlueSpruce]

What if you declare it separately as the correct value e.g.

Public Const vbDefaultButton2 = 256

Then compile, compact and repair, and check it's value again?
Then remove the declaration and see if the correct value sticks?

That worked! ... But is this the right way to solve the problem?

 

[BlueSpruce]

BlueSpruce,
Out of curiosity, only for testing, have you tried to delete all the database objects the except the form with the button with that issue? or Import only this form in a new database? (I know you've said if you import all the objects in a new database the behaviour is the same)

Yes, I tried. That was one of the earliest tests suggested to me. I only imported the form to a new accdb and the problem persisted. So something in that form must be corrupted.

 

[xavier.batlle]

Yes, I tried. That was one of the earliest tests suggested to me. I only imported the form to a new accdb and the problem persisted. So something in that form must be corrupted.

Can you upload this database with only this form or part of it to see the issue?

 

[BlueSpruce]

Can you upload this database with only this form or part of it to see the issue?

I cannot, I signed an NDA with the customer and I have already exceeded my authority by posting minimal details about it.

 

[Minty]

That worked! ... But is this the right way to solve the problem?

View attachment 122307

Probably not, but it sort of forces the hand of the database. I've used the same method when Access decides it want to capitalise keywords incorrectly.
I'm not entirely sure why it works but I assume it "resets" some internal record/value somewhere.

 

[RonPaii]

As noted earlier, "String" is the wrong type for response, MsgBox returns a long, though your original code runs on my computer.
Have you tried calling out the enum with the value so you don't need to define the constant. This may not compile if something is wrong with those enum definitions.

Public Sub cmdPrintReceipt_Click()
Dim response As VbMsgBoxStyle
response = MsgBox("DON'T Print Customer Receipt?", VbMsgBoxStyle.vbYesNo)
If response = VbMsgBoxResult.vbYes Then Exit Sub
DoCmd.OpenReport "rptPrintCustomerReceipt", , , "[ContractNo] = " & Me.ContractNo
End Sub

Then with a default and changing the message to a positive.

VbMsgBoxStyle.vbYesNo + VbMsgBoxStyle.vbDefaultButton2

Public Sub cmdPrintReceipt_Click2()
Dim response As VbMsgBoxStyle
response = MsgBox("Print Customer Receipt?", VbMsgBoxStyle.vbYesNo + VbMsgBoxStyle.vbDefaultButton2)
If response = VbMsgBoxResult.vbNo Then Exit Sub
DoCmd.OpenReport "rptPrintCustomerReceipt", , , "[ContractNo] = " & Me.ContractNo
End Sub

Of course you could simplify by removing response and the short circuit.

Public Sub cmdPrintReceipt_Click3()
If MsgBox("Print Customer Receipt?", _
           VbMsgBoxStyle.vbYesNo _
         + VbMsgBoxStyle.vbDefaultButton2) _
  = VbMsgBoxResult.vbYes Then
    DoCmd.OpenReport "rptPrintCustomerReceipt", , , "[ContractNo] = " & Me.ContractNo
End If
End Sub

 

[BlueSpruce]

This may not compile if something is wrong with those enum definitions.

There is something wrong with vbDefaultButton2's enum so I'm not using it in the "Don't Print Receipt" code.