I don't know whats the problem, but after I added functions
to first verify, then relink linked tables if not found,
now I can't convert that database to MDE format.
I can split the database, but can't convert
part of the database with forms, reports, queries to MDE format.
Can somebody advice on this?
References, in the order, from the top:
Visual Basic For Applications
Microsoft Access 10.0 Object Library
Microsoft DAO 3.6 Object Library
OLE Automation
Microsoft Office 11.0 Object Library
Microsoft ADO Ext. 2.7 for DDL and Security
Microsoft ActiveX Data Objects 2.7 Library
Here is the error signature:
Error signature
AppName: msaccess.exe AppVer: 10.0.6501.0 ModName mso.dll
ModVer: 10.0.6735.0 Offset: 000099bb
Here is the VBA code for relinking, it is in LOAD event
of starting switchboard form:
=============== =============== ==============
Private Sub Form_Load()
DoCmd.Hourglass True
Call LinkTables
DoCmd.Hourglass False
End Sub
=============== =============== ===========
Sub LinkTables()
Dim objFileDialog As FileDialog
On Error GoTo LinkTables_Err:
DoCmd.Hourglass True
'Check to see if tables are linked properly
If Not VerifyLink Then
'If still not ok, attempt to relink with expected file name
If Not ReLink(CurrentP roject.FullName , True) Then
MsgBox "Date file for this database can not be found." +
(Chr(13) & Chr(10)) + (Chr(13) & Chr(10)) + "After you click button OK,
File dialog window will pop up" + (Chr(13)) + "so you can specify the
location of the data file."
'If still not ok, ask user to locate file
Set objFileDialog = FileDialog(msoF ileDialogOpen)
With objFileDialog
.AllowMultiSele ct = False
.Show
End With
'Attempt to link to file user selected
If Not ReLink(objFileD ialog.SelectedI tems(1), False) Then
'If not successful, display a message and quit
application
MsgBox "You Cannot Run This App Without Locating
Data Tables"
DoCmd.Close acForm, "frmSplash"
DoCmd.Quit
End If
End If
End If
DoCmd.Hourglass False
Exit Sub
LinkTables_Err:
DoCmd.Hourglass False
MsgBox "Error # " & Err.Number & ": " & Err.Description
Exit Sub
End Sub
=============== =============== =======
Function VerifyLink() As Boolean
'Verify connection information in linked tables.
'Declare required variables
Dim cat As ADOX.Catalog
Dim tdf As ADOX.Table
Dim strTemp As String
'Point database object variable at the current database
Set cat = New ADOX.Catalog
With cat
Set .ActiveConnecti on = CurrentProject. Connection
'Continue if links are broken
On Error Resume Next
'Open one linked table to see if connection information is
correct
For Each tdf In .Tables
If tdf.Type = "LINK" Then
strTemp = tdf.Columns(0). Name
If Err.Number Then
Exit For
End If
End If
Next tdf
End With
VerifyLink = (Err.Number = 0)
End Function
=============== =============== ==============
Function ReLink(strDir As String, DefaultData As Boolean) As Boolean
'Relink a broken linked Access table.
'Declare required variables
Dim cat As ADOX.Catalog
Dim tdfRelink As ADOX.Table
Dim strPath As String
Dim strName As String
Dim intCounter As Integer
Dim vntStatus As Variant
'Prepare status bar
vntStatus = SysCmd(acSysCmd SetStatus, "Updating Links")
Set cat = New ADOX.Catalog
With cat
.ActiveConnecti on = CurrentProject. Connection
On Error Resume Next
'Update progress meter
Call SysCmd(acSysCmd InitMeter, "Linking Data Tables",
..Tables.Count)
'Loop through each table, attempting to update the link
For Each tdfRelink In .Tables
intCounter = intCounter + 1
Call SysCmd(acSysCmd UpdateMeter, intCounter)
If .Tables(tdfReli nk.Name).Type = "LINK" And
Left(tdfRelink. Name, 3) = "tbl" Then
tdfRelink.Prope rties("Jet OLEDB:Link Datasource") =
strDir
End If
If Err.Number Then
Exit For
End If
Next tdfRelink
End With
'Reset the progress meter
Call SysCmd(acSysCmd RemoveMeter)
vntStatus = SysCmd(acSysCmd ClearStatus)
ReLink = (Err = 0)
End Function
=============== =============== =============== ======= 3 2692
In the code window (Alt+F11), go to Debug|Compile. Is the database compiled?
It needs to be in order to create the mde file. If not, do you get any
errors when you try to compile?
Where are you trying to save the mde file to? I've see problems if trying to
save to a network share. If so, save to a local directory then copy the file
to the network share.
Have you installed all of the updates for Office XP? Go to http://office.microsoft.com/en-us/of...e/default.aspx and click Check
for Updates.
--
Wayne Morgan
MS Access MVP
"ET" <ve****@yahoo.c om> wrote in message
news:11******** **************@ g43g2000cwa.goo glegroups.com.. . I don't know whats the problem, but after I added functions to first verify, then relink linked tables if not found, now I can't convert that database to MDE format. I can split the database, but can't convert part of the database with forms, reports, queries to MDE format.
Can somebody advice on this?
References, in the order, from the top:
Visual Basic For Applications Microsoft Access 10.0 Object Library Microsoft DAO 3.6 Object Library OLE Automation Microsoft Office 11.0 Object Library Microsoft ADO Ext. 2.7 for DDL and Security Microsoft ActiveX Data Objects 2.7 Library
Here is the error signature:
Error signature AppName: msaccess.exe AppVer: 10.0.6501.0 ModName mso.dll ModVer: 10.0.6735.0 Offset: 000099bb Here is the VBA code for relinking, it is in LOAD event of starting switchboard form:
=============== =============== ==============
Private Sub Form_Load()
DoCmd.Hourglass True
Call LinkTables
DoCmd.Hourglass False
End Sub
=============== =============== ===========
Sub LinkTables()
Dim objFileDialog As FileDialog
On Error GoTo LinkTables_Err:
DoCmd.Hourglass True
'Check to see if tables are linked properly If Not VerifyLink Then
'If still not ok, attempt to relink with expected file name If Not ReLink(CurrentP roject.FullName , True) Then
MsgBox "Date file for this database can not be found." + (Chr(13) & Chr(10)) + (Chr(13) & Chr(10)) + "After you click button OK, File dialog window will pop up" + (Chr(13)) + "so you can specify the location of the data file."
'If still not ok, ask user to locate file Set objFileDialog = FileDialog(msoF ileDialogOpen)
With objFileDialog .AllowMultiSele ct = False .Show End With
'Attempt to link to file user selected If Not ReLink(objFileD ialog.SelectedI tems(1), False) Then
'If not successful, display a message and quit application MsgBox "You Cannot Run This App Without Locating Data Tables" DoCmd.Close acForm, "frmSplash" DoCmd.Quit End If End If End If
DoCmd.Hourglass False Exit Sub
LinkTables_Err: DoCmd.Hourglass False MsgBox "Error # " & Err.Number & ": " & Err.Description Exit Sub
End Sub
=============== =============== =======
Function VerifyLink() As Boolean 'Verify connection information in linked tables.
'Declare required variables Dim cat As ADOX.Catalog Dim tdf As ADOX.Table Dim strTemp As String
'Point database object variable at the current database Set cat = New ADOX.Catalog
With cat Set .ActiveConnecti on = CurrentProject. Connection
'Continue if links are broken On Error Resume Next
'Open one linked table to see if connection information is correct For Each tdf In .Tables If tdf.Type = "LINK" Then strTemp = tdf.Columns(0). Name If Err.Number Then Exit For End If End If Next tdf
End With
VerifyLink = (Err.Number = 0)
End Function
=============== =============== ==============
Function ReLink(strDir As String, DefaultData As Boolean) As Boolean 'Relink a broken linked Access table.
'Declare required variables Dim cat As ADOX.Catalog Dim tdfRelink As ADOX.Table Dim strPath As String Dim strName As String Dim intCounter As Integer Dim vntStatus As Variant
'Prepare status bar vntStatus = SysCmd(acSysCmd SetStatus, "Updating Links")
Set cat = New ADOX.Catalog
With cat .ActiveConnecti on = CurrentProject. Connection
On Error Resume Next 'Update progress meter Call SysCmd(acSysCmd InitMeter, "Linking Data Tables", .Tables.Count)
'Loop through each table, attempting to update the link For Each tdfRelink In .Tables intCounter = intCounter + 1 Call SysCmd(acSysCmd UpdateMeter, intCounter) If .Tables(tdfReli nk.Name).Type = "LINK" And Left(tdfRelink. Name, 3) = "tbl" Then tdfRelink.Prope rties("Jet OLEDB:Link Datasource") = strDir End If
If Err.Number Then Exit For End If Next tdfRelink
End With
'Reset the progress meter Call SysCmd(acSysCmd RemoveMeter)
vntStatus = SysCmd(acSysCmd ClearStatus)
ReLink = (Err = 0)
End Function
=============== =============== =============== =======
On 20 Oct 2005 02:00:11 -0700, "ET" <ve****@yahoo.c om> wrote:
Your Access installation may be messed up. Try this:
Copy the app to another machine.
Code window > Debug > Compile
If no problems, then convert to MDE.
-Tom. I don't know whats the problem, but after I added functions to first verify, then relink linked tables if not found, now I can't convert that database to MDE format. I can split the database, but can't convert part of the database with forms, reports, queries to MDE format.
Can somebody advice on this?
References, in the order, from the top:
Visual Basic For Applications Microsoft Access 10.0 Object Library Microsoft DAO 3.6 Object Library OLE Automation Microsoft Office 11.0 Object Library Microsoft ADO Ext. 2.7 for DDL and Security Microsoft ActiveX Data Objects 2.7 Library
Here is the error signature:
Error signature AppName: msaccess.exe AppVer: 10.0.6501.0 ModName mso.dll ModVer: 10.0.6735.0 Offset: 000099bb Here is the VBA code for relinking, it is in LOAD event of starting switchboard form:
============== =============== ===============
Private Sub Form_Load()
DoCmd.Hourglass True
Call LinkTables
DoCmd.Hourglass False
End Sub
============== =============== ============
Sub LinkTables()
Dim objFileDialog As FileDialog
On Error GoTo LinkTables_Err:
DoCmd.Hourglass True
'Check to see if tables are linked properly If Not VerifyLink Then
'If still not ok, attempt to relink with expected file name If Not ReLink(CurrentP roject.FullName , True) Then
MsgBox "Date file for this database can not be found." + (Chr(13) & Chr(10)) + (Chr(13) & Chr(10)) + "After you click button OK, File dialog window will pop up" + (Chr(13)) + "so you can specify the location of the data file."
'If still not ok, ask user to locate file Set objFileDialog = FileDialog(msoF ileDialogOpen)
With objFileDialog .AllowMultiSele ct = False .Show End With
'Attempt to link to file user selected If Not ReLink(objFileD ialog.SelectedI tems(1), False) Then
'If not successful, display a message and quit application MsgBox "You Cannot Run This App Without Locating Data Tables" DoCmd.Close acForm, "frmSplash" DoCmd.Quit End If End If End If
DoCmd.Hourglass False Exit Sub
LinkTables_Err : DoCmd.Hourglass False MsgBox "Error # " & Err.Number & ": " & Err.Description Exit Sub
End Sub
============== =============== ========
Function VerifyLink() As Boolean 'Verify connection information in linked tables.
'Declare required variables Dim cat As ADOX.Catalog Dim tdf As ADOX.Table Dim strTemp As String
'Point database object variable at the current database Set cat = New ADOX.Catalog
With cat Set .ActiveConnecti on = CurrentProject. Connection
'Continue if links are broken On Error Resume Next
'Open one linked table to see if connection information is correct For Each tdf In .Tables If tdf.Type = "LINK" Then strTemp = tdf.Columns(0). Name If Err.Number Then Exit For End If End If Next tdf
End With
VerifyLink = (Err.Number = 0)
End Function
============== =============== ===============
Function ReLink(strDir As String, DefaultData As Boolean) As Boolean 'Relink a broken linked Access table.
'Declare required variables Dim cat As ADOX.Catalog Dim tdfRelink As ADOX.Table Dim strPath As String Dim strName As String Dim intCounter As Integer Dim vntStatus As Variant
'Prepare status bar vntStatus = SysCmd(acSysCmd SetStatus, "Updating Links")
Set cat = New ADOX.Catalog
With cat .ActiveConnecti on = CurrentProject. Connection
On Error Resume Next 'Update progress meter Call SysCmd(acSysCmd InitMeter, "Linking Data Tables", .Tables.Coun t)
'Loop through each table, attempting to update the link For Each tdfRelink In .Tables intCounter = intCounter + 1 Call SysCmd(acSysCmd UpdateMeter, intCounter) If .Tables(tdfReli nk.Name).Type = "LINK" And Left(tdfRelink .Name, 3) = "tbl" Then tdfRelink.Prope rties("Jet OLEDB:Link Datasource") = strDir End If
If Err.Number Then Exit For End If Next tdfRelink
End With
'Reset the progress meter Call SysCmd(acSysCmd RemoveMeter)
vntStatus = SysCmd(acSysCmd ClearStatus)
ReLink = (Err = 0)
End Function
============== =============== =============== ========
Thank you Tom and Wayne,
I found solution for this problem here: http://support.microsoft.com/?id=814858
the only difference is, on step 1. instead of running /decompile from
Start/Run,
I run it from Command prompt...
It works fine, converts to MDE. This thread has been closed and replies have been disabled. Please start a new discussion. Similar topics |
by: eric rudolph |
last post by:
I am writing a photo gallery and suppose 8 photos are displayed. When the
user clicks on a button under the picture, I want it to add that picture
name to a "favorites" list within the session data, but NOT leave the page
the user is on. How could I do this?
thanks
|
by: Steven |
last post by:
hi all
i'm primarily a ASP web developer, so i'm not sure if i can do this or not.
i want to allow client's on my site to run a local version of the site off
their laptop. i want to give the user an option on the site that grabs all
the ASP pages, extracts just their records for MS SQL and exports to MS
Access, then packs into a zip file for download. no problem with any of the
steps so far. what should happend next is the user runs my...
|
by: Richard Hollenbeck |
last post by:
I'm trying to write some code that will convert any of the most popular
standard date formats twice in to something like "dd Mmm yyyy" (i.e. 08 Jan
1908) and compare the first with the second and calculate days, months, and
years. This is not for a college course. It's for my own personal
genealogy website. I'm stumped about the code. I'm working on it but not
making much progress. Is there any free code available anywhere? I know it...
|
by: Alan Silver |
last post by:
Hello,
I have installed the 2.0 framework, and am looking at converting some of
my 1.1 pages to use partial classes. I don't (yet) have VS2005, so I'm
doing this by hand, but am having problems.
I have a simple page that I made in the beta2 version of VWD. The code
behind looks like...
using System;
|
by: pseudomagazine |
last post by:
Little problem:
Using the document.write() function and an enormous string, I have managed to create self-generated pages with functions calling code located in external scripts. The code that generates these pages is linked to these pages from within the document.write() string. So far so good.
I lifted on the internet a supercode (flashobject.js) that detects Flash pluggin and loads Flash movies in id'ed <div> only in browsers equipped...
| |
by: bubbles |
last post by:
Using Access 2003 front-end, with SQL Server 2005 backend.
I need to make the front-end application automatically refresh the
linked
SQL Server tables.
New tables will be added dynamically in the future, so the front-end
application
must have a way to keep up with this (instead of manually linking
them).
|
by: cybervigilante |
last post by:
I can't seem to change the include path on my local winmachine no
matter what I do. It comes up as
includ_path .;C:\php5\pear in phpinfo() but there is no such file. I
installed the WAMP package and PEAR is in c:\wamp\php\pear
I modified php.ini in the c:\wamp\php directory to reflect the actual
path, but even stopping and restarting my server shows the c:
\php5\pear path. I can't change it no matter what I do I also tried
the...
|
by: bitsnbytes64 |
last post by:
Hi,
I've been having a similar issue to what is described in the "refresh a form" post with a ComboBox that is not being refreshed after adding a new value on a seperate form. The second form is being opened via the standard DoCmd call.
I've tried adding Requery in AfterUpdate, Form_Current, etc. to no avail.... The test form has the combobox and a command button.
Here's my test code:
Private Sub cmdAddCatgCd_Click()
On Error GoTo...
|
by: marktang |
last post by:
ONU (Optical Network Unit) is one of the key components for providing high-speed Internet services. Its primary function is to act as an endpoint device located at the user's premises. However, people are often confused as to whether an ONU can Work As a Router. In this blog post, we’ll explore What is ONU, What Is Router, ONU & Router’s main usage, and What is the difference between ONU and Router. Let’s take a closer look !
Part I. Meaning of...
|
by: Oralloy |
last post by:
Hello folks,
I am unable to find appropriate documentation on the type promotion of bit-fields when using the generalised comparison operator "<=>".
The problem is that using the GNU compilers, it seems that the internal comparison operator "<=>" tries to promote arguments from unsigned to signed.
This is as boiled down as I can make it.
Here is my compilation command:
g++-12 -std=c++20 -Wnarrowing bit_field.cpp
Here is the code in...
|
by: Hystou |
last post by:
Overview:
Windows 11 and 10 have less user interface control over operating system update behaviour than previous versions of Windows. In Windows 11 and 10, there is no way to turn off the Windows Update option using the Control Panel or Settings app; it automatically checks for updates and installs any it finds, whether you like it or not. For most users, this new feature is actually very convenient. If you want to control the update process,...
| |
by: tracyyun |
last post by:
Dear forum friends,
With the development of smart home technology, a variety of wireless communication protocols have appeared on the market, such as Zigbee, Z-Wave, Wi-Fi, Bluetooth, etc. Each protocol has its own unique characteristics and advantages, but as a user who is planning to build a smart home system, I am a bit confused by the choice of these technologies. I'm particularly interested in Zigbee because I've heard it does some...
|
by: agi2029 |
last post by:
Let's talk about the concept of autonomous AI software engineers and no-code agents. These AIs are designed to manage the entire lifecycle of a software development project—planning, coding, testing, and deployment—without human intervention. Imagine an AI that can take a project description, break it down, write the code, debug it, and then launch it, all on its own....
Now, this would greatly impact the work of software developers. The idea...
|
by: isladogs |
last post by:
The next Access Europe User Group meeting will be on Wednesday 1 May 2024 starting at 18:00 UK time (6PM UTC+1) and finishing by 19:30 (7.30PM).
In this session, we are pleased to welcome a new presenter, Adolph Dupré who will be discussing some powerful techniques for using class modules.
He will explain when you may want to use classes instead of User Defined Types (UDT). For example, to manage the data in unbound forms.
Adolph will...
|
by: conductexam |
last post by:
I have .net C# application in which I am extracting data from word file and save it in database particularly. To store word all data as it is I am converting the whole word file firstly in HTML and then checking html paragraph one by one.
At the time of converting from word file to html my equations which are in the word document file was convert into image.
Globals.ThisAddIn.Application.ActiveDocument.Select();...
|
by: muto222 |
last post by:
How can i add a mobile payment intergratation into php mysql website.
|
by: bsmnconsultancy |
last post by:
In today's digital era, a well-designed website is crucial for businesses looking to succeed. Whether you're a small business owner or a large corporation in Toronto, having a strong online presence can significantly impact your brand's success. BSMN Consultancy, a leader in Website Development in Toronto offers valuable insights into creating effective websites that not only look great but also perform exceptionally well. In this comprehensive...
| |