Re: Createdatabase (Save to a folder, name, import tables)

On Sun, 11 Feb 2007 23:13:07 GMT, "CWH via AccessMonster.com"
<u31211@uwe> wrote:

Hi John;

Yea I agree, somewhat primitive here. This User database is large so I?m
trying to provide a mechanism of downloading just select tables/records. They
are being downloaded to the transfer.mdb database, which in turn is uploaded
to a backup Admin.mdb system. I have several people using there own copy of
the User database and weekly download to a transfer.mdb database. Each user
submits (emails, USB, or CD) his/her own transfer.mdb to the supervisor who
uploads them into the admin.mdb (make sense?). We don?t have a network or
direct connect between the User databases and the Admin.mdb database. The
transfers.mdb acts as link between the two. Since I have several people
submitting copies of the transfer.mdb I thought to add there names and the
date it was created so the supervisor can get a better handle on several
submissions.

Sounds like you're "rolling your own" Replication. Access has a built
in Replication model - but it's quite complex and requires a lot of
study and work to implement. It may be worth checking into; maybe you
could download the Replication Whitepaper from

http://support.microsoft.com/kb/282977/en-us

It's for A2000 but works in 2002 and 2003; not sure about 2007!

STUDY IT CAREFULLY, and try it out on a COPY of your database -
replication makes major and irreversible changes to your database,
such as adding four new fields per table, making all your Autonumbers
become random, and more.

I will also have to change the VB code in the Admin.mdb to accept & append
tables from different database files.

Thanks for reviewing the code. I tried implementing it but I?m getting a
runtime error 438. Strange since I have access installed? ?Object doesn?t
support this property or method. This is what I have so far; Thanks a lot.

Sub cboTeamName_Click()
Dim ws As Workspace
Dim db As Database
Dim dbBackup As DAO.Database
Dim strFile As String
Dim strFolderName As String
'Get default Workspace
Set ws = DBEngine.Workspaces(0)
strFolderName = BrowseFolder("Where would you like to save your records?")

strFile = "RMS - " & Me.cboTeamName & Format(Date, "mmddyyyy") & ".mdb"
Set dbBackup = ws.CreateDatabase(strFile, dbLangGeneral)


What is the value of strFile? What line generates the error? Check
Tools... References and make sure Microsoft Data Access Objects x.xx
(highest version) is checked and that none are marked MISSING.

John W. Vinson [MVP]
.

Relevant Pages

  • Re: newbie need samples --( with tip of hat to Jeff Conrad )
    ... > Where to find information about designing a database in Microsoft Access: ... > ACC2000: "Understanding Relational Database Design" ... > (See the last download titled "Understanding Normalization") ... > Security FAQ: ...
    (microsoft.public.access.dataaccess.pages)
  • Re: Choosing the right embedded database.
    ... We want a simple database ... > Most users would download the application and data from a website via DIAL ... > access is the only real method of distribution, ... > local data store via an internet link. ...
    (borland.public.delphi.thirdpartytools.general)
  • Choosing the right embedded database.
    ... I am looking for the right tool for the job and came across you database ... Most users would download the application and data from a website via DIAL ... access is the only real method of distribution, ... local data store via an internet link. ...
    (borland.public.delphi.thirdpartytools.general)
  • download - edit - upload documents in a user friendly way
    ... There is now simple functionality to check out and download ... and finally use the check-in feature of my site to upload the ... What I would like is functionality that allows the user to check out ... database through the web site automagically. ...
    (microsoft.public.dotnet.framework.aspnet)
  • Re: Large list of PAD enabled shareware web sites
    ... You can download an up-to-date database of about a thousand download ... RoboSoft will ... During the trial period you can download database updates for free. ...
    (comp.software.shareware.authors)