Search results

UpdateMeter only take the amount you're updating it by, not the status message. just try SysCmd acSysCmdUpdateMeter, intNumRecs

Have you looked at the built-in command line function CACLS. Might work but you may need to write a bat file or script to run it. CACLS filename [/T] [/E] [/C] [/G user:perm] [/R user [...]] [/P user:perm [...]] [/D user [...]] filename Displays ACLs. /T...

If you can't get this to work you could use TableDefs Dim tbl As DAO.TableDef Set tbl = CurrentDb.CreateTableDef("LocalTableName") tbl.connect = "Ms Access;DATABASE=C:\MyDB.mdb ;pwd=password" tbl.SourceTableName = "RemoteTableName" CurrentDb.TableDefs.Append tbl

When I use DAO to open a PWD protected DB I use the following. OpenDatabase(dbName, True, False, "MS Access;pwd=MYPASSWORD") It will work without the MS Access...but I think I had it in there for a reason.

give this a try http://www.dannyscripts.com/access-2007-vba/using-ado-to-set-the-database-password.html

With DAO it's easy. db.NewPassword "","NewPassWordHere"

Create a new datasheet view form and use your query as the recordsource. Set that forms PopUp property to true and open the form.

Unless you did a SaveAs and chose the 2007 format it likely would not be readable by the older Access version. This is not a backwards compatability issue but more a forwards compatability issue, you have the newer version and you could read the old format just fine, if you made changes and...

Get rid of the = sign before the False.

Well you can do this, if you number each of your lines yourself. Sub testline() On Error GoTo errH 1: 2: 3: err.Raise 5001, , "Test Error" 4: 5: 6: 7: Exit Sub errH: Debug.Print err.Number & err.Description & ":" & Erl End Sub

Try adding the following line of code. On Error Resume Next Dim xlApp As Object Set xlApp = GetObject(, "Excel.Application") xlApp.DisplayAlerts = False Call xlApp.workbooks("budgets").Close Set xlApp = Nothing

This will probably fail if more than one instance of excel is open. On Error Resume Next Dim xlApp As Object Set xlApp = GetObject(, "Excel.Application") Call xlApp.workbooks("budgets").Close Set xlApp = Nothing

The database may have been secured using Access ULS, you would need the MDW file and username/login in order to access the data.

sql = "Insert into Table5 select * from query1;"

Use the Field .Type property, it will return an integer that is part of the DAO.DataTypeEnum, you could just store that information, although the number 5 or 10 won't be much use unless you have those memorized. You could also pass the type to a function like the one below to get the text name...

Well if your project number is always just numeric up until an alpha character you could use the val function (i.e. 1234abcd) (val would return 1234 in this case). If you have alternating numeric/text values such as (1a2a3a4a) you would need a custom function to extract all the numbers, val...

When I've needed to do something similar I had a countdown displayed on the form, the countdown would reset if it detected any activity by the user (MouseMoveEvent, saving a record, etc..) after a certain amount of time passed with no activity I simply closed the database for them, no warning given.

You cannot use Call in the manner you are trying, use Eval or Run instead.

That could work, won't really know unless you try. The less you can hit the tables the better in this case I think.

You're right in that 250K records isn't that large...depending on how wide your table is, 250K records by 10 columns...not bad at all, 250K records by 150 columns...nightmare. Sans the details of what your tables and code look like it is difficult to suggest anything specific that might help...