convert access97mde to access03mdb?

[bjsteyn]

I have an mde FE for a database in office 97. I cant open it in office 2003. Is there a way I can convert the 97 mde to 2003 mdb or at least extract the forms,modules etc.I can import the queries but the forms,modules etc are locked.

 

[DCrake]

Unless you have access to the 97 mdb then the short answer is No. The mde is a compiled state of the mdb and cannot be reverse engineered without the necessary tools. I believe there are companies out there that can do it but never had the need to go down that route. Its abit like asking Microsoft for their source code.

Would you like it if you wrote a program and went to the trouble of compiling it into an mde then distributing it only for someone to decompile it. Bastardise it and re package it as a product or their own?

David

 

[bjsteyn]

Hi DCrake, how you been. I agree with your point. A company asked me to do some updates on their current database and convert it from office 97 to 2003 format but i cant open the mde.
Their is an mdb version but it has been updated and converted to mde.

I have converted the mdb to 2003 format but cant c what updates the previous programmer did on it. I quess I will have to do the updates again.

I have a nother problem I hope you can help me with.
I wrote an ordering system for a company and the BE and FE was in one database.
They were running it on two computers by sharing the folder on the LAN.

Now I have split the database into a FE and BE .I am running a FE on both computers and sharing the BE(which is on one of the two computers) on the LAN.

I have a function on my order form where I filter the productid which worked fine on both computers before the but it is causing a problem.

The problem is as soon as I filter the productID(Displays Product Name) combobox by pressing Filter button,My previous names of products i selected for an order dissapears.
Ass soon as I take the filter off by pressing the ALL Button it reapeers.

I understand what the problem is but I dont no how to fix it.
eg.If I select a product "Nestle Ricoffee" and I go to my filter and type in "Nescafe" and press filter so I can find "Nescafe Coffee" quicker the product name "Nestle Ricoffee" dissapears.

It is because the combo box doesnt have Nestle Ricoffee in the list anymore.

Ass soon as I press All it reappears as Nestle Ricoffee is added to the list again.

I have attached a 2 pics so that you can understand my problem.

 

[DCrake]

In your before pic it reads NESCAFE for product id ..830
In you after pic you are filtering on Nestle so obviously NESCAFE <> Nestle

Also how are you constructing the comparison? Like(), =, In() ?

David

 

[bjsteyn]

Here is the code I'm using when the filter button is clicked:

Private Sub btnFilter_Click()
Dim strFilterSearch As String
strFilterSearch = Me!txtSearchFilter
Me![Orders Subform].Form!ProductID.RowSource = "SELECT ProductName,ProductID,Discontinued FROM Products WHERE InStr(1, [ProductName],'" & strFilterSearch & "',1) > 0 ORDER BY ProductName"
Me!ListCount = Me![Orders Subform].Form!ProductID.ListCount
End Sub

I have attached a pick of my product id combo box settings.

The thing is it was working before i split the database.
My products didnt dissapear when I used the filter.

thanks bj

 

[DCrake]

Can you post a sample mdb to look at

 

[bjsteyn]

Hey DCrake give me your email address and i'll send you a copy of my program. Dont want to post it here.

Then you can maby give me some off your thaughts/tips on my program.

 

[DCrake]

SELECT ProductName,ProductID,Discontinued FROM Products WHERE InStr(1, [ProductName],'*',1) > 0 ORDER BY ProductName

Change the Instr command to a Like

Private Sub btnSearch_Click()
Dim strFilterSearch As String
strFilterSearch = Nz(Me!txtSearchFilter, "*")


Me![Orders Subform].Form!ProductID.RowSource = "SELECT ProductName,ProductID,Discontinued FROM Products WHERE [ProductName] Like '*" & strFilterSearch & "*'ORDER BY ProductName"

Debug.Print "SELECT ProductName,ProductID,Discontinued FROM Products WHERE [ProductName] Like '*" & strFilterSearch & "*'ORDER BY ProductName"

Me!ListCount = Me![Orders Subform].Form!ProductID.ListCount
End Sub

 

[bjsteyn]

It is still doing the same thing