Go Premium for a chance to win a PS4. Enter to Win

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 731
  • Last Modified:

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

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
donaldmaloney
Asked:
donaldmaloney
  • 3
  • 2
1 Solution
 
Rey Obrero (Capricorn1)Commented:
in the immediate window type the following

?currentdb.properties("Apptitle")

see what is the returned value
0
 
Rey Obrero (Capricorn1)Commented:
also check in the references if you have MISSING: reference name

possibly a DAO version
0
 
donaldmaloneyAuthor Commented:
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
Microsoft Certification Exam 74-409

Veeam® is happy to provide the Microsoft community with a study guide prepared by MVP and MCT, Orin Thomas. This guide will take you through each of the exam objectives, helping you to prepare for and pass the examination.

 
donaldmaloneyAuthor Commented:
No missing references  I have looked.
0
 
donaldmaloneyAuthor Commented:
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
 
Vee_ModCommented:
Closed, 500 points refunded.
Vee_Mod
Community Support Moderator
0

Featured Post

Vote for the Most Valuable Expert

It’s time to recognize experts that go above and beyond with helpful solutions and engagement on site. Choose from the top experts in the Hall of Fame or on the right rail of your favorite topic page. Look for the blue “Nominate” button on their profile to vote.

  • 3
  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now