How to prevent to open a MS Access Database while reading data from forms

Question

To count Activex controls from MS-Access forms using vb.net I am using the connection as follws..

oDBEngine = oAccess.DBEngine oDB = oDBEngine.OpenDatabase(Name:=strFullFileName, Options:=False, ReadOnly:=False, Connect:="")

and Openning the forms in Design mode, as there is a user input prompt form which prevents us to run the application further if we open it in Default view.

oAccess.DoCmd.OpenForm(FormName:=objForms.Name, View:=AcFormView.acDesign)

Now the problem is:

The DataBase gets opens and along with that all the forms open up while running the application. Is there anyway we just prevent to open the database and forms, while reading the forms.

Thank you.

sth · Accepted Answer · 2013-09-30 01:17:24Z

2

Sounds like an unsplit application (tables and forms/etc. in a single MDB file), and that it's being shared by multiple users. This is a disastrous scenario. See Splitting your Microsoft Access MDB into a front end and back end for all the details.

Once it's split, you'd work on an individual copy and then distribute updates to users. The point is that since version 2000 the design of an Access MDB (as opposed to the data) cannot be edited while it's open by any users.

edited Sep 30, 2013 at 1:17

sth

231k56 gold badges288 silver badges370 bronze badges

answered Jan 9, 2009 at 16:41

David-W-Fenton

23.2k4 gold badges48 silver badges59 bronze badges

Sign up to request clarification or add additional context in comments.

Comments

Fionnuala · Accepted Answer · 2009-01-09 10:13:24Z

1

It may suit to use a new, empty database and to import the forms programmatically. It may be possible to get a list of forms from MSysObjects (forms type is -32768).

For example:

SELECT MsysObjects.Name
FROM MsysObjects IN 'C:\docs\LTD.mdb'
WHERE MsysObjects.Type=-32768

EDIT PER COMMENT This code would go in a BLANK Access database.

strSQL = "SELECT MsysObjects.Name " _
& "FROM MsysObjects IN 'C:\docs\LTD.mdb' " _
& "WHERE MsysObjects.Type = -32768"

Set rs = CurrentDb.OpenRecordset(strSQL)

Do While Not rs.EOF
    DoCmd.TransferDatabase acImport, "Microsoft Access", _
    "C:\docs\LTD.mdb", acForm, rs![Name], rs![Name]

    'Do what ever you wish with form, then '

    DoCmd.DeleteObject acForm, rs![Name]

    rs.MoveNext
Loop

edited Jan 9, 2009 at 10:13

answered Jan 9, 2009 at 9:05

Fionnuala

91.4k7 gold badges121 silver badges155 bronze badges

2 Comments

Suman Over a year ago

Yes, this is good way to read forms (No.Of) But I want to read each form (How many Activex Controls present).

Fionnuala Over a year ago

I am suggesting that you use the sql to get a list of forms and then import them into a new database. See my edits.

Collectives™ on Stack Overflow

How to prevent to open a MS Access Database while reading data from forms

2 Answers 2

Comments

2 Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

Comments

2 Comments

Your Answer

Sign up or log in

Post as a guest

Related