Solved

Can't find the name ' DBEngine '   (Or DBCurrent)  you entered in the expression

Posted on 2007-12-05
7
718 Views
Last Modified: 2008-02-01
Can't find the name 'CurrentDb' you entered in the expression

I have an application I am trying to deploy,
I have created a startup script to load the compiled MDE Access application, Access runtime and the tables.
I have run the startup on three of my computers and it loads and runs.
I have deleted the application and tables from one pc ant=d the startup loaded the application and it ran.

I deployed it to a family's pc.  it loads .
the macro looks for a file and if it cant find it asks for the file with the table.
IT finds it and loads some tables.
In the macro I have a test for the startup application title
  Condition                                                                                  Action
[CurrentDb].[Properties]("AppTitle")="EULA Agreement"      OpenForm

This works on all my pc's.

On my family's pc , which has never run the app before, and on a friemds pc I get the error

EULA Agreement can't find the name 'CurrentDb' you entered in the expression.
You may have specified a control that wasn't on the current object without specifying the current form or report control.

I set the flag in the Startup screen application name then change it when the EULA is read.

Even if I change it manually to skip the agreement form it still gives me the message except now it has the application name instead of EULA Agreement.

SO I am thinking that it is the reference to DBCurrent in the macro.   How can I read the application name without using DBcurrent?
I tried  DBEngine(0)(0).Properties("AppTitle") = "EULA Agreement" but the macro says it can't parse the expression

I used [DBEngine].[Workspaces](0).[Databases](0).[Properties]("AppTitle") = &
And I get the Error.

Can't find the name ' DBEngine ' you entered in the expression.

Now what???

Don
0
Comment
Question by:donaldmaloney
  • 3
  • 2
7 Comments
 
LVL 119

Expert Comment

by:Rey Obrero
Comment Utility
in the immediate window type the following

?currentdb.properties("Apptitle")

see what is the returned value
0
 
LVL 119

Expert Comment

by:Rey Obrero
Comment Utility
also check in the references if you have MISSING: reference name

possibly a DAO version
0
 
LVL 11

Author Comment

by:donaldmaloney
Comment Utility
Answers to all 3  in access 2000

? [CurrentDb].[Properties]("AppTitle")
RFP Manager

? [DBEngine].[Workspaces](0).[Databases](0).[Properties]("AppTitle")
RFP Manager

? currentdb.properties("Apptitle")
RFP Manager

This is a compiled app  ---->   mde
Included is access runtime which loads in the startup script.

A copy of the startup is in http://www.orbitfiles.com/     user name  is the same as mine here
Password for this file is  vader     file size is 99 MB.
App is in Beta testing and is time dependent   will not work after 2/1/08
Don

0
Free Gift Card with Acronis Backup Purchase!

Backup any data in any location: local and remote systems, physical and virtual servers, private and public clouds, Macs and PCs, tablets and mobile devices, & more! For limited time only, buy any Acronis backup products and get a FREE Amazon/Best Buy gift card worth up to $200!

 
LVL 11

Author Comment

by:donaldmaloney
Comment Utility
No missing references  I have looked.
0
 
LVL 11

Accepted Solution

by:
donaldmaloney earned 0 total points
Comment Utility
For some reason or other MAcro deoes not like the direct referem=nce to CurrentDB  or DbEngine.

So I put it in a module and call the module from the macro.

All works  really wierd.

Function modCheckforTableName(strApplTitleName As String) As Boolean
            ' See if the DB Table exists as the first table in the DB
Dim db As Database 'Database to import
Dim td As TableDef 'Tabledefs in db
Set dbCurrent = CurrentDb
modCheckforTableName = False
   If [CurrentDb].[TableDefs](0).[Name] = strApplTitleName Then
      modCheckforTableName = True
    Exit Function
    End If
End Function

THis works and I pass through the macro OK.
0
 
LVL 1

Expert Comment

by:Vee_Mod
Comment Utility
Closed, 500 points refunded.
Vee_Mod
Community Support Moderator
0

Featured Post

Free Trending Threat Insights Every Day

Enhance your security with threat intelligence from the web. Get trending threat insights on hackers, exploits, and suspicious IP addresses delivered to your inbox with our free Cyber Daily.

Join & Write a Comment

Introduction When developing Access applications, often we need to know whether an object exists.  This article presents a quick and reliable routine to determine if an object exists without that object being opened. If you wanted to inspect/ite…
In a multiple monitor setup, if you don't want to use AutoCenter to position your popup forms, you have a problem: where will they appear?  Sometimes you may have an additional problem: where the devil did they go?  If you last had a popup form open…
Show developers how to use a criteria form to limit the data that appears on an Access report. It is a common requirement that users can specify the criteria for a report at runtime. The easiest way to accomplish this is using a criteria form that a…
Learn how to number pages in an Access report over each group. Activate two pass printing by referencing the pages property: Add code to the Page Footers OnFormat event to capture the pages as there occur for each group. Use the pages property to …

771 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

10 Experts available now in Live!

Get 1:1 Help Now