473,574 Members | 2,669 Online
Bytes | Software Development & Data Engineering Community
+ Post

Home Posts Topics Members FAQ

Access 2000 vs. Access 2003

Is it possible to develop an Access app in Access 2003 that will run on
Access 2000? Is it just a matter of selecting "Access 2000" from the
Default File Format drop down list on the Advanced Tab of the Options
dialog?

I need to do some quick work for a client that runs Access 2000 and I've
only been doing working on 2002/2003 projects since installing Access 2003
on my development workstation. Do I need to install Access 2000 on my
development workstation? I assume 2000 and 2003 will co-exist without any
issues.

Thanks in advance.

Nov 13 '05 #1
8 5257
deko wrote:
Is it possible to develop an Access app in Access 2003 that will run
on Access 2000? Is it just a matter of selecting "Access 2000" from
the Default File Format drop down list on the Advanced Tab of the
Options dialog?

I need to do some quick work for a client that runs Access 2000 and
I've only been doing working on 2002/2003 projects since installing
Access 2003 on my development workstation. Do I need to install
Access 2000 on my development workstation? I assume 2000 and 2003
will co-exist without any issues.

Thanks in advance.


In addition to the file format you also have to avoid using any features that
wered added in 2002 and 2003 that don't exist in 2000. Other than that you
should be fine.

Oh...and you won't be able to give them an MDE since 2003 can only make an MDE
in the newer file format.

--
I don't check the Email account attached
to this message. Send instead to...
RBrandt at Hunter dot com
Nov 13 '05 #2
> In addition to the file format you also have to avoid using any features
that
wered added in 2002 and 2003 that don't exist in 2000. Other than that you should be fine.

Oh...and you won't be able to give them an MDE since 2003 can only make an MDE in the newer file format.


Thanks.

I immediately ran into a problem with the Common Dialog with Access 2000...
will repost...
Nov 13 '05 #3
deko wrote:
In addition to the file format you also have to avoid using any
features that wered added in 2002 and 2003 that don't exist in 2000.
Other than that you should be fine.

Oh...and you won't be able to give them an MDE since 2003 can only
make an MDE in the newer file format.


Thanks.

I immediately ran into a problem with the Common Dialog with Access
2000... will repost...


Never use it (or any other ActiveX controls). More likely a difference
between two PCs than having anything to do with the Access version.

--
I don't check the Email account attached
to this message. Send instead to...
RBrandt at Hunter dot com
Nov 13 '05 #4
> > I immediately ran into a problem with the Common Dialog with Access
2000... will repost...


Never use it (or any other ActiveX controls). More likely a difference
between two PCs than having anything to do with the Access version.


I think that's the issue - I was using ActiveX to get the dialog with Access
2003, now I need another way. I found some code on Microsoft's site to get
a file picker, but still need code for a folder picker. If you have code
for a folder picker, that would be a big help.

Here's what I've got for the file picker dialog:

Private Declare Function GetOpenFileName Lib "comdlg32.d ll" Alias _
"GetOpenFileNam eA" (pOpenfilename As OPENFILENAME) As Long

Private Type OPENFILENAME
lStructSize As Long
hwndOwner As Long
hInstance As Long
lpstrFilter As String
lpstrCustomFilt er As String
nMaxCustFilter As Long
nFilterIndex As Long
lpstrFile As String
nMaxFile As Long
lpstrFileTitle As String
nMaxFileTitle As Long
lpstrInitialDir As String
lpstrTitle As String
flags As Long
nFileOffset As Integer
nFileExtension As Integer
lpstrDefExt As String
lCustData As Long
lpfnHook As Long
lpTemplateName As String
End Type

Private Function LaunchCD(strFor m As Form, strSelect As String) As String
Dim OpenFile As OPENFILENAME
Dim lReturn As Long
Dim sFilter As String
OpenFile.lStruc tSize = Len(OpenFile)
OpenFile.hwndOw ner = strForm.hWnd
sFilter = "Excel Workbooks (*.xls)" & Chr(0) & "*.xls" & Chr(0)
OpenFile.lpstrF ilter = sFilter
OpenFile.nFilte rIndex = 1
OpenFile.lpstrF ile = String(257, 0)
OpenFile.nMaxFi le = Len(OpenFile.lp strFile) - 1
OpenFile.lpstrF ileTitle = OpenFile.lpstrF ile
OpenFile.nMaxFi leTitle = OpenFile.nMaxFi le
OpenFile.lpstrI nitialDir = "C:\"
OpenFile.lpstrT itle = strSelect
OpenFile.flags = 0
lReturn = GetOpenFileName (OpenFile)
If lReturn <> 0 Then
LaunchCD = Trim(Left(OpenF ile.lpstrFile, InStr(1,
OpenFile.lpstrF ile, vbNullChar) - 1))
End If
End Function
Nov 13 '05 #5
DFS
deko wrote:
I immediately ran into a problem with the Common Dialog with Access
2000... will repost...
Never use it (or any other ActiveX controls). More likely a
difference between two PCs than having anything to do with the
Access version.


I think that's the issue - I was using ActiveX to get the dialog with
Access 2003, now I need another way. I found some code on
Microsoft's site to get a file picker, but still need code for a
folder picker. If you have code for a folder picker, that would be a
big help.


Try this:

Public Function BrowseFolder(sz DialogTitle As String) As String

Dim X As Long, bi As BROWSEINFO, dwIList As Long
Dim szPath As String, wPos As Integer

With bi
.hOwner = hWndAccessApp
.lpszTitle = szDialogTitle
.ulFlags = BIF_RETURNONLYF SDIRS
End With

dwIList = SHBrowseForFold er(bi)
szPath = Space$(512)
X = SHGetPathFromID List(ByVal dwIList, ByVal szPath)

If X Then
wPos = InStr(szPath, Chr(0))
BrowseFolder = Left$(szPath, wPos - 1)
Else
BrowseFolder = vbNullString
End If

End Function
Call it like this:

Dim strFolderName As String
strFolderName = BrowseFolder("w hatever message you want")


Here's what I've got for the file picker dialog:

Private Declare Function GetOpenFileName Lib "comdlg32.d ll" Alias _
"GetOpenFileNam eA" (pOpenfilename As OPENFILENAME) As Long

Private Type OPENFILENAME
lStructSize As Long
hwndOwner As Long
hInstance As Long
lpstrFilter As String
lpstrCustomFilt er As String
nMaxCustFilter As Long
nFilterIndex As Long
lpstrFile As String
nMaxFile As Long
lpstrFileTitle As String
nMaxFileTitle As Long
lpstrInitialDir As String
lpstrTitle As String
flags As Long
nFileOffset As Integer
nFileExtension As Integer
lpstrDefExt As String
lCustData As Long
lpfnHook As Long
lpTemplateName As String
End Type

Private Function LaunchCD(strFor m As Form, strSelect As String) As
String Dim OpenFile As OPENFILENAME
Dim lReturn As Long
Dim sFilter As String
OpenFile.lStruc tSize = Len(OpenFile)
OpenFile.hwndOw ner = strForm.hWnd
sFilter = "Excel Workbooks (*.xls)" & Chr(0) & "*.xls" & Chr(0)
OpenFile.lpstrF ilter = sFilter
OpenFile.nFilte rIndex = 1
OpenFile.lpstrF ile = String(257, 0)
OpenFile.nMaxFi le = Len(OpenFile.lp strFile) - 1
OpenFile.lpstrF ileTitle = OpenFile.lpstrF ile
OpenFile.nMaxFi leTitle = OpenFile.nMaxFi le
OpenFile.lpstrI nitialDir = "C:\"
OpenFile.lpstrT itle = strSelect
OpenFile.flags = 0
lReturn = GetOpenFileName (OpenFile)
If lReturn <> 0 Then
LaunchCD = Trim(Left(OpenF ile.lpstrFile, InStr(1,
OpenFile.lpstrF ile, vbNullChar) - 1))
End If
End Function

Nov 13 '05 #6
"bi As BROWSEINFO" produced a compile error. What library does this
reference?

DFS wrote:

deko wrote:
I immediately ran into a problem with the Common Dialog with Access
2000... will repost...

Never use it (or any other ActiveX controls). More likely a
difference between two PCs than having anything to do with the
Access version.


I think that's the issue - I was using ActiveX to get the dialog with
Access 2003, now I need another way. I found some code on
Microsoft's site to get a file picker, but still need code for a
folder picker. If you have code for a folder picker, that would be a
big help.


Try this:

Public Function BrowseFolder(sz DialogTitle As String) As String

Dim X As Long, bi As BROWSEINFO, dwIList As Long
Dim szPath As String, wPos As Integer

With bi
.hOwner = hWndAccessApp
.lpszTitle = szDialogTitle
.ulFlags = BIF_RETURNONLYF SDIRS
End With

dwIList = SHBrowseForFold er(bi)
szPath = Space$(512)
X = SHGetPathFromID List(ByVal dwIList, ByVal szPath)

If X Then
wPos = InStr(szPath, Chr(0))
BrowseFolder = Left$(szPath, wPos - 1)
Else
BrowseFolder = vbNullString
End If

End Function

Call it like this:

Dim strFolderName As String
strFolderName = BrowseFolder("w hatever message you want")
Here's what I've got for the file picker dialog:

Private Declare Function GetOpenFileName Lib "comdlg32.d ll" Alias _
"GetOpenFileNam eA" (pOpenfilename As OPENFILENAME) As Long

Private Type OPENFILENAME
lStructSize As Long
hwndOwner As Long
hInstance As Long
lpstrFilter As String
lpstrCustomFilt er As String
nMaxCustFilter As Long
nFilterIndex As Long
lpstrFile As String
nMaxFile As Long
lpstrFileTitle As String
nMaxFileTitle As Long
lpstrInitialDir As String
lpstrTitle As String
flags As Long
nFileOffset As Integer
nFileExtension As Integer
lpstrDefExt As String
lCustData As Long
lpfnHook As Long
lpTemplateName As String
End Type

Private Function LaunchCD(strFor m As Form, strSelect As String) As
String Dim OpenFile As OPENFILENAME
Dim lReturn As Long
Dim sFilter As String
OpenFile.lStruc tSize = Len(OpenFile)
OpenFile.hwndOw ner = strForm.hWnd
sFilter = "Excel Workbooks (*.xls)" & Chr(0) & "*.xls" & Chr(0)
OpenFile.lpstrF ilter = sFilter
OpenFile.nFilte rIndex = 1
OpenFile.lpstrF ile = String(257, 0)
OpenFile.nMaxFi le = Len(OpenFile.lp strFile) - 1
OpenFile.lpstrF ileTitle = OpenFile.lpstrF ile
OpenFile.nMaxFi leTitle = OpenFile.nMaxFi le
OpenFile.lpstrI nitialDir = "C:\"
OpenFile.lpstrT itle = strSelect
OpenFile.flags = 0
lReturn = GetOpenFileName (OpenFile)
If lReturn <> 0 Then
LaunchCD = Trim(Left(OpenF ile.lpstrFile, InStr(1,
OpenFile.lpstrF ile, vbNullChar) - 1))
End If
End Function

Nov 13 '05 #7
See http://www.mvps.org/access/api/api0002.htm at "The Access Web" for the
complete code.

--
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(no e-mails, please!)

"Norman Scheinin" <no************ ***@boeing.com> wrote in message
news:42******** *******@boeing. com...
"bi As BROWSEINFO" produced a compile error. What library does this
reference?

DFS wrote:

deko wrote:
>>> I immediately ran into a problem with the Common Dialog with Access
>>> 2000... will repost...
>>
>> Never use it (or any other ActiveX controls). More likely a
>> difference between two PCs than having anything to do with the
>> Access version.
>
> I think that's the issue - I was using ActiveX to get the dialog with
> Access 2003, now I need another way. I found some code on
> Microsoft's site to get a file picker, but still need code for a
> folder picker. If you have code for a folder picker, that would be a
> big help.


Try this:

Public Function BrowseFolder(sz DialogTitle As String) As String

Dim X As Long, bi As BROWSEINFO, dwIList As Long
Dim szPath As String, wPos As Integer

With bi
.hOwner = hWndAccessApp
.lpszTitle = szDialogTitle
.ulFlags = BIF_RETURNONLYF SDIRS
End With

dwIList = SHBrowseForFold er(bi)
szPath = Space$(512)
X = SHGetPathFromID List(ByVal dwIList, ByVal szPath)

If X Then
wPos = InStr(szPath, Chr(0))
BrowseFolder = Left$(szPath, wPos - 1)
Else
BrowseFolder = vbNullString
End If

End Function

Call it like this:

Dim strFolderName As String
strFolderName = BrowseFolder("w hatever message you want")
> Here's what I've got for the file picker dialog:
>
> Private Declare Function GetOpenFileName Lib "comdlg32.d ll" Alias _
> "GetOpenFileNam eA" (pOpenfilename As OPENFILENAME) As Long
>
> Private Type OPENFILENAME
> lStructSize As Long
> hwndOwner As Long
> hInstance As Long
> lpstrFilter As String
> lpstrCustomFilt er As String
> nMaxCustFilter As Long
> nFilterIndex As Long
> lpstrFile As String
> nMaxFile As Long
> lpstrFileTitle As String
> nMaxFileTitle As Long
> lpstrInitialDir As String
> lpstrTitle As String
> flags As Long
> nFileOffset As Integer
> nFileExtension As Integer
> lpstrDefExt As String
> lCustData As Long
> lpfnHook As Long
> lpTemplateName As String
> End Type
>
> Private Function LaunchCD(strFor m As Form, strSelect As String) As
> String Dim OpenFile As OPENFILENAME
> Dim lReturn As Long
> Dim sFilter As String
> OpenFile.lStruc tSize = Len(OpenFile)
> OpenFile.hwndOw ner = strForm.hWnd
> sFilter = "Excel Workbooks (*.xls)" & Chr(0) & "*.xls" & Chr(0)
> OpenFile.lpstrF ilter = sFilter
> OpenFile.nFilte rIndex = 1
> OpenFile.lpstrF ile = String(257, 0)
> OpenFile.nMaxFi le = Len(OpenFile.lp strFile) - 1
> OpenFile.lpstrF ileTitle = OpenFile.lpstrF ile
> OpenFile.nMaxFi leTitle = OpenFile.nMaxFi le
> OpenFile.lpstrI nitialDir = "C:\"
> OpenFile.lpstrT itle = strSelect
> OpenFile.flags = 0
> lReturn = GetOpenFileName (OpenFile)
> If lReturn <> 0 Then
> LaunchCD = Trim(Left(OpenF ile.lpstrFile, InStr(1,
> OpenFile.lpstrF ile, vbNullChar) - 1))
> End If
> End Function

Nov 13 '05 #8
> See http://www.mvps.org/access/api/api0002.htm at "The Access Web" for the
complete code.


Fantastic! Thanks very much.
Nov 13 '05 #9

This thread has been closed and replies have been disabled. Please start a new discussion.

Similar topics

17
2875
by: chicha | last post by:
Hey people, I have to convert MS Access 2000 database into mysql database, the whole thing being part of this project I'm doing for one of my faculty classes. My professor somehow presumed I knew db's and gave me long list of things to do with that particular database, first thing being that particular conversion. Truth is that I don't know...
1
5735
by: Wayne Aprato | last post by:
I have a client who is running several Access 97 databases that I have written for them. They are about to upgrade to Access 2003. Is the default file format of Access 2003 still Access 2000 the same as it was in Access 2002? I am running Access 2002 at the moment. Is there any reason for testing purposes etc, for me to purchase Access...
2
2321
by: Jeff | last post by:
Does anyone know of any potential problems running a 2000 database with 2003? Also, what about installing all other Office products as 2003 versions but leaving Access as 2002 running a 2000 database? Why you ask! A client has a 2000 database. Currently using 2000 runtime for most employees to work with database. A couple use 2003 to use...
3
2512
by: KEMDignam | last post by:
I have upgraded my computer to Access 2003, but I have not converted my databases since all of my clients still use Access 2000. I need to create a new MDB, but Access is telling me that I will have to convert the database to 2003 before it will make an MDB. What are my options? If I convert the database, I assume that Access 2000 and A2k...
47
4500
by: ship | last post by:
Hi We need some advice: We are thinking of upgrading our Access database from Access 2000 to Access 2004. How stable is MS Office 2003? (particularly Access 2003). We are just a small company and this is a big decision for us(!) It's not just the money it's committing to an new version of Access!
49
3194
by: Mell via AccessMonster.com | last post by:
I created databases on Access 2003 and I want to deploy them to users. My code was also done using 2003. If they have Ms Access 2000 or higher, will they be able to use these dbs with all code, etc? Please explain -- Message posted via http://www.accessmonster.com
5
1749
by: Ecohouse | last post by:
I'm using VB and an Access 2003. The db was originally created in Access 2000, but the computer had to have things reinstalled and now has Access 2003. So I was wondering if there are any compatibility issues using the two programs. I know that when using data controls you can select Access 2000 for the connect property. This VB program...
3
2324
by: banba_ca | last post by:
When I create a new db from the main Access window or thru Vb (set newdb = ...) I always end up with Access 2000 file format. I would like to get 2002 - 2003 file format. The reason is that when I try to link from a 2002 - 2003 db to a 2000 db, the Jet engine complains that it can't find the table in the target (2000) database. And no, I...
3
2734
by: NEWSGROUPS | last post by:
I am in the midst of trying to convert about 25 Access 2000 to Access 2003. The new environment consists of Office/Access 2003 and Outlook 2003. When converting the back ends I have no problems. When converting the front ends I get the following issues and error. If I try to import all the objects into a blank Access 2003 shell I get a missing...
0
7814
marktang
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...
0
7736
by: Hystou | last post by:
Most computers default to English, but sometimes we require a different language, especially when relocating. Forgot to request a specific language before your computer shipped? No problem! You can effortlessly switch the default language on Windows 10 without reinstalling. I'll walk you through it. First, let's disable language...
1
7826
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...
0
8107
tracyyun
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...
1
5631
isladogs
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...
0
5307
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...
0
3748
by: TSSRALBI | last post by:
Hello I'm a network technician in training and I need your help. I am currently learning how to create and manage the different types of VPNs and I have a question about LAN-to-LAN VPNs. The last exercise I practiced was to create a LAN-to-LAN VPN between two Pfsense firewalls, by using IPSEC protocols. I succeeded, with both firewalls in...
1
1352
muto222
by: muto222 | last post by:
How can i add a mobile payment intergratation into php mysql website.
0
1071
bsmnconsultancy
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...

By using Bytes.com and it's services, you agree to our Privacy Policy and Terms of Use.

To disable or enable advertisements and analytics tracking please visit the manage ads & tracking page.