2 issues with .accdr app

[willkr]

I finished the app and created an install file (btw, thanks for letting me know about SSE Setup). The app runs fine unless I change it from an .accde to an .accdr. I do this just so the user won't accidentally mess with the data in the database. The two issues I now have are:
1) when I start up the app, I get the error message: "No current record."
2) If I try to open up a text form (all user documentation is done via text forms) I get the message: "The OpenForm action was canceled"

suggestions?



willkr

[pbaldy]

Is there any code in those forms that would try to put a form into design view perhaps? Can you attach a sample that exhibits the problem here?

[willkr]

There is nothing special about these forms as far as I can see. All one of these does is: move itself to the proper location on the screen and set the font for the form. Here is the code in one of them:

Option Compare Database


Private Sub Form_Open(Cancel As Integer)


'SS_OnOpen Me
Me.Move 11000, 500


' Set the Label font
Me.Title.FontName = strReleaseFontName
Me.Text1.FontName = strReleaseFontName

End Sub


'------------------------------------------------------------
' btnClose_Click
'
'------------------------------------------------------------
Private Sub btnClose_Click()
On Error GoTo Err_btnClose_Click


' Close form
DoCmd.Close


Exit_btnClose_Click:
Exit Sub


Err_btnClose_Click:
MsgBox Err.Description
Resume Exit_btnClose_Click

End Sub

[pbaldy]

Can you attach a sample that exhibits the problem here?

[willkr]

I'm not exactly sure what you're asking for. Here is the code that calls the text form:

'------------------------------------------------------------
' btnHelpCheckEntry_Click
'
'------------------------------------------------------------


Private Sub btnHelpCheckEntry_Click()
On Error GoTo Err_btnHelpCheckEntry_Click


Dim stDocName As String
Dim stLinkCriteria As String


stDocName = "frmHelpCheckEntry"
DoCmd.OpenForm stDocName, , , stLinkCriteria


Exit_btnHelpCheckEntry_Click:
Exit Sub


Err_btnHelpCheckEntry_Click:
MsgBox Err.Description
Resume Exit_btnHelpCheckEntry_Click

End Sub


The error message is: "The OpenForm action was canceled."

I only get the error message when the app is executed as an .accdr

it works fine as an .accdb and as an .accde

[pbaldy]

I'm hoping for a sample database I can play with to see if I can figure out why this happens.

[willkr]

pbaldy,
There are more than 60 tables in this database. It's not trivial to break it apart. The database when empty is more than 30 MB and the app is more than 100 MB. I was hoping that there was a simple reason why this is happening.

willkr

[pbaldy]

I understand. I thought maybe if one of those text forms would throw the error all by itself, you could just post one of those.

[willkr]

Paul,
I don't know how to post just one form. Educate me.

willkr

[pbaldy]

Create a new database and export a single form into it (or import from it). Given your specific issue we'll probably need a startup form with a button to open it but that's easy for us to create.

It would be nice to have the form that opens on startup too, but I'm guessing that one is bound to data. Hopefully if we solve one issue we solve the other.

[moke123]

Option Compare Database


Private Sub Form_Open(Cancel As Integer)

You should also have Option Explicit declared.

You probably have an error somewhere.

[willkr]

OK I have a simple form (FrmCheckEntry) with a single button. There is a "?" on the button. When I open the .accdb (called "Test1") I can open the form and click on the button. It works fine. However, the problem is with the .accdr version. When I execute the .accdr version there's no way to open the form. How do I make the app open a form when it starts up?

I know this is pretty elementary stuff, but I haven't started an app from scratch in more than 20 years.

[pbaldy]

File/Options/Current Database/Display Form

[pbaldy]

Oh, and you could also use an autoexec macro to open the starting form, but the above has become more common.

[CJ_London]

The error message is: "The OpenForm action was canceled."

implies a runtime error when you try to open the form - look in that form's open, load and current events for code. If it is the code you provided in post #3, try commenting out the code or changing the parameter values to see what happens. - perhaps the values provided to .move are invalid or out of scope in the windows environment you are using the .accdr.

In post #5 you use a stLinkCriteria string variable as a parameter but never assign it a value - so assign a value or remove it

As others have said, you should have option explicit at the top of each module to identify compilation errors - although if you are able to create a .accde it implies to code did compile.

You do know you can just rename a .accdb to .accdr so you can test how you app will work in a runtime environment. That is the primary purpose for .accdr - a development aid. It is not intended as a security method as it can so easily be circumvented.